Excel VBA-組合框

Question

大家好，我是編程和VBA的完全入門者。 我創建了一個用戶窗體，並添加了一些組合框。 在組合框中，我使用With .additem EndWith函數創建了一個下拉列表。 現在，每次用戶按下組合框內的項目時，我都會使用諸如此類的代碼插入消息框

if ComboBox1.ListIndex = 2 Then Msgbox "Do you want to open the Reports screen?", vbYesNo 

該代碼有效，但有時用戶必須多次按下按鈕才能顯示MsgBox。

我現在創建了一個新的用戶表單，並嘗試進行以下操作

if ComboBox1.ListIndex = 1 Msgbox msg("Do you want to create a new company?", vbYesNo) = vbYes then userform1.show 

上面的代碼不起作用，但是由於我缺乏知識，我不知道該怎么辦，這就是我在這里的原因。所以上面的代碼意味着，如果在combobox1中，您可以按一下並按下它要獲得yesNo msgbox，如果按Yes，則應該出現Userform1。

我知道它是可行的，因為ive設法使userform 1出現了，但是我的問題是VByesNO。

Answer 1

好的，因此解決方案（如PEH所述）是通過And連接條件And刪除msg 。

If ComboBox1.ListIndex = 1 And Msgbox("Do you want to create a new company?", vbYesNo) = vbYes Then UserForm1.Show

代替

If Combobox1.Listindex =1 Msgbox msg("Do you want to create a new company?", vbYesNo) = vbYes Then UserForm1.Show