エクセルVBA ”型が一致しません”エラー

月末の日付分の処理をしており、月末の終わりに
合計欄の表示をしたいと思っております。（合計欄の表示と言っても関数の入っている枠組みだけです）
Sub 練習()

Dim X As Long
Set S1 = Sheets("Sheet1")

X = S1.Cells(3, 3).Value　'Xはday関数から求めた月末日が入っている

Range("AA1:AF1").Select　'合計欄の枠組みをコピー
Selection.Copy

Range(Cells("J", X)).Select '合計欄を表示させる箇所は列は固定Ｊ列行は変数Ｘ行
ActiveSheet.Paste

End Sub
合計欄を表示させる箇所で”型が一致しません”となるのですが、どのような修正が必要でしょうか、初心者なので
出来ましたら、具体的な説明をよろしくお願い致します。

No.1 ベストアンサー 回答者： eipu 回答日時： 2003/08/03 13:46

> Range(Cells("J", X)).Select '合計欄を表示させる箇所は列は固定Ｊ列行は変数Ｘ行

cells()の書式は
cells(行,列)
です。

ですから、
Range(Cells(X, "J")).Select
とすべきでしょう。
もしくは、
Range("J" & X).select
とすると良いと思われます。

この回答へのお礼

早々に解答いただきまして有り難うございます。早速、修正いたしましたら、正常に終了いたしました。助かりました。初心者なもので、Ｘの定義の仕方が悪いのか、Ｘの値がエラーを招くのかそんな事ばかりを考えていました。

お礼日時：2003/08/03 14:06