マクロの実行とコマンドボタン

質問

office2000、WIN98SEです。

マクロの記録でマクロを作成しました。
これをコマンドボタンにコピペして実行するとエラーになります。マクロの実行から動かすとなんの問題もありません。なにがいけないんでしょう。教えてください。
ちなみにやりたいことは、複数のシートの同じセルを一気にクリアにしたいです。
記録したマクロは以下の通りです。宜しくお願いします。

Sheets(Array("用紙(1)", "用紙(2)", "用紙(3)", "用紙(4)")).Select
Sheets("用紙(1)").Activate
Range("B9").Select
ActiveWindow.SmallScroll Down:=36
Range("B9:C58").Select
Selection.ClearContents
Range("F9").Select
ActiveWindow.SmallScroll Down:=36
Range("F9:G58").Select
Selection.ClearContents
Range("I9").Select
ActiveWindow.SmallScroll Down:=36
Range("I9:I58").Select
Selection.ClearContents
Sheets("用紙(1)").Select
Range("B9").Select
End Sub

回答No.3

ja7awu · ベストアンサー

> マクロの実行から動かすとなんの問題もありません。
> なにがいけないんでしょう。
> Range("B9").Selectのところが黄色くなります。

コマンドボタンをどのシートに配置しましたか。
たぶん、用紙(1)～(4)以外のシートではありませんか。
もし、そうだとするとRange("B9")は、Select出来ません。
Sheets(Array・・・も使えないと思いますよ。

次のコードでテストしてみてください。
一度もSelectしていません。
たぶん、同様の結果になると思います。

Private Sub CommandButton1_Click()
Dim SHname As String
Dim N As Integer
For N = 1 To 4
　　SHname = Choose(N, "用紙(1)", "用紙(2)", "用紙(3)", "用紙(4)")
　　With Sheets(SHname)
　　　　.Range("B9:C58").ClearContents
　　　　.Range("F9:G58").ClearContents
　　　　.Range("I9:I58").ClearContents
　　End With
Next
End Sub

お礼

その通りでした。日付を入力する別シートにコマンドボタンを作ってました。
シートが違うとSelectできないんですね。知りませんでした。初心者のあさはかな考えはやっぱりダメですね。朝からずっと悩み続けてましたのでとても助かりました。いつもありがとうございます。

回答No.2

maruru01

こんにちは。maruru01です。

後ろの方の、

Sheets("用紙(1)").Select

を、

Sheets("用紙(1)").Activate

にしてみたらどうですか。

補足

やってみましたけど、ダメでした。
エラーが出てデバッグをクリックすると3行目のRange("B9").Selectのところが黄色くなります。ここがおかしいって意味なのでしょうか？初歩的な質問で申し訳ないです。

回答No.1

rara_sun

どんなエラーになりますか？
ちなみに、私のExcel2000で実行してもなんらエラーがでません。

補足

実行時エラー'1004'
RangeクラスのSelectメソッドが失敗しました。
となります。
宜しくお願いします。