複合框又稱組合框,用來從一個列表中選中且只能選中一個項目,就像在單元格設置的數據驗證一樣的效果。
複合框的屬性中大部分需要在程序運行中予以設置。在使用複合框時,必須爲用戶窗體設計初始化事件程序。
複合框實際上是將列表框和文本框的特性組合在一起。用戶可以像在文本框中那樣輸入新值,也可以像在列表框中那樣選中已有的值。
複合框的名稱是ComboBox,插入的複合框的默認名稱是ComboBox1,ComboBox2.......
有很多種方法可以給複合框列表添加元素。
之前介紹了使用AddItem給複合框添加元素。今天接續介紹其他方法。
使用RowSource屬性爲複合框列表添加元素可以通過設置RowSource屬性爲複合框列表添加元素。RowSource屬性可以接受Excel工作表的數據區域,但是必須是保存在一列或者幾列的數據。
以下案例把工作表指定列的數據添加爲複合框元素。
' 在窗體初始化事件中,給複合框添加元素Private Sub UserForm_Initialize() Dim sht As Worksheet Set ws = ThisWorkbook.Worksheets("元素數據表格") ' 指定要添加元素所在的表格 ' 給複合框添加元素 Me.ComboBox3.RowSource = sht.Name & "!A1:A5" Set sht = NothingEnd Sub效果如下:
![](http://image.uc.cn/s/wemedia/s/upload/2024/b3f24a2de8aa35ac957401adb3c5dcef.jpg)