ユーザーフォームチェックされているチェックボックスと同じ番号のテキストボックスを取得（Excel VBA）

【本日のミッション】

チェックされているチェックボックスと同じ番号が、名前に含まれるテキストボックスを取得せよ。

1 ミッションの概要
2 コマンドボタンに処理設定
3 ユーザーフォームを表示して動作を確認
4 Controlsプロパティ
5 【参考】

ミッションの概要

チェックされているチェックボックスと同じ番号が、名前に含まれるテキストボックスのテキストを取得せよ、というのが今回のミッションです。

取得したテキストは、コマンドボタン［参加者名］をクリックすると表示される仕組みにします。チェックボックスとテキストボックスは、隣になるもの同士番号を揃えておきます。

「CheckBox1」ー「TextBox1」
「CheckBox2」ー「TextBox2」
「CheckBox3」ー「TextBox3」
「CheckBox4」ー「TextBox4」
「CheckBox5」ー「TextBox5」

↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓

ユーザーフォームチェックされているチェックボックスと同じ番号のテキストボックスを取得（Excel VBA）

■■■スポンサーリンク■■■

コマンドボタンに処理設定

［参加者名］ボタンに、チェックされているチェックボックスと同じ番号が、名前に含まれるテキストボックスのテキストを表示させる処理を施します。
オブジェクトウインドウから、［参加者名］ボタンをダブルクリックすると、コードウィンドウが表示され、下記コードが追加されています。

「Private Sub 〇〇〇_Click()」に書いた処理は、〇〇〇をクリックした時に行われます。

Private Sub btn参加者名_Click() ～ End Sub 内に下記の通り、コードを追加します。

Private Sub btn参加者名_Click()
    Dim i As Long        'カウンター
    Dim nm As String     'コントロール名
    Dim s_name As String '参加者名

    For i = 1 To 5
    
        nm = "CheckBox" & i  'コントロール名
    
        '■チェックボックスがチェックされている場合
        If Controls(nm) = True Then
        
            '■参加者名
            s_name = s_name & Controls("TextBox" & i).Text & Chr(10)
        End If
    Next i
     
    MsgBox "参加者名は" & Chr(10) & s_name & "です。"

End Sub

■■■スポンサーリンク■■■

ユーザーフォームを表示して動作を確認

このコード内にカーソルを置いたまま、［F5］キーをクリックする（ユーザーフォームの実行）とユーザーフォームが表示されます。

任意のチェックボックスにチェックを入れ、［参加者名］ボタンをクリックすると、参加にチェックが入っている名前が表示されます。

今回は、［閉じる］ボタンを付けていないため［×］ボタンでユーザーフォームを閉じます。

Controlsプロパティ

Controlsプロパティの引数に「コントロール名」を指定すると、指定した名前のコントロールを取得します。

UserForm.Controls(”コントロール名”)

今回は「For～Next」で「CheckBox1」～「CheckBox5」を順に変数「nm」に入れ、それをControlsプロパティの引数「コントロール名」として指定しています。

チェックボックスが「True」だった場合のみ、「“TextBox” & i」をControlsプロパティの引数に指定して、名前のテキストを取得します。

For i = 1 To 5
    nm = "CheckBox" & i 'コントロール名
    If Controls(nm) = True Then 
        s_name = s_name & Controls("TextBox" & i).Text & Chr(10)  ’参加者名
    End If
Next i

↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓

【参考】

■■■スポンサーリンク■■■