VBA：Excel ：フォーム／コンボボックス

Listから選択

Private Sub UserForm_Initialize()

    Me.cbo.Style = fmStyleDropDownList

    Me.cbo.Clear
    Me.cbo.AddItem "a"
    Me.cbo.AddItem "b"
    Me.cbo.AddItem "c"
    Me.cbo.AddItem "d"
    Me.cbo.AddItem "e"
    
End Sub

Private Sub CommandButton1_Click()
    
    Dim i As Long
    For i = 0 To Me.cbo.ListCount - 1
        If Me.cbo.List(i) = "c" Then
            Me.cbo.ListIndex = i
        End If
    Next i

End Sub