Excel VBA用戶窗體-如何從用戶窗體中的列表向組合框添加值？

Question

有沒有辦法做到以下幾點？

我想要一個手動文本框，當填寫該框時，用戶單擊“添加”，它會將值添加到組合框。 但是，我還將這個列表存儲在某個地方，以便下次用戶加載表單時，他們可以從列表中選擇“以前使用”的項目，然后這些項目也將添加到組合框中。

我將在“添加所有”以前的項目中添加一個按鈕，但它仍必須具有每次手動添加項目的選項。

更加有用的是，可以使用一個選項來檢查組合框內和外的項目以及手動文本輸入選項。

我嘗試添加一張圖片，以更好地解釋這一點，但我需要10個代表點。 因此，我希望這是有道理的，但如有需要，請隨時發表評論以獲取更多詳細信息和更好的解釋。

鏈接到我正在考慮的示例，但沒有手動添加字段：

Answer 1

用這個

combobox1.additem txtValue.Text

Sheets("SheetName").Cells(lastRow+1,col).value=txtValue.Text

還要在Form_activate中添加以下代碼

For i=1 to lastrow
combobox1.additem Sheets("SheetName").Cells(i,col).value

next i