EXCEL VBA窗體三級(jí)下拉菜單？ExcelVBA字典實(shí)現(xiàn)窗體二級(jí)下拉菜單：?jiǎn)栴}提出:選擇確定ComboBox1中的數(shù)值后，ComboBox2的下拉列表自動(dòng)引用ComboBox1中數(shù)值對(duì)應(yīng)的列的內(nèi)容

EXCEL VBA窗體三級(jí)下拉菜單？

ExcelVBA字典實(shí)現(xiàn)窗體二級(jí)下拉菜單：?jiǎn)栴}提出:選擇確定ComboBox1中的數(shù)值后，ComboBox2的下拉列表自動(dòng)引用ComboBox1中數(shù)值對(duì)應(yīng)的列的內(nèi)容。如何能做到，現(xiàn)在想在加一重判斷：就是判斷ComboBox2中的數(shù)值，如果是原來(lái)ComboBox1對(duì)應(yīng)列中已有的值，就直接向下進(jìn)行，如果原來(lái)ComboBox1對(duì)應(yīng)列中沒(méi)有該值，自動(dòng)添加到該列最下一個(gè)非空行之后再向下執(zhí)行。

EXCELVBA窗體三級(jí)下拉菜單？

確定要用VBA，這個(gè)完全可以通過(guò)公式解決。以上表為例，操作如下：

分別將A列、C列、G列，命名為：公司、部門(mén)、員工

設(shè)計(jì)如下圖所示的表2

分別在B1D1F1設(shè)置“數(shù)據(jù)驗(yàn)證-序列”如圖

在來(lái)源處輸入：

B1: =OFFSET(公司，1，0，COUNTA(公司)-1，1)

D1: =OFFSET(部門(mén)，1，MATCH($B$1&"公司部門(mén)"，OFFSET(部門(mén)，0，0，1，COUNTA(公司)-1)，0)-1，COUNTA(OFFSET(部門(mén)，0，MATCH($B$1&"公司部門(mén)"，OFFSET(部門(mén)，0，0，1，COUNTA(公司)-1)，0)-1，，1))-1，1)

F1: =OFFSET(員工，1，MATCH($B$1&"公司員工"，OFFSET(員工，0，0，1，COUNTA(公司)-1)，0)-1，COUNTA(OFFSET(員工，0，MATCH($B$1&"公司員工"，OFFSET(員工，0，0，1，COUNTA(公司)-1)，0)-1，，1))-1，1)

下面試下，你會(huì)發(fā)現(xiàn)單關(guān)聯(lián)的下拉列表出來(lái)！https://iknow-pic.cdn.bcebos.com/0e2442a7d933c8950d9baf57dd1373f082020030

https://iknow-pic.cdn.bcebos.com/5243fbf2b2119313e65fc99c69380cd791238df9

ExcelVBA實(shí)現(xiàn)窗體二級(jí)下拉菜單？

1FOR i=1 to 5 combobox1.add sheets("定義的名稱(chēng)").cells(1，i)next2select case combobox1.valuecase "上裝"for i=1 to 100 if sheets("定義的名稱(chēng)").cells(i，1)="" then exit for combobox2.add sheets("定義的名稱(chēng)").cells(i，1)nextcalse "下裝"for i=1 to 100 if sheets("定義的名稱(chēng)").cells(i，2)="" then exit for combobox2.add sheets("定義的名稱(chēng)").cells(i，2)next......

excel vba下拉菜單怎么做？

如果要想在工作表中做下拉選項(xiàng)，建議插入ActiveX中組合框控件，設(shè)置他的ListFillRange區(qū)域，要想在窗體中建立下拉選項(xiàng)，插入復(fù)合框combobox，使用AddItem方法添加條目，在控件屬性中設(shè)置相關(guān)的屬性。

word中如何用vba在彈出對(duì)話(huà)框中使用下拉菜單，然后將下拉菜單的選項(xiàng)賦值給變量？

這個(gè)對(duì)話(huà)框需要你自己做一個(gè)用戶(hù)窗體，插入組合框控件。然后通過(guò)代碼控制窗體的顯示與隱藏。

先設(shè)置窗體隱藏，在該出現(xiàn)對(duì)話(huà)框的時(shí)候控制窗體顯示，確定按鈕賦值并隱藏，取消按鈕不賦值并隱藏。

賦值只要帶上完整對(duì)象名就行了，比如:

a = UserForm.ComboBox1.Value

簡(jiǎn)言之，就是不要用默認(rèn)的對(duì)話(huà)框msgbox

excel vBA如何將窗體關(guān)閉？

1、在工作表中，點(diǎn)擊菜單欄【開(kāi)發(fā)工具】，在其工具欄內(nèi)，點(diǎn)擊【visual basic】。

2、會(huì)進(jìn)入VBA編輯界面！點(diǎn)擊工具欄內(nèi)【插入用戶(hù)窗體】按鈕，在其下拉菜單中，選擇【模塊】。

3、會(huì)彈出模塊編輯窗口。

4、在代碼編輯窗口輸入以下代碼：sub 關(guān)閉文件()，Workbooks("963.xls").Close ture，Workbooks("258.xls").Close，End Sub。

5、在VBA窗口，點(diǎn)擊【運(yùn)行】按鈕！即可關(guān)閉【963.xls】和【258.xls】?jī)蓚€(gè)文件。

6、VBA工程窗口中，這兩個(gè)文件被關(guān)閉不見(jiàn)了。

excel vba中我在窗體使用復(fù)合框ComboBox1，同時(shí)想將其下拉菜單指定到sheet1表中的A列？

在窗體的激活事件中加上 For I = 1 To [A65536].End(xlUp).Row "1 到A列最后有數(shù)據(jù)的一行 ComboBox1.AddItem Range("A" & I).Value Next