Office中国论坛/Access中国论坛

标题: 查找到后不会跳到要查找的指定位置？ [打印本页]
作者: 小竹长成树    时间: 2016-9-6 10:52
标题: 查找到后不会跳到要查找的指定位置？
请教老师：查找订单号时查找到后不会跳到要查找的指定位置？烦请老师给予帮助改进。谢谢！
作者: pureshadow    时间: 2016-9-6 16:56
  1. Sub RngFindNext()
  2.     Dim StrFind As String
  3.     Dim rng As Range
  4.     Dim FindAddress As String
  5.     Dim ResAdd As String
  6.     StrFind = InputBox("请输入要查找的订单号:")
  7.     If Trim(StrFind) <> "" Then
  8.         With Sheet1.Range("B:B")
  9.             .Interior.ColorIndex = 0
  10.             Set rng = .Find(What:=StrFind, _
  11.                             After:=.Cells(.Cells.Count), _
  12.                             LookIn:=xlValues, _
  13.                             LookAt:=xlWhole, _
  14.                             SearchOrder:=xlByRows, _
  15.                             SearchDirection:=xlNext, _
  16.                             MatchCase:=False)
  17.             If Not rng Is Nothing Then
  18.                 FindAddress = rng.Address
  19.                 Do
  20.                     rng.Interior.ColorIndex = 6
  21.                     ResAdd = ResAdd & "," & rng.Address
  22.                     Set rng = .FindNext(rng)
  23.                 Loop While Not rng Is Nothing _
  24.                     And rng.Address <> FindAddress
  25.                 Range(Mid(ResAdd, 2, 9999)).Select
  26.             End If
  27.         End With
  28.     End If
  29. End Sub
复制代码
作者: 小竹长成树    时间: 2016-9-7 08:30
谢谢老师！
作者: roych    时间: 2016-9-7 17:04
还以为这是一个新人，结果发现伦家注册时间比我还早



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3