Excel VBA質問箱 IV

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

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


6569 / 13644 ツリー ←次へ | 前へ→

【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の使い方について勉強したく思います。

ありがとうございました。動作が順調です。
これからもよろしくお願いします。

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