根据单元格值填充ListBox
根据单元格值填充ListBox
提问于 2019-05-08 18:48:46
填充一个列表框。
With lbInterviews
.RowSource = "=Interviews!A2:P50"
End With然而，我该如何做才能让它只根据一个单元格是否等于某个东西来填充呢？
如果sheet: Interviews，column: F中的单元格等于textbox1.text，则仅填充此列表框
回答 2
Stack Overflow用户
回答已采纳
发布于 2019-05-08 19:15:34
我假设你谈论的是用户表单中的列表框，如果是这样的话，我希望这对你有用……
Private Sub UserForm_Initialize()
For i = 1 To 10
If UCase(Left(Sheet1.Cells(i, 1), 3)) = "YES" Then
ListBox1.AddItem Sheet1.Cells(i, 1)
End If
Next
End Sub
Stack Overflow用户
发布于 2019-05-08 19:17:32
这只是一个例子
Private Sub UserForm_Initialize()
Set sh = ThisWorkbook.Worksheets(1)
With sh
LR = .Range("A" & .Rows.Count).End(xlUp).Row
End With
lC = 0
With Me.ListBox1
.ColumnCount = 2
.RowSource = ""
For r = 2 To LR
If Left(sh.Cells(r, 1), 1) = "P" Then ' <<< to changed condition
.AddItem
.List(lC, 0) = sh.Cells(r, 1)
.List(lC, 1) = sh.Cells(r, 2)
lC = lC + 1
End If
Next
If .ListCount = 0 Then MsgBox "No data found"
End With
End Sub页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/56038980
复制相关文章
相似问题
腾讯云开发者
