Set MRG = Range("A:A").Find("D") If MRG Is Nothing Then MsgBox "查找不到字母D" Else MsgBox "查找成功,单元格地址为:" & MRG.Address End If End Sub === Sub f8() '二次查找 Dim MRG As Range Set MRG = Range("A:A").Find("A") Set mrg1 = Range("A:A").FindNext(MRG) M...
If Not Rng Is Nothing Then FindAddress = Rng.Address Do Rng.Interior.ColorIndex = 6 '设置成黄色 Set Rng = .FindNext(Rng)Loop While Not Rng Is Nothing And Rng.Address <> FindAddress End If End With End If End Sub 代码解析：以上过程在工作表Sheets(“7”)的A列中查找InputBox函数对话框...
Find方法如果没查到单元格，则rng对象就为Nothing，也就是空的对象，这种情况下我们使用针对rng的方法、属性如rng.Select、rng.value就会报错：所以为了避免查不到数据而产生的报错，我们一般需要使用一个If语句来判断rng是否为Nothing：If Not rng Is Nothing ThenRng.SelectElseMsgBox “没找到!”End If 这里的判别...
Set rngFound =rngSearch.Find("EXCEL", lookat:=xlPart, MatchCase:=True) If rngFound Is Nothing Then Debug.Print "没有找到!" Else Debug.Print rngFound Debug.Print rngFound.Address End If End Sub 返回正确的结果,如下图3所示。 图3 小结 Find方法是一个很重要的常用方法,熟知其参数的用途,灵...
Set frng = .Range("b:b").Find(TextBox1.Text, , , xlWhole) If frng Is Nothing Then MsgBox "没有此用户" ElseIf frng.Offset(0, 1) = TextBox2.Text And TextBox1.Text <> "" Then MsgBox "登录成功!" Unload Me ' Sheets("Sheet1").Activate ...
原示例代码如下:(大家也可参见VBA帮助系统Find方法或FindNext方法帮助主题) 本示例在单元格区域A1:A500中查找值为2的单元格,并将这些单元格的值变为5。 With Worksheets(1).Range("a1:a500") Set c = .Find(2, lookin:=xlValues) If Not c Is Nothing Then ...
Set Rng = Sheets("数据表").Range("b:b").Find(Sheets("入库单").[g3], lookat:=xlWhole) If Rng Is Nothing Then '如果单据代码不存在,则录入数据 For i = 7 To R '每次循环读取数据表的最新的空行行号(注意+1) R1 = Sheets("数据表").Cells(Rows.Count, 2).End(xlUp).Row + 1 ...
‘使用findnext继续往下查找,After参数是指定从哪个单元格的下一个开始查找,其中“:=”后面的findvalue是上一次查找到的位置对象变量,意思就是从这一个单元格的下一个单元格 If findValue.Address = a Then '如果当前的位置和最开始找到的位置一样,则 Set findValue = Rows.FindPrevious(After:=findValue) '以...
Set c = .Find(2, lookin:=xlValues) If Not c Is Nothing Then firstAddress = c.Address Do c.Value = 5 Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> firstAddress End If End With 1. 2. 3. 4. 5.
现在,我们指定Find方法的参数SearchOrder为按列查找(xlByColumns),代码如下: Sub testFind2() Dim rng As Range Set rng =Range("A1:D3").Find(What:="1", SearchOrder:=xlByColumns) MsgBox "查找到内容为1的单元格为: "& r...