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

显示全部楼层 · 2010-5-29 01:32:22

我想实现以下功能, 应该如何实现?
在Excel工作表1中有些内容, 如, 1;2;3;4;5;
在Excel工作表2中有数据内容, 如, 111;222;333;444;555;123;234;等等.
我想实现在工作表中加入一个VB控件, 如一个命令按扭, 在当前格中如"1", 点击这个命令按扭, 就可以查询工作表2,并将所有包含有"1"的单元格全部列出. 如跳出一个提示框, 显示查询结果"111";"123"

千问 · 2010-5-29 01:32:22

'先在sheet1中插入一个按钮Private Sub CommandButton1_Click()Dim s As String, q As Strings = Sheets(1).Cells(ActiveCell.Row, ActiveCell.Column) 'sheet1选择的单元格的值If s = "" Then
MsgBox "没有选择查询项目"
Exit SubEnd Ifq = ""For i = 1 To Sheets(2).UsedRange.Rows.Count
'从第一行一直到最后一个使用的行
For j = 1 To Sheets(2).UsedRange.