vba做一个<em>excel</em>的下拉菜单，以提供选择输入-excel vba菜单,ex

ExcelVBA字典实现窗体二级下拉菜单：

问题提出:

选择确定zdComboBox1中的数值后，ComboBox2的下拉列表自动引用ComboBox1中数值对应的列的内容。如何能做到，现在想在回加一重判断：就是判断ComboBox2中的数值，如果是原来ComboBox1对应列中已有的值，就直接向下进行，答如果原来ComboBox1对应列中没有该值，自动添加到该列最下一个非空行之后再向下执行。

插入组合抄框ComboBox
添加代码
ComboBox1.AddItem "星期一"
ComboBox1.AddItem "星期二袭"
ComboBox1.AddItem "星期三"
ComboBox1.AddItem "星期四知"
ComboBox1.AddItem "星期五道"
ComboBox1.AddItem "星期六"
ComboBox1.AddItem "星期日"
用VBA操作数据有效性，给你一段参考代e799bee5baa6e78988e69d83365码
这是基于excel的，et的话要把内置常量改成et形式的
Sub 有效性刷新(Target As Range)
Dim t1 As Range, t2 As Range

Set t1 = Range(Target.Validation.Formula1)
If t1(1).Row = t1(2).Row Then
Set t2 = Range(t1(1), t1(1).End(xlToRight))
Else
Set t2 = Range(t1(1), t1(1).End(xlDown))
End If
With Target.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=" & t2.Address
.ShowError = False
End With
Set t1 = Nothing
Set t2 = Nothing
End Sub