求VBA程式，单元格下拉列表。

发布网友 发布时间：2022-04-20 17:55

我来回答

共4个回答

热心网友 时间：2023-07-02 10:34

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

热心网友 时间：2023-07-02 10:35

不用VBA也可以实现

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

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

参考资料：www.office-zone.cn/bbs

热心网友 时间：2023-07-02 10:35

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

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

热心网友 时间：2023-07-02 10:36

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