Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

25585 / 76732

←次へ　｜　前へ→


	【56485】Re:コマンドボタン

マクロマン - 08/6/19(木) 9:35 -


	引用なし

	パスワード

それぞれのコマンドボタンにはどのようなコードを登録しているのでしょうか？

単にシートをループしていくではダメなのでしょうか？
サンプルです。

Dim i As Integer
Dim ws As Worksheet
　For i = 1 To Worksheets.Count
　 Set ws = Worksheets(i)
　 MsgBox ws.Name
　Next i

一応、標準モジュールからシートに配置したコントロールツールボックスのコントロール
のクリックイベントを発声させる方法を書いておきます。

↓は、標準モジュールから左から一番目のシートのコマンドボタン1のクリックイベント
を発生させます。

'標準モジュール
Sub test()
Dim wb As Workbook
　Set wb = ThisWorkbook
　Call wb.Worksheets(1).CommandButton1_Click
　Set wb = Nothing
End Sub

変数wbは念のために入れてあります。

1 hits

▼

【56479】コマンドボタン ﾄｷﾉﾊｼﾞﾒ 08/6/18(水) 21:10