国产精品久久久久永久免费看,国产一区二区激情在线

本節(jié)介紹一下 ControlFormat 對象，嚴格來說這個對象是對應于 Excel 中的 ListBox 對象的一些屬性和方法，為什么不以 ListBox 來返回，就不太清楚了。
總之，要對 Excel 表中的 ListBox 對象操作就這么做就行了。

那么，如何得到 ControlFormat 對象呢？
用下面的方法：
dim xCF as Object
Set xCF=Shapes(i).ControlsFormat
【這篇文章全講清楚了下拉列表怎么添加】 對象 xCF 就是一個 ControlFormat 對象，其中 i 代表了此 Shape 的 Index 值。
這就有點不可想像了，Shape 是 Excel 表繪圖層中的對象，例如自選圖形、任意多邊形、OLE 對象或圖片，此處就代表了一個 OLE 對象，即 ListBox 。
有點亂，但要了解一下 Shape 對象，如下圖所示，有按鈕對象，下拉列表和文本框對象，都屬于 Shapes 對象合集。

可以使用 Shape 對象的 ContrlFormat 來返回 ContrlFormat 對象。
當我們得到這個 ContrlFormat 對象之后，就可以對下拉列表框進行各種添加刪除操作了。
ContrlFormat 對象有四個方法：Additem、List、RemoveAllitems、Removeitem
懂基本英語就基本明白這四種方法的功能了，這里不做過多介紹，具體可參考下面的代碼進行對號。
更加重要的是 ContrlFormat 的屬性，一共有 17 個，屬性就是用一些固定的參數(shù)來進行設置，可以使下拉列表框更加符合要求，目的很簡單。

下面，用實例來證明一下我們通過代碼如何實現(xiàn)對下拉列表的添加、修改、刪除等等操作。
添加列表框
Private Sub AddListBox()DelListbox '刪除除列表框 Dim xlobj As Object'添加列表框 Set xlobj = Me.Shapes.AddFormControl(xlListBox, Range("E3").Left, Range("E3").Top, 200, 350)Dim xFormat As ObjectSet xFormat = xlobj.ControlFormat '返回列表對象 xFormat.RemoveAllItems '清除列表內容 xFormat.ListFillRange = Range("C4:C20").Address'設置列表區(qū)域 Set xFormat = NothingSet xlobj = NothingEnd Sub 返回列表值
Private Sub ShowListValue()Dim xShape As ShapeFor Each xShape In Me.ShapesIf xShape.Type = 8 ThenMsgBox xShape.ControlFormat.List(xShape.ControlFormat.ListIndex)End IfNext xShapeEnd Sub 給列表框添加列表
Private Sub AddListItems()Dim xShape As ShapeFor Each xShape In Me.Shapes'遍歷 ShapesIf xShape.Type = 8 Then'如果是列表xShape.ControlFormat.RemoveAllItems'清除所有列表值For i = 4 To 7xShape.ControlFormat.AddItem Range("B" & i).Value'添加列表Next iEnd IfNext xShapeEnd Sub 如上代碼，根據(jù) ContrlFormat 的四個方法和屬性可實現(xiàn)所有對列表框的添加刪除修改功能。
這樣，就大大地增加了 Excel 工作表的一些使用功能。