网站建设介绍语,优质服务的小企业网站建设,推广网站有效的方法,机械建设网站《VBA代码解决方案》(版权10028096)这套教程是我最早推出的教程#xff0c;目前已经是第三版修订了。这套教程定位于入门后的提高#xff0c;在学习这套教程过程中#xff0c;侧重点是要理解及掌握我的“积木编程”思想。要灵活运用教程中的实例像搭积木一样把自己喜欢的代码…《VBA代码解决方案》(版权10028096)这套教程是我最早推出的教程目前已经是第三版修订了。这套教程定位于入门后的提高在学习这套教程过程中侧重点是要理解及掌握我的“积木编程”思想。要灵活运用教程中的实例像搭积木一样把自己喜欢的代码摆好。
这套教程共三册一百四十七讲内容覆盖较广也是初级和中级间的过渡教程改版后的内容主要是提供程序源码文件及代码修正为32位和64位兼用代码。今后一段时间会给大家陆续推出。今日的内容是VBA代码解决方案第8讲利用FindPrevious进行重复搜索及利用LIKE查找
【分享成果随喜正能量】笑看风云淡坐对云起时。不争就是慈悲不辩就是智慧不闻就是清净不看就是自在原谅就是解脱知足就是放下。。
第八讲 利用FindPrevious进行重复搜索及利用LIKE查找
在上一讲中我讲了利用FIND方法进行单值和多值查找的方法今日继续讲解今日讲解FindPrevious方法进行重复搜索和利用LIKE查找的方法。
1nbsp;nbsp;FindPrevious方法
语法expression.FindPrevious(After)
FindPrevious方法和FindNext方法唯一的区别是FindPrevious方法查找匹配相同条件的前一个单元格而FindNext方法是查找匹配相同条件的下一个单元格。
如下代码
Sub mynz_8() 8 利用FindPrevious方法进行重复搜索
nbsp;Dim rng As Range
nbsp;Dim a As Integer
nbsp;nbsp;nbsp;a 1
nbsp;nbsp;nbsp;With Sheets(8)
nbsp;nbsp;nbsp;nbsp;nbsp;.Range(A:A).ClearContents
nbsp;nbsp;nbsp;nbsp;nbsp;bcontinue True
nbsp;nbsp;nbsp;nbsp;nbsp;Set rng .Range(B1:E20).Find(*a*)
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;If Not rng Is Nothing Then fristmyfind rng.Address
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Do Until rng Is Nothing Or Not bcontinue
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;.Range(A a) rng.Text
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;a a 1
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Set rng .Range(B1:E20).FindPrevious(rng)
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;If rng.Address fristmyfind Then bcontinue False
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Loop
nbsp;nbsp;nbsp;End With
nbsp;nbsp;End Sub 代码截图 上述代码运行后将返回值放在A列大家可以看一下返回的结果。 2nbsp;用Like运算符进行更为复杂的匹配查找
Like运算符用来比较两个字符串。
语法如下result string Like pattern
参数
a)string是必需的字符串表达式。
b)pattern是必需的字符串表达式。
c)pattern可以使用通配符、字符串列表或字符区间的任何组合来匹配字符串。下表列出pattern中允许的字符以及它们与什么进行匹配。
返回结果如果string与pattern匹配则result为True如果不匹配则result为False。但是如果string或pattern 中有一个为Null则result 为 Null。 下面我们通过一个实例来讲解先看下面的代码 Sub mynz_8_2() 8 利用FindPrevious方法进行重复搜索和利用LIKE查找
nbsp;nbsp;nbsp;nbsp;nbsp;Dim rng As Range
nbsp;nbsp;nbsp;nbsp;nbsp;Dim a As Integer
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;a 1
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;With Sheets(8)
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;.Range(A:A).ClearContents
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;For Each rng In .Range(B1:E20)
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;If rng.Text Like *a* Then
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;.Range(A a) rng.Text
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;a a 1
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;End If
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Next
nbsp;nbsp;nbsp;nbsp;nbsp;End With
End Sub 代码截图 代码解读上述过程使用For Each...Next语句和Like运算符在单元格区域B1:E20中搜索含有“a”字符的单元格找到匹配单元格以后将单元格的值写入到A列中。 1第6行代码使用ClearContents方法清除A列区域的数据。
2第7行代码使用For Each...Next语句在单元格区域B1:E20中循环。
3第8行代码使用Like运算符在单元格区域B1:E20中搜索含有“a”字符的单元格。
4第9行代码将找到的匹配单元格的值写入到A列中。 在上一讲和本讲中先后讲解了Find,FindNext,FindPrevious三个方法的利用这在VBA中利用的非常广泛尤其是Find和FindNex方法是解决查找问题的通用的终结方法比Excel中的LookUp方法要灵活的多也简单的多还希望大家在工作中真正的掌握这些方法。 今日内容回向
1 FIND,FINDNEXT,FINDPrevious有什么不同
2 LIKE运算是如何进行比较的。 本讲内容参考程序文件VBA代码解决方案1-19.xlsm 我20多年的VBA实践经验全部浓缩在下面的各个教程中
