ComboBox.Value錯誤 - Excel VBA

Question

我在我的電子表格中有一個組合框。我試圖從中獲取選定的值。但沒有能夠這樣做。

這些是我試過的代碼：

Range("A1")=ComboBox1.SelectedItem 

而且

Range("A1")=ComboBox1.Value 

請幫助我。他們都沒有工作。

這是我添加的項目將ComboBox：

For i = 2 To lastnum   
    disName= ThisWorkbook.Sheets(final).Range(Col& i).Value   
    With wb21Tool.Sheets("Main").ComboBox1   
     .AddItem disName   
    End With   
Next 

Answer 1

您需要完全限定的對象，嘗試：

wb21Tool.Sheets("Main").Range("A1").Value = wb21Tool.Sheets("Main").ComboBox1.Value 

或者，

With wb21Tool.Sheets("Main") 
    .Range("A1").Value = .ComboBox1.Value 
End With