六合开奖结果现场直播欢迎诸位!收藏本站注 册登 陆
常用三肖中特马:基础知识网络知识操作系统WPS网页制作数据库算法网页成功之路网络安全最新技术古典mid流行midmid背景下载中心
您现在的位置:首页 > 三肖中特马 > 文章页

Range结合Find方法的VBA实例

Admin | 2009-6-9 19:29:10 | ReadNums | 22230 | 标签 六合开奖结果现场直播 | 打印本页
     

  一、find方法介绍

  find方法,在区域中查找特定信息,并返回 Range 对象,该对象代表用于查找信息的第一个单元格。如果未发现匹配单元格,就返回 Nothing。本方法不影响选定区域或活动单元格。

  方法描述:Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte,SerchFormat)

  参数介绍

  expression      必需。该表达式返回一个 Range 对象。
  What      Variant 类型,必需。要搜索的数据。可为字符串或任意 Microsoft Excel 数据类型。
  After      Variant 类型,可选。表示搜索过程将从其之后开始进行的单元格。此单元格对应于从用户界面搜索时的活动单元格位置。值得注意的是,After 必须是区域中的单个单元格。请记住搜索是从该单元格之后   开始的;直到本方法绕回到指定的单元格时,才对其进行搜索。如果未指定本参数,搜索将从区域的左上角单元格之后开始。
  LookIn      Variant 类型,可选。信息类型。
  LookAt      Variant 类型,可选。可为以下 XlLookAt 常量之一:xlWhole 或 xlPart。
  SearchOrder      Variant 类型,可选。可为以下 XlSearchOrder 常量之一:xlByRows 或 xlByColumns。
  SearchDirection      XlSearchDirection 类型,可选。搜索的方向。
  XlSearchDirection 可为以下 XlSearchDirection 常量之一。
  xlNext 默认值
  xlPrevious
  MatchCase      Variant 类型,可选。若为 True,则进行区分大小写的查找。默认值为 False。
  MatchByte      Variant 类型,可选。仅在选择或安装了双字节语言支持时使用。若为 True,则双字节字符仅匹配双字节字符。若为 False,则双字节字符可匹配其等价的单字节字符。
  SearchFormat      Variant 类型,可选。搜索的格式。

  二、补充说明

  每次使用本方法后,参数 LookIn、LookAt、SearchOrder 和 MatchByte 的设置将保存。如果下次调用本方法时不指定这些参数的值,就使用保存的值。设置这些参数将更改“查找和替换”对话框中的设置,如果您忽略参数,更改“查找和替换”对话框中的设置将更改使用的保存值。若要避免这种问题的出现,每次使用该方法时请明确设置这些参数。

  可以使用 FindNext 和 FindPrevious 方法重复搜索。

  当搜索到指定的搜索区域的末尾时,本方法将绕回到区域的开始继续搜索。发生绕转后,若要停止搜索,请保存第一个找到的单元格地址,然后依据该保存地址测试每个后续查找到的单元格地址。

  若要进行更为复杂的模式匹配查找,请用 For Each...Next 语句和 Like 运算符。例如,下列代码在单元格区域 A1:C5 中搜索字体名称以“Cour”开始的单元格。当 Microsoft Excel 找到匹配单元格以后,就将其字体改为“Times New Roman”。

  For Each c In [A1:C5]
      If c.Font.Name Like "Cour*" Then
          c.Font.Name = "Times New Roman"
      End If
  Next

  三、应用代码例子

  本示例在工作表的单元格区域 A1:A500 中查找包含值 2 的所有单元格,并将这些单元格的值更改为5。

  With Worksheets(1).Range("a1:a500")
      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


问题未解决:在线咨询

网友评论

(访客)
内容实用原创,讲得很好。
20xx年x月x日
(站长)
有问题请在线咨询。
20xx年x月x日