如何使用VBA建立自己的下拉菜單？使用VBA操作數(shù)據(jù)的有效性，并給你一個參考代碼。這是基于Excel的。對于ET，將內置常量更改為sub validity refresh（targetasrange）

如何使用VBA建立自己的下拉菜單？

使用VBA操作數(shù)據(jù)的有效性，并給你一個參考代碼。這是基于Excel的。對于ET，將內置常量更改為sub validity refresh（targetasrange）dimt1asrange，t2asrange，sett1=范圍（Target.Validation.Formula1公式)Ift1（1）.Row=t1（2）.RowThen Sett2=Range（t1（1），t1（1）.End（xlToRight））Else Sett2=Range（t1（1），t1（1）.End（xlDown））EndIfWithTarget.驗證.Delete.AddType:=xlValidateList，AlertStyle:=xlValidAlertStop，運算符：=Xlbetween，公式1：=“=”&t2。地址。Showerror=false endwith sett1=nothing sett2=nothing endsub

插入組合框添加代碼組合框1。添加項“星期一”組合框1。添加項“星期二”組合框1。添加項“星期三”組合框1。添加項“星期四”組合框1。添加項目“星期五”組合框1。添加項“星期六”組合框1。添加項“星期日”

excelvba下拉菜單怎么做？

1對于I=1到5組合框1。添加工作表（“已定義名稱”）。單元格（1，I）next2選擇case組合框1。Valuecase “top loading ”對于I=1到100 if sheets（“defined names”）。單元格（I，1）=“”然后退出combobox2。添加工作表（“已定義名稱”）。單元格（I，1）下一步為I=1到100的If工作表（“定義名稱”）。單元格（I，2）=“然后退出組合框2。添加工作表（“已定義名稱”）。單元格（I，2）下一步

如果要在工作表中創(chuàng)建下拉選項，建議在ActiveX中插入組合框控件并設置其listfillrange區(qū)域。如果要在窗體中創(chuàng)建下拉選項，請插入組合框，使用addItem方法添加項，并在控件屬性中設置相關屬性。