複合框又稱組合框，用來從一個列表中選中且只能選中一個項目，就像在單元格設置的數據驗證一樣的效果。

複合框的屬性中大部分需要在程序運行中予以設置。在使用複合框時，必須爲用戶窗體設計初始化事件程序。

複合框實際上是將列表框和文本框的特性組合在一起。用戶可以像在文本框中那樣輸入新值，也可以像在列表框中那樣選中已有的值。

複合框的名稱是ComboBox，插入的複合框的默認名稱是ComboBox1，ComboBox2....

有很多種方法可以給複合框列表添加元素。本系列文章將陸續給大家分享。

利用AddItem方法爲複合框列表添加項目

在使用複合框之前，必須先爲複合框列表添加項目，以便能夠從複合框裏面選擇項目。爲複合框列表添加項目的方法之一，就是利用AddItem方法。其語法如下：

CombBox1.AddItem 內容

以下案例展示了兩種方式使用AddItem給複合框列表添加元素。

' 在窗體初始化事件中，給複合框添加元素Private Sub UserForm_Initialize() ' 方法一，調用多次AddItem方法，添加元素 With Me.ComboBox1 .AddItem "A" .AddItem "B" .AddItem "C" .AddItem "中文" End With Me.ComboBox1.ListIndex = 0 ' 方法二，待添加的元素放入數組，然後在循環裏面調用AddItem方法 ' 這種方式適合添加較多元素的時候使用 values = Array("A", "B", "C", "中文") For i = LBound(values) To UBound(values) Me.ComboBox2.AddItem values(i) Next Me.ComboBox2.ListIndex = 0End Sub

效果如下：