通过EXCEL的VB输出查询的内容.

发布网友发布时间：2024-05-03 06:24

共1个回答

热心网友时间：2024-05-04 04:38

'先在sheet1中插入一个按钮
Private Sub CommandButton1_Click()
Dim s As String, q As String
s = Sheets(1).Cells(ActiveCell.Row, ActiveCell.Column) 'sheet1选择的单元格的值
If s = "" Then
MsgBox "没有选择查询项目"
Exit Sub
End If

q = ""
For i = 1 To Sheets(2).UsedRange.Rows.Count '从第一行一直到最后一个使用的行
For j = 1 To Sheets(2).UsedRange.Columns.Count '从第一列一直到最后一个使用的列
If InStr(1, Sheets(2).Cells(i, j), s) Then ' 判定单元格内容里是否有需要查找的内容
q = q & "单元格 " & Sheets(2).Cells(i, j).Address(0, 0) & " 中的数据为: " & Sheets(2).Cells(i, j) & vbCrLf
'有需要查找的内容返回单元格行列地址和内容
End If
Next j
Next i
If q = "" Then
MsgBox "没有查找的内容"
Else
MsgBox "表 " & Sheets(2).Name & " 中查询包含" & s & "的单元格结果如下:" & vbCrLf & q
End If
End Sub