教育技術お助けブログ

Macroの中身をコピー
デザインモードにして、コマンドボタンをＷクリックすると、
Private Sub CommandButton1_Click()
Macro1
End Sub
となります。これが、コマンドボタンのプロシージャーです。一方Macro1の内容は、下のようになっていました。
Sub Macro1() 　…(1)
'　　　　　　　　　　　　　　　　　　　　　　　 …(2)
' Macro1 Macro　　　　　　　　　　　　　　　　 …(3)
' マクロ記録日 : 2006/7/5 ユーザー名 : AAAAAA　…(4)
Sheets("Sheet2").Select　　　　　　　　　　　 …(5)
End Sub　　　　　　　　　　　　　　　　　　　　…(6)

(2)〜(4)はコメント行なので、マクロの動きには全く関係がありませんでした。(1)と(2)は始めと終わりを表しているので、マクロとして動いているのは、(5)の行だけです。では、コマンドボタンのMacro1の代わりに、(5)の行を入れてみましょう。

Private Sub CommandButton1_Click()
Sheets("Sheet2").Select
End Sub

これでもコマンドボタンをクリックすれば、ちゃんと動くはずです。試してみましょう。