正在从列表中删除某些项目
正在从列表中删除某些项目
提问于 2020-07-01 15:28:46
我有一段代码，它将查找某个工作表的列，并用不同的值填充组合框。我这里的问题是，我需要删除其中一个特定值。非常需要您的帮助！
例如：
a
b
c
a
b根据我下面的代码，组合框将填充a、b、c
Dim wslk As Worksheet
Set ws = Worksheets("W1")
With ws
t1 = .Cells(Rows.Count, "B").End(xlUp).Offset(1, 0).row
On Error Resume Next
For y = 2 To t1
Set c = .Cells(y, 2)
Set t1rng = .Range(.Cells(2, 2), .Cells(y, 2))
x = Application.WorksheetFunction.CountIf(t1rng, c)
If x = 1 Then Cmb2.AddItem c
Next y
On Error GoTo 0
End With我想知道是否有任何方法可以让我从列表中删除"b“。提前感谢！
回答 1
Stack Overflow用户
回答已采纳
发布于 2020-07-01 16:07:09
如果您不需要列表中的某个特定值，只需在填写ComboBox时将其排除-例如If x = 1 AND c <> "B" Then
如果以后要从ComboBox中删除条目，可以使用RemoveItem方法。下面的例程遍历框中的所有条目，搜索一个字符串并将其删除。这些条目可以通过属性List访问，索引从0开始。
Sub removeFromCombo(c As String)
Dim i As Integer
With Me.Cmb2
For i = .ListCount - 1 To 0 Step -1
If .List(i) = c Then .RemoveItem i
Next i
If .Value = c Then .Value = ""
End With
End Sub页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/62671733
复制相关文章
相似问题
腾讯云开发者
