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

EXCEL VBA窗體三級下拉菜單？

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

EXCELVBA窗體三級下拉菜單？

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

分別將A列、C列、G列，命名為：公司、部門、員工

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

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

在來源處輸入：

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

D1: =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)

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)

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

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

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

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

excel vba下拉菜單怎么做？

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

word中如何用vba在彈出對話框中使用下拉菜單，然后將下拉菜單的選項賦值給變量？

這個對話框需要你自己做一個用戶窗體，插入組合框控件。然后通過代碼控制窗體的顯示與隱藏。

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

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

a = UserForm.ComboBox1.Value

簡言之，就是不要用默認(rèn)的對話框msgbox

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

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

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

3、會彈出模塊編輯窗口。

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

5、在VBA窗口，點擊【運(yùn)行】按鈕！即可關(guān)閉【963.xls】和【258.xls】兩個文件。

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

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

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