excel vba下拉菜单怎么做

工具：Office2013

方法如下：

选择要设置下拉菜单的区域，点击数据中的“数据验证”：

在允许下，选择“序列”，在来源中输入下拉菜单内容，注意用英文逗号分隔，完成后，点击确定：

这样，就在Excel中制作好了下拉菜单：

如下这段，就是先选中 A列，然后设置它的下拉菜单数据为：ABC,BCD,CDE,DEF

如果下拉菜单数据来源于单元格，则把 Formula1:="ABC,BCD,CDE,DEF" 换成单元格地址，比如 Formula1:="=$B$1:$B$3" 这样即可。

Sub Macro1()

Columns("A:A").Select

With Selection.Validation

.Delete

.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _

xlBetween, Formula1:="ABC,BCD,CDE,DEF"

End With

End Sub

有疑问，请Hi我或给我发百度消息

GoodLuck!

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

---