在 VBA Excel 的 ListBox 中搜索 2 个条件

Question

我的代码：

Sub Search_Click()

Dim x1, i As Long, ii As Long, iii As Integer
x1 = [myCar]
Application.ScreenUpdating = False
With ListBox1
    If TextBox2 = "" Then
        .RowSource = "myCar"
    Else
        .RowSource = ""
        For i = 1 To UBound(x1, 1)
            If LCase(x1(i, 2)) Like LCase(TextBox2) & "*" Then 'Search location column 2

                For ii = 1 To 10
                    .AddItem
                    .List(iii, ii - 1) = x1(i, ii)
                Next
                iii = iii + 1
            End If
        Next
    End If
End With
End Sub

“搜索”是命令按钮

“myCar”是sheet1中A：J（10列）的名称范围，它是ListBox1中的RowSource

“TextBox2”用于输入搜索条件

当我打开 UserForm1 时，我有另一个代码将 RowSource("myCar") 同步到 ListBox1。之后，我可以在 ListBox1 填充后搜索数据。

上面的代码用于在 TextBox2 中使用单个条件搜索 ListBox1 中的数据。我的代码可以根据 RowSource("myCar") 中第 2 列中的条件搜索 ListBox1 中的数据

=> 我的问题：

我想用 2 个条件在 ListBox1（填充后）中搜索数据：

1. TextBox2.value = 第一个条件，即 range("myCar") 中第 2 列中的数据

2. TextBox3.value = 第二个条件，即 range("myCar") 中第 3 列中的数据

Answer 1

如果您想根据两个（或更多）条件评估为真，其中所有条件都必须为真，您应该使用逻辑运算符 AND。取自https://www.excel-easy.com/vba/examples/logical-operators.html 的示例：

Dim score1 As Integer, score2 As Integer, result As String

score1 = Range("A1").Value
score2 = Range("B1").Value

If score1 >= 60 And score2 > 1 Then
    result = "pass"
Else
    result = "fail"
End If

Range("C1").Value = result

使用 AND 运算符修改您的 if 语句以包含另一个条件。