Question

vba 点击按钮搜索文本框中的对应工作表中的相关信息然后显示在列表框中，

点击列表框中的一项后，又反馈它所对应的其中一项信息在那个文本框里
就是你可以简单的举一个相应的例子，把它的代码详细写出来就行

Answer 1

'工作表“Sheet1”A~C列分别为“编号、名称、价格”
'建一个Form，添加TextBox1、TextBox2、TextBox3、CommandButton1、ListBox1
'代码如下
Private Sub CommandButton1_Click()
    Dim iRows As Double
    With Sheets("Sheet1")
    iRows = .UsedRange.Rows.Count '获取行数
    For i = 2 To iRows
        If .Range("A" & i).Value Like "*" & TextBox1.Value & "*" Or .Range("B" & i).Value Like "*" & TextBox1.Value & "*" Then '如果编号或名称相符
            ListBox1.AddItem (.Range("B" & i).Value)'添加名称到列表框
        End If
    Next
    End With
End Sub
Private Sub ListBox1_Click()
    Dim iRows As Double
    With Sheets("Sheet1")
    iRows = .UsedRange.Rows.Count
    For i = 2 To iRows
        If ListBox1.Value = .Range("B" & i).Value Then
            TextBox1.Value = .Range("A" & i).Value '编号
            TextBox2.Value = .Range("B" & i).Value '名称
            TextBox3.Value = .Range("C" & i).Value '价格
            Exit For
        End If
    Next
    End With
    
End Sub