トップページ > プログラム > 2016年02月04日 > 35TD0RG8

書き込み順位&時間帯一覧

14 位/183 ID中時間01234567891011121314151617181920212223Total
書き込み数0000000000000000300000003



使用した名前一覧書き込んだスレッド一覧
デフォルトの名無しさん
Excel VBA 質問スレ Part37 [転載禁止]©2ch.net

書き込みレス一覧

Excel VBA 質問スレ Part37 [転載禁止]©2ch.net
418 :デフォルトの名無しさん[sage]:2016/02/04(木) 16:30:22.51 ID:35TD0RG8
>>416
イベント操作はok
copyの元と先はどうでせう?

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range(Cells(3, 2), Cells(5, 2))) Is Nothing Then
Exit Sub

Else
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
419 :デフォルトの名無しさん[sage]:2016/02/04(木) 16:36:47.91 ID:35TD0RG8
x=worksheets("x").cells(2,4) だった、、
Excel VBA 質問スレ Part37 [転載禁止]©2ch.net
422 :デフォルトの名無しさん[sage]:2016/02/04(木) 16:57:03.95 ID:35TD0RG8
>If (Target.Row = 4) And (Target.Column = 3) Then

↑はdoubleclickなどのイベント操作で、おいらもやってみたが素通りする


※このページは、『2ちゃんねる』の書き込みを基に自動生成したものです。オリジナルはリンク先の2ちゃんねるの書き込みです。
※このサイトでオリジナルの書き込みについては対応できません。
※何か問題のある場合はメールをしてください。対応します。