Question

如何在VBA中使单元格为下拉列表？

那位大虾知道如何在VBA中实现某一单元格为下拉选择，比如下拉选择“男”或“女”？
谢谢，我必须用VBA实现某一单元格为下拉列表？还请高手指点。。

Answer 1

你可以用录制宏按钮实现。首先在主菜单选工具，宏，录制新宏。然后开始录制。在需要实现下拉框的单元格中选取，选数据，有效性，选序列，输入“男，女”即可，停止宏。按Alt+F11进入VBA代码，所得的模块中的代码即是你所要的代码。你可一举一反三。不知是否有所帮助。注意，在输入“男，女”的逗号需关闭输入法。

Answer 2

不用VBA也可以实现

直接点击单元格，在菜单 数据/有效性 设置选项卡里，第一个下拉框选择“例表”，在“数据”框里输入 男,女回车就可以了。

你也可以利用窗体控件里的组合框，不过没有数据有效性方便哈。

Answer 3

With Range("A1:A2").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="男,女"
End With

程序功能：指定A1:A2 区域下拉列表 男，女
注意：此处指定单元格时必须用range()，不能用cells()

Answer 4

Sub Macro1()
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="男,女"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub