Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6571 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【44490】CheckBoxにﾁｪｯｸをつけ、標準マクロを呼び出す ToShiYo 06/11/18(土) 22:22 質問[未読]
【44492】Re:CheckBoxにﾁｪｯｸをつけ、標準マクロを呼... かみちゃん 06/11/18(土) 22:33 発言[未読]
【44500】Re:CheckBoxにﾁｪｯｸをつけ、標準マクロを呼... ToShiYo 06/11/19(日) 21:13 発言[未読]
【44503】Re:CheckBoxにﾁｪｯｸをつけ、標準マクロを呼... maverick 06/11/20(月) 0:21 回答[未読]
【44505】Re:CheckBoxにﾁｪｯｸをつけ、標準マクロを呼... ToShiYo 06/11/20(月) 7:57 お礼[未読]
【44490】CheckBoxにﾁｪｯｸをつけ、標準マクロを呼び...
質問  ToShiYo  - 06/11/18(土) 22:22 -
引用なし
パスワード
   UserForm上のCheckBox1〜3で、該当する標準モジュールの
test1〜3を呼び出す方法を検討し、コードを書きましたが
上手く呼び出しません(testのNoを変数にするとエラーになります）、アドバイスお願いします。「エラーはコンパイルエラー･･･Sub又はFunctionが定義されていません」と出ます。
MsgBoxは正しく番号に繋がるのですが

Private Sub commandbutton1_click()
　Dim i As Integer
　 For i = 1 To 3
　　 If Me.Controls("CheckBox" & i).Value = True Then
　　　MsgBox i & "が選択されました"
'　　Call　test& i 　　'←このところでコンパイルエラーになります
　　　
　　Controls("CheckBox" & i).Value = False　
　　End If
　Next
End Sub
【44492】Re:CheckBoxにﾁｪｯｸをつけ、標準マクロを...
発言  かみちゃん  - 06/11/18(土) 22:33 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>UserForm上のCheckBox1〜3で、該当する標準モジュールの
>test1〜3を呼び出す方法

とりあえず、以下のように分岐させてはいけませんか？
　　　 Select Case i
　　　　 Case 1
　　　　　 Call test1
　　　　 Case 2
　　　　　 Call test2
　　　　 Case 3
　　　　　 Call test3
　　　 End Select
【44500】Re:CheckBoxにﾁｪｯｸをつけ、標準マクロを...
発言  ToShiYo  - 06/11/19(日) 21:13 -
引用なし
パスワード
   ▼かみちゃん さん：
今晩は、ありがとうございました。
お礼が遅くなり失礼しました。
Select Case i で変数を使えたのですね。良く分かりました。
でも、何故この私のコードに問題があるのか分かりません。
しばらく残しておいて、また考えます。
ありがとうございました。失礼します。
Private Sub commandbutton1_click()
　Dim i As Integer
　 For i = 1 To 3
　　 If Me.Controls("CheckBox" & i).Value = True Then
　　　MsgBox i & "が選択されました"
'　　Call　test& i 　　'←このところでコンパイルエラーになります
　　　
　　Controls("CheckBox" & i).Value = False　
　　End If
　Next
End Sub
【44503】Re:CheckBoxにﾁｪｯｸをつけ、標準マクロを...
回答  maverick  - 06/11/20(月) 0:21 -
引用なし
パスワード
   　　　　Run "test" & i
【44505】Re:CheckBoxにﾁｪｯｸをつけ、標準マクロを...
お礼  ToShiYo  - 06/11/20(月) 7:57 -
引用なし
パスワード
   ▼maverick さん：

Runの使い方を勉強する必要がありますね。
DoとRunの使い方について勉強したく思います。

ありがとうございました。動作が順調です。
これからもよろしくお願いします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6571 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free