エクセル2003 マクロ機能を使ったコピー

質問

エクセルのマクロ初心者です。

コピー元は、計算式が入ったセルです。
値のみを別のシートへコピーしたいと思っていますが
40番の行でエラーとなってしまします。
行き詰ってしまったため、ご教授いただければ幸いです。

よろしくお願いします。

以下が現在のマクロです。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub

10 月 = Worksheets("毎月").Cells(1, 2)
20 月 = 月 + 3
30 Worksheets("毎月").Range("F24").Copy
40 Worksheets("年").Range(Cells(月, 3)).Select
50 Selection.PasteSpecial Paste:=xlPasteValues

End Sub
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

回答No.1

keithin · ベストアンサー

直接の回答としては
変更前：
Worksheets("年").Range(Cells(月, 3)).Select
変更後：
Worksheets("年").Cells(月, 3).Select
のようになります。１０行に書いたのと同じですね。

実際にはセレクトとか極力せずに
sub macro1()
　dim m as long
　m = worksheets("毎月").range("B1").value + 3
　worksheets("年").cells(m, 3).value = worksheets("毎月").range("F24").value
end sub
のような書きぶりで作成できるよう，練習してみてください。

お礼

原因とマクロの基本的な考えについて、教えて頂きありがとうございます。
マクロも無事に動きました！

今後は、アドバイスいただいた内容を意識して作成してみます。

回答No.2

imogasi

私流にテスト
Private Sub test01()
月 = Worksheets("Sheet1").Cells(1, "Ｂ")
月 = 月 + 3
MsgBox 月
Worksheets("Sheet2").Range("F24").Copy Destination:=Worksheets("Sheet3").Cells(月, "C")
Selection.ClearFormats
End Sub
＞test01()
の部分が無い。こういう凡ミスに注意。
＞Worksheets("Sheet1").Cells(1, "Ｂ")
個人的には、Cells(1, 2)より判りやすい。
＞・・・Destination:=Worksheets("Sheet3").Cells(月, "C")
このほうが簡潔。
ただし書式も移る。普通は移るほうが望ましいが、イヤなら
Selection.ClearFormatsを入れた。
＞Range(Cells(月, 3)).Select
ＲａｎｇｅとＣｅｌｌｓは、セル範囲を表すときは、組み合わせて使うが、単独セルを指定する場合ならＲａｎｇｅ（）かＣｅｌｌｓ（）のどちらか１つで良い。
本質問はここがエラー原因だろう。

お礼

テストまでしてもらい、ありがとうございます。
無事に解決できました。

また、分かりやすいセルの指定方法も参考になりました。