vb如何实现一个查找功能？
1、以商场2015年第一季度电器销售统计为例子，“产品”、“品牌”、“月份”3个条件的销售额进行查询。
2、假设要查询“康佳”的“1月”份“各类家电”的销售额，先建一个对应列的工作簿。如图，输入条件1：“成品名称”，条件2:“品牌名称”，条件3：“月份”，
3、下面到了建立宏的步骤：单击菜单栏中的“开发工具”——插入——表单控件——按钮，在出现的十字箭头上拖住画出一个按钮，如图所示。
4、在弹出的查找红对话框中选择“录制”，在弹出的“录制新宏”对话框中，修改宏名称为“查找”，单击确定。
5、单击“开发工具”——查看代码，打开VBA编辑器，如图所示。
6、在VBA编辑器点击插入-模块，如图，
7、现在来输入代码：
Sub 查找()
Dim i As Integer, j As Integer
arr1 = Sheets("数据").Range("A2:D" & Sheets("数据").Cells(Rows.Count, "A").End(xlUp).Row)
arr2 = Sheets("查找").Range("A2:D" & Sheets("查找").Cells(Rows.Count, "A").End(xlUp).Row)
For i = 1 To UBound(arr2)
For j = 1 To UBound(arr1)
If arr2(i, 1) = arr1(j, 1) And arr2(i, 2) = arr1(j, 2) And arr2(i, 3) = arr1(j, 3) Then
arr2(i, 4) = arr1(j, 4)
GoTo 100
End If
Next
arr2(i, 4) = ""
100:
Next
Sheets("查找").Range("A2:D" & Sheets("查找").Cells(Rows.Count, "A").End(xlUp).Row) = arr2
End Sub
8、现在回到EXCEL表格，右击按钮，选择“编辑文字”，修改按钮名称为“统计”。
9、那么就完成了。
vb如何实现一个查找功能？视频
相关评论：
薛聪影4、在弹出的查找红对话框中选择“录制”，在弹出的“录制新宏”对话框中，修改宏名称为“查找”，单击确定。5、单击“开发工具”——查看代码，打开VBA编辑器，如图所示。6、在VBA编辑器点击插入-模块，如图，7、现在来输入代码：Sub 查找()Dim i As Integer, j As Integer arr1 = Sheets("数据...
薛聪影在VB中，搜索文件并显示其位置可以通过递归查找实现。首先，使用DIR命令指定要搜索的目录。例如，使用DIR C:命令搜索C盘中的所有文件。然后，在搜索过程中，通过ECHO命令输出找到的文件信息。例如，使用ECHO命令输出文件名和路径，如"XXX1"和"XXX2"。接下来，使用DIR命令遍历子文件夹。对于每一个文件和子...
薛聪影手动查找时，首先在“列3”中找到“待匹配项8”，然后提取该行的其它单元格值。在列匹配模式中，当需要获取的值与希望匹配的项处于同一列时，如右图所示。例如，希望从表格中获取“行6”单元格值都为”待匹配项2”所对应其它行的值，此时应使用列匹配模式。手动查找时，首先在“行6”中找到“待匹...
薛聪影指定1做不区分大小写的文本比较。例如我们要查找在字符串“abcdefg”中是否存在“cd”并返回其位置，则使用下面的语句就可以实现： pos=InStr(1,"abcdefg","cd")则pos会返回3表示查找到并且位置为第三个字符开始。这就是“查找”的实现，而“查找下一个”功能的实现就是把当前位置作为起始位置继续查...
薛聪影用两个文本框，第一个里输入学号，第2个作为显示名字 再做个查询按钮 假设cnn为数据库联接,rst为记录集，sql为查询语句 Sub Command1_Click()sql="select 序号 from 表 where 姓名='" & text1.text & "'"rst.open sql,cnn,adopenkeyset,adlockreadonly,adcmdtext if not rst.eof then text2....
薛聪影描述 提供简单的正则表达式支持功能。说明 下面的代码说明了RegExp对象的用法：Function RegExpTest(patrn, strng)Dim regEx, Match, Matches ' 建立变量。Set regEx = New RegExp ' 建立正则表达式。regEx.Pattern = patrn ' 设置模式。regEx.IgnoreCase = True ' 设置是否区分字符大小写。...
薛聪影Command1.Caption = "查找下一个"a = k + Len(Text1)Text2.SetFocus Text2.SelStart = k - 1 Text2.SelLength = Len(Text1)b = b + 1 Else MsgBox "查找完毕！共找到 " & b & " 个 " & Text1 Command1.Caption = "查找"a = 1 End If 'Print k End Sub Private Sub ...
薛聪影问题1.'放在一个标准模块中,设置工程启动为"Sub Main()"Option Explicit Sub main()Dim SourceStr As String, wStr As String '待查找的字符串 SourceStr = "abcdef1Google" & _"ghijkl2百度搜索mnopqrs3Yahootuvwxyz"'要查找的内容 wStr = "o"Dim pos As Long pos = InStr(1, Source...
薛聪影1、如果你是用webbrowser控件，假设控件name为wb：wb.document.all.q.value="输入内容" '或者 wb.document.getelementbyid("q").value="输入内容" '或者 wb.form1.q.value="输入内容" 'form1为表单的namewb.form1.submit()2、使用ie对象：set wb=createobjet("internetexplorer.application")...
薛聪影用SQL语句查询来实现。select 姓名，电话 from 表 where 姓名='某某' group by 姓名，电话
