ユーザーフォームドロップダウンリストVBA

Question

すべて、

私は4つの項目のリストダウン基本的なドロップさせたいユーザーフォーム（ユーザーフォーム3）作成した - りんご/オレンジ/梨/バナナを。 （バックグラウンドVBAでハードコードされています）、ユーザーがサブを終了するために選択したものが1つも選択されていない場合

どうすればいいですか？

参考のために挿入した画像はありますか？

Answer 1

以下のコードを使用しUserForm_InitializeイベントにFruits_CBコンボボックスを移入するには、次のユーザーは、リストから任意の項目を選択し、ボタンをクリックし、使用されていない場合

Private Sub UserForm_Initialize() 

' populate "Fruits_CB" Combo-Box with fruits 
With Me.Fruits_CB 
    .Clear ' clear previous items (not to have "doubles") 
    .AddItem "Apples" 
    .AddItem "Oranges" 
    .AddItem "Pears" 
    .AddItem "Bananas" 
End With 

End Sub 

をSub以下：

Private Sub CommandButton1_Click() 

If Me.Fruits_CB.ListIndex = -1 Then 
    Exit Sub 
Else 
    ' Do something  
End If 

End Sub