本節(jié)介紹ControlFormat對象。嚴格地說，該對象是與Excel中的ListBox對象相對應的屬性和方法。不回到ListBox的原因不清楚。

概括地說，您可以對Excel表中的ListBox對象執(zhí)行此操作。

那么，如何獲得ControlFormat對象呢？

通過以下方式：

Dim xCF as Object

Set xcf=shapes (I)。controls format

對象xCF是ControlFormat對象。其中I表示Shape的索引值。

Shape是Excel表格繪圖層上的對象，如選擇圖形、任意多邊形、OLE對象或圖片，其中表示OLE對象(ListBox)。

雖然有點亂，但需要了解Shape對象，如下圖所示。按鈕對象、下拉列表和文本框對象都屬于Shapes對象集合。

可以使用Shape對象的ContrlFormat返回ContrlFormat對象。

獲得此ContrlFormat對象后，可以在下拉列表框中執(zhí)行各種其他刪除操作。

ContrlFormat對象有四種方法：Additem、List、RemoveAllitems和Removeitem

懂得基本英語，就能基本理解這四種方法的功能。這里不介紹太多。具體可以參考下面的代碼進行檢查。

更重要的是，ContrlFormat共有17個屬性，屬性設置為固定參數(shù)，使下拉列表框更符合要求。目的很簡單。

以下是如何通過代碼添加、修改、刪除下拉列表等操作的示例。

添加列表框

Private Sub AddListBox()

“DelListbox”刪除列表框

Dim xlobj As Object

添加列表框

Set xlobj=me.s (xllistbox，range ('E3 '))。left、range ('E3 ')。top、200、350)

Dim xFormat As Object

Set xFormat=xlobj。返回“ControlFormat”列表對象

XFormat。清除“RemoveAllItems”列表內容

x format . list fill range=range(' c 43360 C20 ')。“address”設置列表區(qū)域

Set xFormat=Nothing

Set xlobj=Nothing

End Sub返回列表值

Private Sub ShowListValue()

Dim xShape As Shape

For Each xShape In Me。Shapes

If xS=8 Then

MsgBox xS(xSIndex)

End If

Next xShape

向End Sub列表框添加列表

Private Sub AddListItems()

Dim xShape As Shape

For Each xShape In Me。' Shapes '通過Shapes

如果是“If xS=8 Then”列表

XS；清除所有列表值

For I=4到7

XS范圍(' B' i)。添加“值”列表

Next I

End If

Next xShape

如上面的代碼所示，End Sub根據(jù)ContrlFormat的四個方法和屬性，實現(xiàn)了列表框的所有附加刪除修改功能。

這將顯著增加Excel工作表的某些使用功能。

歡迎關注，所長。

-結束-