問問蓮蓬頭

自訂表單內可插入一個控制項 [下拉式方塊] ，這個控制項，可以讓使用者在輸入資料時，可以直接進行選取預設好的選項，提高輸入的效率，也可以降地輸入的錯誤率，而小編這邊就來向大家介紹，如何設定這個 [下拉式方塊] 選單。

這邊介紹兩種方式，一種是直接從工作表中的儲存格進行設定，另一種是透過程式的方式進行設定。

[選單依工作表中儲存格內容]

首先在ComboBox的屬性視窗內尋找 RowSource 的選項，於該選項內輸入剛剛設計於工作表內的區域範圍，只可以直接輸入，無法使用選取的，本範例則是輸入 工作表1!A2:A13 。如下圖所示。

設定完成後執行後，下拉式選單就會出現，儲存格範圍內的選項。

[利用程式碼進行寫入]

另外一個方式就是於程式碼內進行寫入，優點就是不會因為儲存格內容被更改或誤刪，導致下拉式選單出現錯誤或沒有選項，壞處當然就是，如果要新增或修改選項，就必需進到程式內進行修改，以下就開始介紹。

(前置作業說明)

下拉式控制選項命名:CBB1

表單命名:UF1

將控制項與表單統一命名好後，將程式碼寫於表單Activate內，讓表單一作動時時就將選項寫入下拉式表單，程式碼如下。

=================================================

Private Sub UserForm_Activate()

  UF1.CBB1.AddItem "台北市"

  UF1.CBB1.AddItem "新北市"

  UF1.CBB1.AddItem "基隆市"

  UF1.CBB1.AddItem "桃園市"

  UF1.CBB1.AddItem "新竹市"

  UF1.CBB1.AddItem "苗栗市"

  UF1.CBB1.AddItem "台中市"

  UF1.CBB1.AddItem "高雄市"

  UF1.CBB1.AddItem "屏東市"

  UF1.CBB1.AddItem "嘉義市"

  UF1.CBB1.AddItem "花蓮市"

  UF1.CBB1.AddItem "宜蘭市"

程式撰寫完成後，執行表單，下拉式選單就會出現。

[補充說明]

如何寫入將程式碼寫於表單Activate內

首先於表單上任意處點選兩下

此時會出現以下視窗，預設是Click程序

這時於右邊的程序選項，可以選擇各種程序，這個範例是選擇 Activate，

選擇之後就會出現下面的程式撰寫畫面，之後將程式撰寫於該程序內即可。