複合框又稱組合框，用來從一個列表中選中且只能選中一個項目，就像在單元格設置的數據驗證一樣的效果。 複合框的屬性中大部分需要在程序運行中予以設置。在使用複合框時，必須爲用戶窗體設計初始化事件程序。 複合框實際上是將列表框和文本框的特性組合在一起。用戶可以像在文本框中那樣輸入新值，也可以像在列表框中那樣選中已有的值。 複合框的名稱是ComboBox，插入的複合框的默認名稱是ComboBox1，ComboBox2....... 有很多種方法可以給複合框列表添加元素。 之前介紹了使用AddItem和RowSource給複合框添加元素。今天繼續介紹其他方法。 使用List屬性爲複合框列表添加元素可以通過設置List屬性給複合框列表添加元素。通常情況下，可以把要添加的元素賦值給一個數組，然後再把該數組賦值給List屬性。或者跟數據表的工作區域直接賦值給List屬性。 比如，以下案例通過數組賦值給List ' 在窗體初始化事件中，給複合框添加元素Private Sub UserForm_Initialize() Dim arr As Variant arr = Array("A", "B", "C", "中文") Me.ComboBox1.List = arrEnd Sub以下案例通過工作表數據區域賦值給List屬性 ' 在窗體初始化事件中，給複合框添加元素Private Sub UserForm_Initialize() Dim sht As Worksheet, arr As Variant Set sht = ThisWorkbook.Sheets("數據表") ' 設置成你自己的數據表格名字 arr = sht.Range("A1:A10").value Me.ComboBox1.List = arr Set sht = NothingEnd Sub