excel vba点击按钮查询文本框中内容在sheet2表中对应的多列数据，并显示在列表框控件中

可以的，你需要编写一段VBA代码，在按钮的click事件中实现这个功能。具体实现方法可以参考以下示例代码：

Private Sub btnSearch_Click()

'获取要查询的关键字
Dim strKeyword As String
strKeyword = Trim(Me.txtKeyword.Value)

'清空列表框控件
Me.lstResult.Clear

'遍历Sheet2中的数据
Dim i As Long
Dim j As Long
Dim lastRow As Long
lastRow = Sheet2.Cells(Rows.Count, "A").End(xlUp).Row

For i = 2 To lastRow

'判断当前行是否包含关键字
Dim found As Boolean
found = False

For j = 1 To 3
If InStr(1, Sheet2.Cells(i, j).Value, strKeyword, vbTextCompare) > 0 Then
found = True
Exit For
End If
Next j

'如果包含，则将该行数据添加到列表框控件中
If found Then
Me.lstResult.AddItem Sheet2.Cells(i, 1).Value & vbTab & Sheet2.Cells(i, 2).Value & vbTab & Sheet2.Cells(i, 3).Value
End If

Next i

End Sub

这段代码会遍历Sheet2表中的数据，判断每一行中是否包含查询的关键字，如果包含则将该行数据添加到列表框控件中。你可以根据具体需求对代码进行修改。