Office VBA教程:Clear方法

从指定命令栏组合框控件(下拉式列表框或组合框)中删除所有列表项并清除文本框(编辑框或组合框)。

注意   该方法不能用于内置命令栏控件。

expression.Clear

expression   必需。该表达式返回一个 CommandBarComboBox对象。

VBA示例

本示例可实现的功能为:检查命令栏“Custom”上组合框控件中的项目数。如果列表中的项目数少于 3,那么本示例清除该列表,在其中添加一个新项目,然后将该新项目显示为组合框控件的默认值。


Set myBar = CommandBars("Custom Bar")
Set myControl = myBar.Controls _
    Type:=msoControlComboBox)
With myControl
    .AddItem "First Item", 1
    .AddItem "Second Item", 2
End With
If myControl.ListCount < 3 Then
    myControl.Clear
    myControl.AddItem Text:="New Item", Index:=1
End If

上页:Office VBA教程:ApplyFilter方法 下页:Office VBA教程:ClearFileList方法

Office VBA教程:Clear方法

Office VBA教程:ClearFileList方法 Office VBA教程:Close方法
Office VBA教程:Commit方法 Office VBA教程:Copy方法
Office VBA教程:CopyFace方法 Office VBA教程:Delete方法
Office VBA教程:DoAlert方法 Office VBA教程:EndWizard方法
Office VBA教程:Execute方法 Office VBA教程:FindControl方法
Office VBA教程:FindControls方法 Office VBA教程:Help方法
Office VBA教程:Item方法 Office VBA教程:LoadFromFile方法
Office VBA教程:Move方法 Office VBA教程:NewSearch方法
Office VBA教程:Open方法 Office VBA教程:PasteFace方法
Office VBA教程:RefreshDocument方法 Office VBA教程:RefreshProject方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号