|
とりあえず結果報告だけですが、
Book1にこんなコードを書いて
Sub dkdkk()
i = 2
Workbooks("Book1").Sheets("Sheet2").Activate
Range("A3").Select
Selection.Copy
Workbooks("Book1").Sheets("Sheet3").Activate
Cells(i, 8).Select
Cells(i, 8).PasteSpecial Paste:=xlPasteValues
Selection.NumberFormatLocal = "yy/mm/dd"
End Sub
Book1をアクティブにして試してみたら、ちゃんとできました。
他に問題がありそうですね。
ActivateとかSelectとかを使わないコードに変えてやるべきなんだろうけど、
他の人のコード見て自分で考えてみてください。
ブック選択、シート選択、セル選択、選択した者を○○。って書いてあるわけだから、
選択って余分なものと思わないのが、結構不思議。
私は、マクロ記録を編集中になんか選択したものって余分だよな、思ったことがあるので...。
選択コードを抜いてみたらみたで、マクロが動いているのか解らなくて、ガチャガチャ動いていた方が落ち着くなって、1箇所だけわざわざ選択コードの追加したことがあります。
この場合の選択コードは、動いているのがわかればいいので、セルを選択して何かやるといったコードは一切入ってません。
デバッグする時は、何箇所か入れたほうが目で追いやすいので数箇所入れる時もあります。
|
|