2
我正在寻找只填充列中唯一文本值的组合框。如果列中的值为空(即“”),那么它将来自相邻列的值向左(仍然确保它不是重复的)。使用唯一值填充Combobox
我已经嵌入用户窗体模块内的公用Sub添加的项目,而不重复:
Public Sub addIfUnique(CB As ComboBox, value As String)
If CB.ListCount = 0 Then GoTo doAdd
Dim i As Integer
For i = 0 To CB.ListCount - 1
If CB.List(i) = value Then Exit Sub
Next
doAdd:
CB.AddItem value
End Sub
然而,当我尝试调用子,它告诉我需要的对象。到目前为止我所得到的如下:
Worksheets("Scrapers").Activate
Range("M9").Activate
Dim intX As Integer
Dim value As String
push_lt_cbo.Clear
Do Until ActiveCell.Offset(0, -1).value = 0
If ActiveCell.value = "" Then
value = ActiveCell.Offset(0, -1).Text
Call addIfUnique((push_lt_cbo), (value))
Else
value = ActiveCell.Text
Call addIfUnique((CB), (value))
End If
Loop
任何帮助将不胜感激!
LW
的快速反馈伟大的作品,感谢堆! – Delta