汝州文明建设网站,广东源江建设集团有限公司网站,成都医疗seo整站优化,想要去网站做友情链接怎么发邮件《VBA信息获取与处理》教程(版权10178984)是我推出第六套教程#xff0c;目前已经是第一版修订了。这套教程定位于最高级#xff0c;是学完初级#xff0c;中级后的教程。这部教程给大家讲解的内容有#xff1a;跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互…《VBA信息获取与处理》教程(版权10178984)是我推出第六套教程目前已经是第一版修订了。这套教程定位于最高级是学完初级中级后的教程。这部教程给大家讲解的内容有跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网数据抓取、VBA延时操作剪贴板应用、Split函数扩展、工作表信息与其他应用交互FSO对象的利用、工作表及文件夹信息的获取、图形信息的获取以及定制工作表信息函数等等内容。程序文件通过32位和64位两种OFFICE系统测试。是非常抽象的更具研究的价值。
教程共两册,二十个专题。今日分享内容是VBA信息获取与处理第四个专题第五节:如何在单个工作表中查找某个给定值
【分享成果随喜正能量】如果你心眼挺好又有德行那你一定有福报。如果有福报却依然发不了财请不要疑惑老天可能将你的福报化成了健康的身体平安的日子温暖的家庭和有良德的子孙后代。福报不一定让你很有钱但一定会让你成为最圆满的自己。。
专题四 EXCEL工作表数据的读取、回填和查找
这个专题我们讲解工作表数据的处理的问题对于VBA而言我给予的定位是“实现个人小型数据自动化处理的利器”对于大多数朋友而言利用VBA是与EXCEL相关联的很多的代码也是用于处理EXCEL内或者相关的各种数据工作表更是作为和用户的交互对象而存在那么对于工作表的数据如何进行查找以及如何读取就是一个十分关键的课题我们这讲就来主要讲解这个问题。 第五节 如何在单个工作表中查找某个给定值
这个专题将的是工作表数据的操作在前几讲中我们讲了工作表数据和VBA直接的传输这讲的内容仍是和工作表相关就是如何在工作表中查找到某个值在《VBA代码解决方案》中我也曾经讲到过FIND方法甚至提出这是LOOKUP函数的终结者。那么如何利用FIND方法解决问题呢
1 Find方法和FindNext方法
1) 我们先来看看FIND方法的语法和参数
语法expression.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SerchFormat)
参数expression是必需的该表达式返回一个Range对象。
参数What是必需的要搜索的数据可为字符串或任意数据类型。
参数After是可选的表示搜索过程将从其之后开始进行的单元格必须是区域中的单个单元格。查找时是从该单元格之后开始的直到本方法绕回到指定的单元格时才对其进行搜索。如果未指定本参数搜索将从区域的左上角单元格之后开始。
参数LookIn是可选的信息类型。xlValues对应 值xlFormulas 对应 公式xlComments对应 批注
参数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方法时不指定这些参数的值就使用保存的值。因此每次使用该方法时请明确设置这些参数。
2) FindNext方法继续执行用Find方法启动的搜索。查找下一个匹配相同条件的单元格并返回代表单元格的Range对象
语法expression.FindNext(After)
参数expression是必需的返回一个Range对象。
参数After是可选的指定一个单元格查找将从该单元格之后开始。
2 利用Find方法在工作表中实现单值查找
为了实现在工作表中的单值查找我们可以利用下面的代码
Sub MYNZI() 工作表唯一查询 Dim FJX As Variant Sheets(Sheet5).Select Range(i2 : I3000).ClearContents i 2 Do While Cells(i, h) Cells(i, h).Select UU Cells(i, h) Set FJX Sheets(Sheet5).Columns(A).Find(UU, lookat:xlWhole) If Not FJX Is Nothing Then Cells(i, i) Sheets(Sheet5).Cells(FJX.Row, 2).Value End If i i 1 Loop MsgBox (OK)
End Sub
代码截图 代码讲解上述代码实现了在工作表A列中查找H列的唯一值的方案首先我们清空了要回填的数据区域Range(i2 : I3000).ClearContents然后利用
Set FJX Sheets(Sheet5).Columns(A).Find(UU, lookat:xlWhole)
来实现我们的查找lookat:xlWhole 是完全匹配当然我们还可以利用其它参数来实现特定的匹配。
上面的这段代码中我保留了工作表的名称这样以后大家利用起来可以直接的拷贝代码进行必要的修改即可。当然找到唯一的值后可以提取的数据可以根据实际情况需要做进一步的改进。
我们看看程序的运行结果 3 利用FindNext方法在工作表中实现多值查找
为了实现在工作表中的多值查找我们可以使用FindNext方法这个方法的好处就是可以查到多个值。在查找的过程中我们要设定起始位置下面的代码是比较经典的代码大家可以利用
Sub MYNZJ() 工作表非唯一查询 Dim bcontinue As Boolean Dim mysearch As Range Dim myfind As Range Dim fristmyfind As String Sheets(Sheet6).Select Range(i2 : I3000).ClearContents i 2 Do While Cells(i, h) Cells(i, h).Select bcontinue True Set mysearch Sheets(Sheet6).Range(A1 : A Sheets(Sheet6).Range(A1).End(xlDown).Row) Set myfind mysearch.Find(what:Cells(i, h), lookat:xlWhole) If Not myfind Is Nothing Then fristmyfind myfind.Address Do Until myfind Is Nothing Or Not bcontinue Cells(i, i) Cells(i, i) Sheets(Sheet6).Cells(myfind.Row, 2) Set myfind mysearch.FindNext(myfind) If myfind.Address fristmyfind Then bcontinue False Loop Set myfind Nothing i i 1 Loop Set mysearch Nothing MsgBox (OK!)
End Sub
代码截图 代码讲解
上述代码实现了工作表A列中的多值查找当在A列中存在H列的值时返回数值注意这里的查找开始表示是fristmyfind myfind.Address一直循环到这个地址再次出现。
下面我们看看代码的运行结果 利用Find和FindNext方法从而实现了工作表中的单一值查询和多值的查询。
本节知识点回向如何实现工作表中的单一值查询如何实现工作表中的多值查询
本专题参考程序文件004工作表.XLSM
我20多年的VBA实践经验全部浓缩在下面的各个教程中教程学习顺序
