【excel怎么下拉表格】excel下拉列表操作方法，这篇文章都解释得很清楚。

本节介绍ControlFormat对象。严格地说，该对象是与Excel中的ListBox对象相对应的属性和方法。不回到ListBox的原因不清楚。

概括地说，您可以对Excel表中的ListBox对象执行此操作。

那么，如何获得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对象后，可以在下拉列表框中执行各种其他删除操作。

ContrlFormat对象有四种方法：Additem、List、RemoveAllitems和Removeitem

懂得基本英语，就能基本理解这四种方法的功能。这里不介绍太多。具体可以参考下面的代码进行检查。

更重要的是，ContrlFormat共有17个属性，属性设置为固定参数，使下拉列表框更符合要求。目的很简单。

以下是如何通过代码添加、修改、删除下拉列表等操作的示例。

添加列表框

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”设置列表区域

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根据ContrlFormat的四个方法和属性，实现了列表框的所有附加删除修改功能。

这将显着增加Excel工作表的某些使用功能。

欢迎关注，所长。

-结束-