目安箱 IV

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

迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

┃ ┃ ┃ ┃ ┃ ┃

225 / 277

←次へ　｜　前へ→

【61】マクロを選んで実行したい。

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

3,607 hits

【61】マクロを選んで実行したい。 Jaka 04/8/5(木) 13:05

≪

┃ ┃ ┃ ┃ ┃ ┃

225 / 277

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free