|
タカさん、こんにちは
こんな感じです・・・
>InputBoxを使用し、複数のマクロから使用するマクロを選択したいのですが
>方法がわかりません。
>どなたかご教授願います。
>
>マクロは3個あり Macro1()=1、Macro2()=2、Macro3()=3 と置き換えてInputBoxで数値を入力してマクロを選択します。
>
>少しだけ作ってみましたが?
>
>Sub Macro4()
>'
>' Macro4 Macro
>' マクロ記録日 : 2004/3/22 ユーザー名 :
>'
>
>'
> Worksheets("Sheet1").Activate
> Dim myStr1 As String
>
> myStr1 = Application.InputBox(" Macro1()=1 Macro2()=2 Macro3()=3, "訂マクロ選択入力", Type:=2)
myStr1 = Application.InputBox("Macro1()=1 Macro2()=2 Macro3()=3", "訂マクロ選択入力", Type:=2)
Select Case myStr1
Case "1"
Call Macro1
Case "2"
Call Macro2
Case "3"
Call Macro3
Case Else
MsgBox "処理を中止します。"
End Select
>・
>・
>・
> End Sub
|
|