entityMap|0|type|IMAGE|mutability|IMMUTABLE|data|imageUrl|https://ask.qcloudimg.com/http-save/yehe-900000/4d01154efea9edc174fd863aa48c7d2a.gif|imageAlt|blocks|key|fnjjc|text|我假设你谈论的是用户表单中的列表框，如果是这样的话，我希望这对你有用……|unstyled|depth|inlineStyleRanges|entityRanges|aaddu|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|code-block|syntax|javascript|52a4j|​|arna6|?|atomic|offset|length|fp8vc|8j8t5^0|0|0|0|0|1|0|0|0^^$0|$1|$2|3|4|5|6|$7|8|9|-4]]]|A|@$B|C|D|E|2|F|G|X|H|@]|I|@]|6|$]]|$B|J|D|K|2|L|G|Y|H|@]|I|@]|6|$M|N]]|$B|O|D|P|2|F|G|Z|H|@]|I|@]|6|$]]|$B|Q|D|R|2|S|G|10|H|@]|I|@$T|11|U|12|B|13]]|6|$]]|$B|V|D|P|2|F|G|14|H|@]|I|@]|6|$]]|$B|W|D|-4|2|F|G|15|H|@]|I|@]|6|$]]]]

I assume you're talking about a list box in a userform, if so, I hope this works for you ...

<pre><code>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
</code></pre>

<a href="https://i.stack.imgur.com/RL38z.gif" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/RL38z.gif" alt="enter image description here"></a>

entityMap|blocks|key|5h5qm|text|这只是一个例子|type|unstyled|depth|inlineStyleRanges|entityRanges|data|8p7eq|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+%2B+1
++++++++++++End+If
++++++++Next
++++++++If+.ListCount+=+0+Then+MsgBox+"No+data+found"
++++End+With
End+Sub|code-block|syntax|javascript|a2d6k^0|0|0^^$0|$]|1|@$2|3|4|5|6|7|8|I|9|@]|A|@]|B|$]]|$2|C|4|D|6|E|8|J|9|@]|A|@]|B|$F|G]]|$2|H|4|-4|6|7|8|K|9|@]|A|@]|B|$]]]]

just an example

<pre><code>Private Sub UserForm_Initialize()
 Set sh = ThisWorkbook.Worksheets(1)
 With sh
 LR = .Range("A" &amp; .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 ' &lt;&lt;&lt; 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
</code></pre>

I am populating a listbox based on 

<pre><code>With lbInterviews
 .RowSource = "=Interviews!A2:P50"
End With
</code></pre>

However, how would I do it so it only populates based on if a cell is equals to something e.g.

Only populate this list box, if the cell in sheet: Interviews, column: F is equals to textbox1.text

Populate ListBox Based on Cell Values

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

教程

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云智能顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

聚焦“写作效率、视觉美观与运行性能”三方面进行全面升级，为您提供更高效、稳定的创作环境

社区富文本&Markdown编辑器全新改版上线，欢迎大家体验!

诚挚邀请您参与本次调研，分享您的真实使用感受与建议。您的反馈至关重要，感谢您的支持与参与！

社区新版编辑器体验调研

 填充一个列表框。 With lbInterviews   .RowSource = "=Interviews!A2:P50"End With 然而，我该如何做才能让它只根据一个单元格是否等于某个东西来填充呢？ 如果sheet: Interviews，column: F中的单元格等于textbox1.text，则仅填充...

问根据单元格值填充ListBox
EN

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问根据单元格值填充ListBoxEN