Excel | 如何給列表框控件（ListBox）添加條目、設(shè)置列寬、添加標(biāo)題？ | 控件,添加,ListBox,條目

陳永平Davy 2019-05-24

展開全文

Q：如何給列表框控件（ListBox）添加條目、設(shè)置列寬、添加標(biāo)題？

A：一、添加條目以下幾種方法都可以。
1、在控件的 RowSource 屬性輸入引用的單元格地址。
知識(shí)擴(kuò)展：輸入單元格地址后，在窗體中將直接顯示可以看到的結(jié)果，如下圖所示：

注意：在控件的 RowSource 屬性輸入引用的單元格地址時(shí)，必須包含工作表名，否則，顯示的條目將是活動(dòng)工作表的單元格內(nèi)容。
2、在窗體的 Initialize 事件設(shè)置RowSource 屬性，示例代碼如下：

Private Sub UserForm_Initialize()
Me.ListBox1.RowSource = "Sheet1!A1:A6"
End Sub

3、使用 AddItem 方法，示例代碼如下：

Private Sub UserForm_Initialize()
With Me.ListBox1
.RowSource = ""
.AddItem "初中及以下"
.AddItem "高中或中專"
.AddItem "大專"
.AddItem "本科"
.AddItem "碩士研究生"
.AddItem "博士研究生"
End With
End Sub

4、使用數(shù)組對(duì) ListBox 的 List 屬性賦值，示例代碼如下：

Private Sub UserForm_Activate()
MyList = Array("初中及以下", "高中或中專", "大專", "本科", "碩士研究生", "博士研究生")
Me.ListBox1 .RowSource = ""
Me.ListBox1.List = MyList
End Sub

二、添加多列、并設(shè)置列寬和標(biāo)題，示例代碼如下：

Private Sub UserForm_Initialize()
With Me.ListBox1
.RowSource = "Sheet1!I2:K7"
.ColumnCount = 3 '設(shè)置3列
.ColumnHeads = True '設(shè)置標(biāo)題
.ColumnWidths = "30;30;30" '設(shè)置列寬
End With
End Sub

注意：有列標(biāo)題時(shí)，不要把列標(biāo)題包含RowSource屬性的單元格區(qū)域，VBA會(huì)自動(dòng)取RowSource指向的單元格區(qū)域第1行上方的行單元格。
知識(shí)擴(kuò)展：列寬由ColumnWidths屬性決定，每個(gè)數(shù)字間用半角分號(hào)隔開，列寬單位為磅（pints），既1/72英寸。

本站是提供個(gè)人知識(shí)管理的網(wǎng)絡(luò)存儲(chǔ)空間，所有內(nèi)容均由用戶發(fā)布，不代表本站觀點(diǎn)。請(qǐng)注意甄別內(nèi)容中的聯(lián)系方式、誘導(dǎo)購(gòu)買等信息，謹(jǐn)防詐騙。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)點(diǎn)擊一鍵舉報(bào)。

轉(zhuǎn)藏 分享

QQ空間 QQ好友新浪微博微信

獻(xiàn)花（0） +1

來(lái)自：陳永平Davy > 《vba》

舉報(bào)/認(rèn)領(lǐng)

0條評(píng)論

發(fā)表

請(qǐng)遵守用戶評(píng)論公約

類似文章 更多

乡下人产国偷v产偷v自拍,国产午夜片在线观看,婷婷成人亚洲综合国产麻豆,久久综合给合久久狠狠狠9

Excel | 如何給列表框控件（ListBox）添加條目、設(shè)置列寬、添加標(biāo)題？ | 控件,添加,ListBox,條目

Q：如何給列表框控件（ListBox）添加條目、設(shè)置列寬、添加標(biāo)題？

Excel | 如何給列表框控件（ListBox）添加條目、設(shè)置列寬、添加標(biāo)題？ | 控件,添加,ListBox,條目

Q：如何給列表框控件（ListBox）添加條目、設(shè)置列寬、添加標(biāo)題？