Question

EXCEL中VBA如何将COMBOBOX中的值赋给变量，关于编程问题

Sub query()
Dim a As String

Sheets("查询页").Select
Range("a8:i120").ClearContents
a = Sheets("查询页").Cells(2, 3)
b = Sheets("查询页").Cells(2, 5)
c = a & b
Sheets(c).Visible = True
Sheets(c).Select
Range("a1:i101").Select
Selection.Copy
Sheets("查询页").Select
Range("a8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Sheets(c).Visible = False
End Sub
这是我的原程序，想达到的目的是在两个单元格 2,3 2,5中输入数据，然后把他俩和对应的表格提取出来，再复制内容，粘贴到查询页中。。。

现在我想把2,3 2,5 改成 COMBOBOX为了更加专业美观，，，，如果把 a b 赋予 COMBOBOX中的值？ a的数据是可选 男，女 b的数据是可选0，10，,20,30,40,50,60， 谢谢！

Answer 1

将旅孝咐这部分代码放入初始化模拆纯块中：
ComboBox1.AddItem "男"
ComboBox1.AddItem "女"

ComboBox2.AddItem "0"
ComboBox2.AddItem "10"
ComboBox2.AddItem "20"
ComboBox2.AddItem "30"
ComboBox2.AddItem "40"
ComboBox2.AddItem "50"
ComboBox2.AddItem "慎此60"
在你需要的地方这样调用值：
这样给a赋值：a=ComboBox1.value

这样给b赋值：b=ComboBox2.value