2013-06-12 52 views

回答

1
With ComboBox1 
    .AddItem "Item1" 
    .AddItem "Item2" 
End With 

ActiveSheet.Shapes("ComboBox1").ListFillRange = "A1:A10" 
+0

在默認情況下,上面的語句將爲組合框的文本和值屬性設置相同的值。即combobox.Text和combobox.Value將返回「Item1」。我需要的是,combobox.Text應該返回「Item1」,並且combobox.Value應該返回1.因此如何將這些值綁定到組合框。 –

+0

您爲什麼要讓.Value返回1?你試圖達到什麼目標? – 2013-06-12 14:29:46

0

當我創建從Access VBA的Excel組合框,我用以下sytnax:

With ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1") 
    With .Object 
     .TextAlign = 2 
     '.LinkedCell = "D6" 
     '.ListFillRange = "G16:G23" 
    End With 
End With 

但在Excel中,兩條註釋行似乎不起作用。希望有幫助嗎?

相關問題