附:所有代碼大全及語法 vba編程代碼大全

  網絡滲透測試     |      2023-03-29 07:21

Excel 中的列表框操作,可以很有序地實現選擇功能,本文將介紹一個對象,以實現對列表框的新建、刪除等操作 。

附:所有代碼大全及語法 vba編程代碼大全


文章插圖
ControlFormat對象可以通過Shape對象的ControlFormat屬性返回 。
如下代碼:
Set xListObj = Shapes(2).ControlFormat
xListObj就是一個ControlFormat對象 。
ControlFormat方法和屬性
方法
屬性
AddItem
Application
List
Creator
RemoveAllItems
DropDownLines
RemoveItem
Enabled
LargeChange
LinkedCell
ListCount
ListFillRange
ListIndex
LockedText
Max
Min
MultiSelect
Parent
PrintObject
SmallChange
Value

附:所有代碼大全及語法 vba編程代碼大全


文章插圖
如上圖所示,本示例實現多種方法給ListBox控件添加列表值 。
首先新建一個列表框,代碼如下:
PrivateSub AddListBox()\\\'新建ListBox列表框DimxShape As ObjectSetxShape = Me.Shapes.AddFormControl(xlListBox, 100, 100, 210, 280)SetxShape = NothingEndSub利用Additem 方法添加列表值
Private Sub AddListItems() \\\'添加列表值 On Error Resume Next Dim xShape As Object Dim xListObj As Object SetxListObj = Shapes(2).ControlFormat WithxListObj .RemoveAllItems .AddItem \\\"列表1\\\".AddItem \\\"列表2\\\".AddItem \\\"列表3\\\"EndWithSetxListObj = NothingSetxShape = NothingEndSub

附:所有代碼大全及語法 vba編程代碼大全


文章插圖
List方法添加列表值
Private Sub AddListItems() \\\'添加列表值 On Error Resume Next Dim xShape As Object Dim xListObj As Object SetxListObj = Shapes(2).ControlFormat xListObj.List = Array(\\\"eee\\\", \\\"dddd\\\", \\\"fff\\\") SetxListObj = NothingSetxShape = NothingEndSubListFillRange屬性設置列表值
PrivateSub AddlistRange()\\\'添加列表值OnError Resume NextDimxShape As ObjectDimxListObj As ObjectSetxListObj = Shapes(2).ControlFormatxListObj.ListFillRange= \\\"B3:B10\\\"SetxListObj = NothingSetxShape = NothingistFillRangeEndSub刪除列表值
PrivateSub DelListItems()\\\'刪除列表值OnError Resume NextDimxShape As ObjectDimxListObj As ObjectSetxListObj = Shapes(2).ControlFormatWithxListObj.RemoveItem.ListIndexEndWithSetxListObj = NothingSetxShape = NothingEndSubListBox列表框在編寫種類功能性應用時,非常方便,熟練掌握可大大提高對Excel表格的自動化應用技巧 。
贊 (0) 打賞

文章插圖

分享人:江逐浪,中國傳媒大學副教授,廣播電視藝術學博士,主要從事影視藝術和文藝美學、文化學研究 。在中國傳媒大學開設本科生通識課《希臘神話與西方藝術》、研究生通識課《歐洲藝術史》和其…


文章插圖

養老房現在已經成為一種時髦,主要是因為我們現在已經進入老齡化社會,處于老人晚年幸福的要求,也就催生了養老產業的發展 。毫無疑問,我國海南省的?;◢u作為一座人工島,氣候適宜,尤其值得老…