- Excel VBA 質問スレ Part37 [転載禁止]©2ch.net
414 ：デフォルトの名無しさん[]：2016/02/04(木) 13:00:05.72 ID:AIFo7uDS - 初めて質問させていただきます。
ご教示お願いいたします。
sheet1（以下のマクロでは
| - Excel VBA 質問スレ Part37 [転載禁止]©2ch.net
416 ：デフォルトの名無しさん[]：2016/02/04(木) 14:47:38.48 ID:AIFo7uDS - 初めて質問させていただきます。
ご教示お願いいたします。
sheet1（以下のマクロでは"sum")のあるセルを更新した際に、
マクロが起動するようにしたいのですが上手くいきません。
よろしくお願いいたします。
マクロそのものは動作確認済みです。
sheet("x")はsheet2のことです。
Private Sub Worksheet_Change(ByVal Target As Range)
' If (Target.Row = 2) And (Target.Column >= 3 And _
' Target.Column <= 5) Then
If Intersect(Target, Range("B3:B5")) Is Nothing Then
Exit Sub
Else
Dim x As Long, y As Long, i As Variant
Sheets("x").Select
x = Range("D2").Value
Cells(x, 2).Select
Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(5, 22)).Copy
Sheets("sum").Select
Range("B8").Select
ActiveSheet.Paste
End If
End Sub
| - Excel VBA 質問スレ Part37 [転載禁止]©2ch.net
420 ：デフォルトの名無しさん[]：2016/02/04(木) 16:52:02.75 ID:AIFo7uDS - >>417
ご教示ありがとうございます。
先ほどのマクロで間違いがありました。
条件の部分が先ほどの条件ではなく、下記になります。
If (Target.Row = 4) And (Target.Column = 3) Then..
Application.EnableEvents = False
行いましたが、変更しませんでした。
| - Excel VBA 質問スレ Part37 [転載禁止]©2ch.net
421 ：デフォルトの名無しさん[]：2016/02/04(木) 16:53:28.63 ID:AIFo7uDS - >>418,419
ご教示ありがとうございます。
copy元は問題ありません。
下記のマクロのDimからActiveSheet.Pasteまでは、標準モジュールで実行すると
シートXには反映されます。
ただ、セルの値を変えて標準モジュールの実行という2stepの2step目を省略したい
のですがうまくいきません。
Private Sub Worksheet_Change(ByVal Target As Range)
' Application.EnableEvents = False
If (Target.Row = 4) And (Target.Column = 3) Then
Dim x As Long
' Sheets("X").Select
' x = Range("D2").Value
' Cells(x, 2).Select
' Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(5, 22)).Copy
' Sheets("sum").Select
' Range("B8").Select
' ActiveSheet.Paste
Worksheets("X").x = Cells(2, 4)
Worksheets("X").Range(Cells(x, 3), Cells(x + 5, 24)).Copy Worksheets("sum").Cells(8, 2)
End If
End Sub
| - Excel VBA 質問スレ Part37 [転載禁止]©2ch.net
423 ：デフォルトの名無しさん[]：2016/02/04(木) 17:38:37.00 ID:AIFo7uDS - >> 422
返信ありがとうございます。
条件のところは以下のように変更しました。
If Intersect(Target, Range("D3")) Is Nothing Then
Exit Sub
Else
しかし、うまくいきません。
コピー元はwebクリエを利用してますが、更新は行っていないため
ただのデータシートだと考えています。
|
|