vba内容查询范文模板 18页Word下载.docx
《vba内容查询范文模板 18页Word下载.docx》由会员分享,可在线阅读,更多相关《vba内容查询范文模板 18页Word下载.docx(14页珍藏版)》请在冰豆网上搜索。
Then
#006WithSheet1.Range("
A:
A"
#007SetRng=.Find(What:
=StrFind,_
#008After:
=.Cells(.Cells.Count),_
#009LookIn:
=xlValues,_
#010LookAt:
=xlWhole,_
#011SearchOrder:
=xlByRows,_
#012SearchDirection:
=xlNext,_
#013MatchCase:
=False)
#014IfNotRngIsNothingThen
#015Application.GotoRng,True
#016Else
#017MsgBox"
没有找到该单元格!
#018EndIf
#019EndWith
#020EndIf
#021EndSub
代码解析:
RngFind过程使用Find方法在工作表Sheet1的A列中查找InputBox函数对话框中所输入的值,并查找该值所在的第一个单元格。
第6到第13行代码在工作表Sheet1的A列中查找InputBox函数对话框中所输入的值。
应用于Range对象的Find方法在区域中查找特定信息,并返回Range对象,该对象代表用于查找信息的第一个单元格。
如果未发现匹配单元格,就返回Nothing,语法如下:
expression.Find(What,After,LookIn,LookAt,SearchOrder,SearchDirection,MatchCase,MatchByte,SerchFormat)
参数expression是必需的,该表达式返回一个Range对象。
参数What是必需的,要搜索的数据,可为字符串或任意数据类型。
参数After是可选的,表示搜索过程将从其之后开始进行的单元格,必须是区域中的单个单元格。
查找时是从该单元格之后开始的,直到本方法绕回到指定的单元格时,才对其进行搜索。
如果未指定本参数,搜索将从区域的左上角单元格之后开始。
在本例中将After参数设置为A列的最后一个单元格,所以查找时从A1单元格开始搜索。
参数LookIn是可选的,信息类型。
参数LookAt是可选的,可为XlLookAt常量的xlWhole或xlPart之一。
参数SearchOrder是可选的,可为XlSearchOrder常量的xlByRows或xlByColumns之一。
参数SearchDirection是可选的,搜索的方向,可为XlSearchDirection常量的xlNext或xlPrevious之一。
参数MatchCase是可选的,若为True,则进行区分大小写的查找。
默认值为False。
参数MatchByte是可选的,仅在选择或安装了双字节语言支持时使用。
若为True,则双字节字符仅匹配双字节字符。
若为False,则双字节字符可匹配其等价的单字节字符。
参数SerchFormat是可选的,搜索的格式。
每次使用Find方法后,参数LookIn、LookAt、SearchOrder和MatchByte的设置将保存。
如果下次调用Find方法时不指定这些参数的值,就使用保存的值。
因此每次使用该方法时请明确设置这些参数。
如果工作表的A列中存在重复的数值,那么需要使用FindNext方法或FindPrevious方法进行重复搜索,如下面的代码所示。
#001SubRngFindNext()
#004DimFindAddressAsString
#005StrFind=InputBox("
#006IfTrim(StrFind)<
#007WithSheet1.Range("
#008SetRng=.Find(What:
#009After:
#010LookIn:
#011LookAt:
#012SearchOrder:
#013SearchDirection:
#014MatchCase:
#015IfNotRngIsNothingThen
#016FindAddress=Rng.Address
#017Do
#018Rng.Interior.ColorIndex=6
#019SetRng=.FindNext(Rng)
#020LoopWhileNotRngIsNothingAndRng.Address<
FindAddress
#021EndIf
#022EndWith
#023EndIf
#024EndSub代码解析:
RngFindNext过程在工作表Sheet1的A列中查找InputBox函数对话框中所输入的值,并将查到单元格底色设置成黄色。
第8行到第17行代码使用Find方法在工作表Sheet1的A列中查找。
第16行代码将查找到的第一个单元格地址赋给字符串变量FindAddress。
第18行代码将查找到的单元格底色设置成黄色。
第19行代码使用FindNext方法进行重复搜索。
FindNext方法继续执行用Find方法启动的搜索。
查找下一个匹配相同条件的单元格并返回代表单元格的Range对象,语法如下:
expression.FindNext(After)
参数expression是必需的,返回一个Range对象。
参数After是可选的,指定一个单元格,查找将从该单元格之后开始。
第20行代码如果查找到的单元格地址等于字符串变量FindAddress所记录的地址,说明A列已搜索完毕,结束查找过程。
运行RngFindNext过程,在InputBox函数输入框中输入“196.01”后结果如图1-1所示。
图1-1使用FindNext方法重复搜索
还可以使用FindPrevious方法进行重复搜索,FindPrevious方法的语法如下:
expression.FindPrevious(After)
FindPrevious方法和FindNext方法唯一的区别是FindPrevious方法查找匹配相同条件的前一个单元格而FindNext方法是查找匹配相同条件的下一个单元格。
1-2使用Like运算符
使用Like运算符可以进行更为复杂的模式匹配查找,如下面的代码所示。
#001SubRngLike()
#002DimrngAsRange
#003DimaAsInteger
#004a=1
#005WithSheet2
#006.Range("
).ClearContents
#007ForEachrngIn.Range("
B1:
E1000"
#008Ifrng.TextLike"
*a*"
#009.Range("
&
a)=rng.Text
#010a=a+1
#011EndIf
#012Next
#013EndWith
#014EndSub
RngLike过程使用ForEach...Next语句和Like运算符在单元格区域B1:
E10000中搜索含有“a”字符的单元格,找到匹配单元格以后将单元格的值写入到A列中。
第6行代码使用ClearContents方法清除A列区域的数据。
第7行代码使用ForEach...Next语句在单元格区域B1:
E10000中循环。
第8行代码使用Like运算符在单元格区域B1:
E10000中搜索含有“a”字符的单元格。
Like运算符用来比较两个字符串,语法如下:
result=stringLikepattern
参数string是必需的,字符串表达式。
参数pattern是必需的,字符串表达式。
如果string与pattern匹配,则result为True;
如果不匹配,则result为False。
但是如果string或pattern中有一个为Null,则result为Null。
参数pattern可以使用通配符、字符串列表或字符区间的任何组合来匹配字符串。
表格1-1列出pattern中允许的字符以及它们与什么进行匹配。
表格1-1pattern中的匹配字符串
第9行代码将找到的匹配单元格的值写入到A列中。
运行RngLike过程结果如图1-2所示。
图1-2使用Like运算符进行模式匹配查找
篇二:
ExcelVBA实现读取SQL数据
PrivateSubCommandButton1_Click()
Worksheets("
Sheet2"
).Select
Cells.Select
Selection.DeleteShift:
=xlUp
Range("
A1"
'
清除在Excel中的数据,确保导入信息不出现与原Excel数据进行叠加
DimcnnConnectAsObject
DimrstRecordsetAsObject
Columns("
C"
).Activate
=xlToLeft
SetcnnConnect=CreateObject("
ADODB.connection"
SetrstRecordset=CreateObject("
ADODB.Recordset"
cnnConnect.Open"
Provider=SQLOLEDB;
_
DataSource=10.11.1.4;
UserID=finWork;
Password=finwork;
rstRecordset.Open_
Source:
="
Selectcode,name,emailFromhm_employeeswherestatus=1"
_
ActiveConnection:
=cnnConnect
建立数据库连接,Source为数据库数据服务器IP,及连接用户名与密码,在实现时确保用户对K3数据库有读取权限
WithActiveSheet.QueryTables.Add(_
Connection:
=rstRecordset,_
Destination:
=Range("
))
.Name="
ContactList"
.FieldNames=True
.RowNumbers=False
.FillAdjacentFormulas=False