- Excel VBA 質問スレ Part39 [転載禁止]©2ch.net
737 ：デフォルトの名無しさん[]：2016/02/05(金) 12:44:29.76 ID:VJfh6At3 - 質問です。
シートモジュールに①のコードを書くとうまくいきますが、②のコードを書くと
上手くいきません。
なぜなんでしょうか？教えてください。
①
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Sheet2.Cells(Target.Row, 5) = Time
Sheet2.Cells(Target.Row, 5).Copy
ActiveSheet.Cells(17, 5).Paste
End If
End Sub
②
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Sheet2.Cells(Target.Row, 5) = Time
Sheet2.Cells(Target.Row, 5).Copy
ActiveSheet.Paste
End If
End Sub
|
- Excel VBA 質問スレ Part39 [転載禁止]©2ch.net
739 ：デフォルトの名無しさん[]：2016/02/05(金) 14:54:32.80 ID:VJfh6At3 - >>738
Excel2010です。
何が原因なんでしょうか？
|
- Excel VBA 質問スレ Part39 [転載禁止]©2ch.net
741 ：デフォルトの名無しさん[]：2016/02/05(金) 15:19:29.05 ID:VJfh6At3 - >>740
返信ありがとうございます。
sheet2でコピーしたものをシート１に持ってきたいのです。
ご教示お願いします。
|
- Excel VBA 質問スレ Part39 [転載禁止]©2ch.net
744 ：デフォルトの名無しさん[]：2016/02/05(金) 15:32:26.54 ID:VJfh6At3 - >>742
すいません、おっしゃる通り逆でした。
①×
②○
>>743
試してみます。
|
- Excel VBA 質問スレ Part39 [転載禁止]©2ch.net
746 ：デフォルトの名無しさん[]：2016/02/05(金) 15:58:15.69 ID:VJfh6At3 - >>745
無事にできました。
ご教示ありがとうございます。
|