Excel VBA質問箱 IV

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

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


12150 / 13645 ツリー ←次へ | 前へ→

【12019】マクロの選択方法 タカ 04/3/22(月) 13:11 質問
【12020】Re:マクロの選択方法 Asaki 04/3/22(月) 13:18 回答
【12022】Re:マクロの選択方法 Asaki 04/3/22(月) 13:28 回答
【12021】Re:マクロの選択方法 こうちゃん 04/3/22(月) 13:20 回答
【12093】Re:マクロの選択方法 タカ 04/3/23(火) 20:27 お礼

【12019】マクロの選択方法
質問  タカ  - 04/3/22(月) 13:11 -

引用なし
パスワード
   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)




End Sub

【12020】Re:マクロの選択方法
回答  Asaki  - 04/3/22(月) 13:18 -

引用なし
パスワード
   こんにちは。

単純に、Select Case 辺りで分岐処理をされては如何でしょうか?
Select Case myStr1
  Case "1":  Macro1
  Case "2":  Macro2
  Case "3":  Macro3
End Select

【12021】Re:マクロの選択方法
回答  こうちゃん E-MAIL  - 04/3/22(月) 13:20 -

引用なし
パスワード
   タカさん、こんにちは

こんな感じです・・・

>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

【12022】Re:マクロの選択方法
回答  Asaki  - 04/3/22(月) 13:28 -

引用なし
パスワード
   >InputBoxで数値を入力
なら、Typeは1では?

また、マクロ名がご提示の通りなら、↓のような方法も考えられます。
Sub test()
  Dim varRet     As Variant

  varRet = Application.InputBox(Prompt:="Macro1()=1 Macro2()=2 Macro3()=3", _
    Title:="訂マクロ選択入力", Type:=1)
  If VarType(varRet) = vbBoolean Then Exit Sub
  Application.Run "Macro" & CLng(varRet)

End Sub

エラー処理はしていません。

【12093】Re:マクロの選択方法
お礼  タカ  - 04/3/23(火) 20:27 -

引用なし
パスワード
    こうちゃん、Asakiさんお礼遅くなりました。
本当にありがとうございました。
無事問題を解決でき感謝致しております。
また、解らないことがありましたらご教授願います。

12150 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free