☰

Excel 2016 使用者窗體宏，Windows 7

tag-icon • tag-icon windows-7 macros microsoft-excel-2016
Excel 2016 使用者窗體宏，Windows 7

我在 Excel 2016 中建立了一個使用者表單，其中包含幾個組合方塊、幾個文字方塊、兩個單選按鈕和一個提交按鈕。首先，如何讓組合框引用我已經設定的清單？

答案1

您可以使用 form_activate 事件處理程序觸發事件。右鍵單擊項目視窗中的使用者表單，然後按一下“檢視程式碼”

將這種性質的內容貼到程式碼視窗中：

Private Sub UserForm_Activate()
    ComboBox1.AddItem ("1")
    ComboBox1.AddItem ("2")
    ComboBox1.AddItem ("3")
End Sub

這會將項目載入到組合框中。您也可以將其變更為如下所示：

Private Sub UserForm_Activate()
    ComboBox1.AddItem (range("'Sheet1'!A1").value)
    ComboBox1.AddItem (range("'Sheet1'!A2").value)
End Sub

如果您的組合方塊項目位於 Excel 工作表的某處。

建立啟動事件後，您需要先打開表單的東西（我相信您已經知道了）。所以像這樣：

Public Sub show_form()
    UserForm1.Show
End Sub

然後你可以透過Excel工作表上的按鈕或其他東西來呼叫事件show_form。

完整範例

這是一個完整的範例：

建立一個新工作簿。將一些數據放入A1和A2。保留預設工作表名稱“Sheet1”

按 Alt F11 開啟 VBA 側。按一下“插入”>“使用者表單”

使用者窗體 1 出現。右鍵單擊它並單擊查看代碼。貼這個：

Private Sub UserForm_Activate()
    ComboBox1.AddItem (Range("'Sheet1'!A1").Value)
    ComboBox1.AddItem (Range("'Sheet1'!A2").Value)
End Sub

雙擊樹中的 ThisWorkBook。按一下插入 > 模組。貼這個：

Public Sub show_form()
    UserForm1.Show
End Sub

你的樹應該是這樣的：

在此輸入影像描述

現在在 Excel 工作簿中新增一個像盒子一樣的形狀。右鍵單擊您的形狀，然後按一下指派巨集。選擇顯示表單。

現在嘗試跑步。這應該顯示表格。當您單擊下拉列表時，它應該填充兩個項目。

答案2

這是一個完整的範例：

建立一個新工作簿。將一些數據放入A1和A2。保留預設工作表名稱“Sheet1”

按 Alt F11 開啟 VBA 側。按一下“插入”>“使用者表單”

使用者窗體 1 出現。右鍵單擊它並單擊查看代碼。貼這個：

Private Sub UserForm_Activate() ComboBox1.AddItem (Range("'Sheet1'!A1").Value) ComboBox1.AddItem (Range("'Sheet1'!A2").Value) End Sub 雙擊樹中的 ThisWorkBook。按一下插入 > 模組。貼這個：

Public Sub show_form() UserForm1.Show End Sub

相關內容