Question

vba做一个excel的下拉菜单，以提供选择输入

比如我规定在A列弄一个下拉菜单，其中菜单数据为星期一，星期二，一直到星期天。我有特殊用途，所以想用VBA来做。如果是用设置的话，我也会的

Answer 1

插入组合框ComboBox
添加代码
ComboBox1.AddItem "星期一"
ComboBox1.AddItem "星期二"
ComboBox1.AddItem "星期三"
ComboBox1.AddItem "星期四"
ComboBox1.AddItem "星期五"
ComboBox1.AddItem "星期六"
ComboBox1.AddItem "星期日"

追问

其实我是要在sap里面用的。所以我想直接用VBA宏来实现。如果插入组合框的话，增大了在SAP系统里面的难度。希望能直接通过VBA来实现

追答

将列以星期序列输入格式VBA代码：
Columns("A:A").Validation.Delete
Columns("A:A")..Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="星期一,星期二,星期三,星期四,星期五,星期六,星期日"

Answer 2

Sub 星期()
   Columns("A:A").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="星期一,星期二,星期三,星期四,星期五,星期六,星期日"
End Sub

'已测试通过