[[20070408171125]]　『アクティブシートの変更』（青空）　ページの最後に飛ぶ

『アクティブシートの変更』（青空）
Excel2000
Sheet1のコマンドボタンにマクロが記述されています。
Sheet1のマクロを実行後Sheet2に移動してSheet2のマクロを実行するには？

 'シート１のコマンドボタン
 Private Sub CommandButton1_Click()

	シート１のコマンドボタンで実行されるマクロ(現状の物)

	Sheets("Sheet2").Select　’シートを移動します。
	Call ???　’シート２で実行するマクロ

 End Sub

	Call ???　’シート２で実行するマクロ
 のところで、もしシート２でも
 Private Sub CommandButton2_Click()
 とかなっていて、この中のマクロを動かすには、
 この中のマクロをsubに書き出して、そのsubを指定すれば
 良いでしょう。
 (dokomo)

 質問の意味がよく解かりませんが。 BJ

 シート１のマクロ
 Private Sub CommandButton1_Click()
 MsgBox "シート１のマクロ"
 Sheets("Sheet2").Select
 Sheets("Sheet2").CommandButton1 = True
 End Sub

 シート２のマクロ
 Private Sub CommandButton1_Click()
 MsgBox "aaa"
 End Sub

コメント返信：