目安箱 IV

目安箱投稿のルールはこちらをごらんください。
ご意見は電子メールで承っています。
「目安箱」は質問禁止です。技術的な質問はそれぞれの質問箱へどうぞ。

迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
98 / 118 ﾂﾘｰ ←次へ　｜　前へ→
【61】マクロを選んで実行したい。 Jaka 04/8/5(木) 13:05 Excel[未読]
【61】マクロを選んで実行したい。
Excel  Jaka  - 04/8/5(木) 13:05 -
引用なし
パスワード
   わざわざこんな事書かなくてもいいかなとは、思ったんですが...。

例えば、コンボボックスからマクロを選択して実行する場合。

ユーザーフォーム

Private Sub CommandButton1_Click()
　　Application.Run (ComboBox1.List(ComboBox1.ListIndex))
End Sub

Private Sub UserForm_Initialize()
　　TB = Array("マクロ１", "マクロ２", "マクロ３")
　　Me.ComboBox1.List = TB
End Sub

************************
標準モジュール

Sub マクロ1()
　　MsgBox "マクロ１"
End Sub

Sub マクロ2()
　　MsgBox "マクロ２"
End Sub

Sub マクロ3()
　　MsgBox "マクロ３"
End Sub
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
98 / 118 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：   
0
(SS)C-BOARD v3.8 is Free