使用组合框的属性就可以了,不用写VBA代码。
‘假设sheet1,只有一个窗体combobox-->sheet1.shapes(1)]
................................
Dim rCombo As Range
Set rCombo = Range(Sheet1.Shapes.Item(1).ControlFormat.ListFillRange)
MsgBox rCombo(Sheet1.Shapes.Item(1).ControlFormat.ListIndex)
cells(1,2)=X
X是你想要赋的值
1,表示Row
2,表示Column
Cells(1,2)表示B1位置
cells(1,2).value = ?