' [385.xls]



' [Module1] のコード
'★★☆　複数コンボボックスに同データを挿入する　☆★★

Option Explicit

Sub start()

    UserForm1.Show

End Sub


' [UserForm1] のコード
Option Explicit
Dim i As Integer


Private Sub ComboBox1_Change()

    Frame1.SetFocus
    
End Sub

Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    
    With ComboBox1
    
        Me.Caption = .ListIndex + 1 & " 番目のデータを選択"
    
        For i = 2 To 4
            
            '連続するコントロールの操作を簡単にするテクニック
            Controls("ComboBox" & i) = .Value
        Next i
    
    End With
    
End Sub

Private Sub UserForm_Initialize()
Dim mycmb As Control

Dim str As String
    
    For i = 1 To 10
        
        'サンプルデータの作成
        str = Format(i, "00") & "-" & _
            Chr(Int((90 - 64) * Rnd + 65)) & _
            Chr(Int((90 - 64) * Rnd + 65)) & _
            Chr(Int((90 - 64) * Rnd + 65))
    
        For Each mycmb In Controls
        
            With mycmb
                
                'Like 演算子を使って名前を比較します
                If .Name Like "ComboBox*" Then
                    .AddItem (str)
                    mycmb.ListIndex = 0
                End If
            End With
            
        Next
        
    Next i
        
    Me.Caption = "同じデータを挿入しました"

End Sub