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

  • 1
  • 0
  • 约5.18千字
  • 约 6页
  • 2025-12-09 发布于北京
  • 举报

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

应用程序用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

您可能关注的文档

文档评论(0)

1亿VIP精品文档

相关文档