Excel VBA基础：第十八课数据搜索功能实现与优化.pdfVIP

应用程序用VisualBasic第十八课：在表中搜索数据

在下面的示例中，使用了以前的对象和编程结构方法来创建一个搜索功能，以配合表格输入表单。

新的方法是...

1.对象的全局使用：

PublicMyTableAsObject

对象可以被为公共（全局），这样它就可以在不同过程间被。

2.使用字符串操作创建可比较的字符串：

用于查找的字符串的初始值会被转换为小写形式。

MyValue=LCase(输入框(消息,标题,默认值0))

，每个单元格中的文本也会被转换为小写形式。

SName=LCase(SName)

这是确保搜索字符串和数据字符串具有可比性的唯一方法。

进入循环[循环执行循环]：

查找时表单长度+1SName=MyTable.Cell(查找,计数)‘下一个...

去掉最后两个字符并转换为小写SName=LCase(Left(SName,

(Len(SName)-2)))IfInStr(SName,MyValue)Then

MyTable.Cell(查找,计数).SelectIsOk=MsgBox(是这个吗！,

vbYesNoCancel)‘下一个...如果点击了OK或CANCEL按钮If

((IsOk=6)或者(IsOk=2))Then过程EndIfEndIfNext计数查找

=查找+1Wend

请注意，通过使用内置函数‘InStr’，搜索字符串会在单元格字符串中查找，以确定它是否部分或完全存在。

IfInStr(SName,MyValue)Then

在此循环结构中，表格首先按行进行搜索，行由变量‘查找’，然后该行中的单元格1、2和3

由‘计数’变量进行搜索。当‘查找’等于‘表单长度’时，循环结束。

3.按钮按下检查：

检查字符串找到的消息框中的用户响应，以在用户选择了

VISUALBASICFORAPPLICATIONS

SONEIGHTEEN:SEARCHINGforDATAinTAB

Inthisexamplebelow,previousmethodsofobjectreferencingandprogrammingstructurehavebeen

usedtocreateasearchfacilitytogowiththetableinputform.

Newmethodsare…

1.GlobaluseofObjects:

PublicMyTableAsObject

Anobjectcanbedeclaredaspublic(Global),soitcanbereferencedacrossprocedures.

2.Usingstringmanipulationtocreatecomparablestrings:

Theinitialvalueforthestringtolookforisconvertedtolowercase.

MyValueLCase(InputBox(Message,Title,Default0))

Later,thetextineachcellisconvertedtolowercase.

SName=LCase(SName)

Thisistheonlywaytoensurethatboththesearchstringandthedatastringarecomparable.

SteppinginsideaLoop[Looping