如何将combobox 中的selecteditem 传递到字串?
Private Sub ComboBox2_Change(ByVal v2)
ActiveSheet.Shapes("ComboBox2").Select
Selection.ListFillRange = "G25:G35"
Dim instance2 As ComboBox
value2 = instance2.SelectedItem
instance2.SelectedItem = value2
v2 = value2.tostring
End Sub
不工作,谢谢先