第7讲：VBA中利用FIND的代码实现单值查找实例

【分享成果，随喜正能量】心真如，随缘生起一切法，一切法还归于真如。《大乘起信论》讲心真如门就是体，心生灭门就是相用，心生灭、心真如都从一心而起，离开心别无二法。我们想从心真如门修行不易进入，那就从生灭门而入。。

《VBA代码解决方案》(10028096)这套教程是我最早推出的教程，目前已经是第三版修订了。这套教程定位于入门后的提高，在学习这套教程过程中，侧重点是要理解及掌握我的“积木编程”思想。要灵活运用教程中的实例像搭积木一样把自己喜欢的代码摆好。

这套教程共三册，一百四十七讲，内容覆盖较广，也是初级和中级间的过渡教程，改版后的内容主要是提供程序源码文件及代码修正为32位和64位兼用代码。今后一段时间会给大家陆续推出。今日的内容是第7讲：VBA中利用FIND的代码实现单值查找实例

第七讲  使用Find方法，查找单元格

在Excel中使用查找对话框可以查找工作表中特定内容的单元格，而在VBA中则使用Find方法，这个方法是我比较喜欢的方法，在EXCEL中用LOOKUP可以的实现的内容均在使用FIND的方法之内。

1VBA中利用FIND的代码实现单值查找实例

如下面的代码所示。

Sub mynz_7_0() '利用FIND的代码实现单值查找实例

    Dim StrFind As String

    Dim Rng As Range

    StrFind = InputBox("请输入要查找的值:")

    If Trim(StrFind) <> "" Then

        With Sheets("7").Range("A:A")

            Set Rng = .Find(What:=StrFind, _

                After:=.Cells(.Cells.Count), _

                LookIn:=xlValues, _

                LookAt:=xlWhole, _

                SearchOrder:=xlByRows, _

                SearchDirection:=xlNext, _

                MatchCase:=False)

            If Not Rng Is Nothing Then

                Application.Goto Rng, True

            Else

                MsgBox "没有找到该单元格!"

            End If

        End With

    End If

End Sub

代码截图：

代码解读：以上过程使用Find方法在工作表Sheets("7")的A列中查找InputBox函数对话框中所输入的值，并查找该值所在的第一个单元格。

（待续）

本讲内容参考程序文件：VBA代码解决方案（1-19）.xlsm

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：