精华内容
下载资源
问答
  • 在文本内容查找、搜索指定的文本字符串,可以指定是否忽略大小写、查找起始位置、文本是否遵循对象的形状或边框的路径、指定查找的文本索引类型等。索引类型可以是字符、单词或段落。 使用 Text 类提供的 Find ...

    在文本内容中查找、搜索指定的文本字符串,可以指定是否忽略大小写、查找起始位置、文本是否遵循对象的形状或边框的路径、指定要查找的文本索引类型等。索引类型可以是字符、单词或段落。

    使用 Text 类提供的 Find 方法,可以实现文本的查找、搜索,尤其适合在段落文本中进行查找、搜索,速度较快。

    参数说明

    参数 描述
    Text Text    指定要查找的文本。字符串必须包含在引号中。
    CaseSensitive 确定是否匹配text参数中的文本的大小写(是否大小写敏感)。
    StartIndex 指定文本范围中的第一个文本对象。如果索引类型设置为word,并且开始索引为3,则 StartIndex 参数从所选文本框架中的第三个单词开始范围。该参数是可选的,其默认值为1。
    WrapAround 确定文本是否遵循对象的形状或边框的路径。该参数是可选的,其默认值为False。
    IndexingType 指定要查找的文本类型。索引类型可以是字符、单词或段落。参数IndexingType的值是cdrTextIndexingType。这个参数是可选的,默认值是cdrCharacterIndexing(0)。

     

    代码例子

    Sub test()
    	' 定义形状类型
    	Dim s As Shape
    	' 定义保存文本位置的变量
    	Dim n As Long
    	' 在当前活动图层创建一个段落文本
    	Set s = ActiveLayer.CreateParagraphText(0, 0, 2, 1, "CDR VBA 探秘")
    	' 查找“VBA”字符串,不区分大小写
    	n = s.Text.Find("VBA", False)
    	' 如果找到了,替换字符
    	If n <> 0 Then s.Text.Characters(n, 0) = "CorelDRAW"
    End Sub

     

    展开全文
  • '根据Code编码字符串,在Zone区域的第1列中查找匹配项,如果值等于Code添加指定列数据到返回内容里,返回所有的符合项。 FunctionCollectMatchInfoColumn(CodeAsrange,ZoneAsrange,ColumnIndexAsInteger,...

    参数:

      1. Code :查询的内容
      2. Zone :查询的区域
      3. ColumnIndex :指定返回列的序号
      4. Splitor :行分隔符

     

    '根据Code编码字符串,在Zone区域的第1列中查找匹配项,如果值等于Code 添加指定列数据到返回内容里,返回所有的符合项。
    Function CollectMatchInfoColumn(Code As range, Zone As range, ColumnIndex As Integer, Splitor As String)
        Dim columnCount As Long, rowsCount As Long
        Dim resultStr As String, codeStr As String
        columnCount = Zone.Columns.Count
        rowsCount = Zone.Rows.Count
        '参数判断
        If Code.Cells.Count <> 1 Then
            CollectMatchInfoColumn = "#参数有误"
            Exit Function
        End If
        If columnCount < 2 Then
            CollectMatchInfoColumn = "#参数有误"
            Exit Function
        End If
        '默认分隔符为 ;
        If Splitor = "" Then
            Splitor = ";"
        End If
        '返回指定行的序列不能大于总列数
        If ColumnIndex > columnCount Or ColumnIndex < 2 Then
            CollectMatchInfoColumn = "#参数有误"
            Exit Function
        End If
        '函数功能
        codeStr = Trim(Code.Cells(1, 1))
        With Zone
            For i = 1 To rowsCount Step 1
                If .Cells(i, 1) = "" Then
                    Exit For
                End If
                If Trim(.Cells(i, 1)) = codeStr Then
                    
                    '添加指定的列
                    
                    If .Cells(i, ColumnIndex) <> "" Then
                        '第一个匹配项,不添加分隔符
                        If resultStr <> "" Then
                            resultStr = resultStr & Splitor & Chr(10)
                        End If
                        resultStr = resultStr & .Cells(i, ColumnIndex)
                    End If
                    
                End If
            Next
        End With
        CollectMatchInfoColumn = resultStr
    End Function

    展开全文
  • Range.Find 方法,在该Range类对象代表的单元格区域中,搜索含有指定内容的单元格。Find只返回第一个找到的结果,例找374这个数字:Range(“B2,G14”).Find(374),返回Range(”C4”) Range.Find(What,After,Look...

     

    相关知识点:

    Range.Find 方法,在该Range类对象代表的单元格区域中,搜索含有指定内容的单元格。Find只返回第一个找到的结果,例找374这个数字:Range(“B2,G14”).Find(374),返回Range(”C4”

    Range.Find(What,After,LookIn,Lookat,SearchOrder,SeachDirection,MatchCase,MatchByte,SeachFormat)

               9个参数:What 必填,后面8个参数,定义为可选参数(提高18回)。

    What:含义,需要查找的内容;特点,为变体类型,可以接受数字、字符串、日期等各种VBA数据类型,支持通配符(正则表达式,?*-),从而实现模糊查找。(25),(”熊猫”),(#3/18/2019#

    例1 找出“熊猫”单元格(基础方法)

    Sub findnum()

           Dim i&,j&,d as date

           d=time()

           For i=1 To 100000

                  For j=1 To 50

                         If cells(i,j)=”熊猫” Then

                                cells(i,j).interior.color=vbred

                                cells(i,j).select

                                Goto found

                         End If

                  next j

           next i

    Found:

           msgbox”共计用时” & datediff(“s”,d,time()) & “秒”  ‘返回13秒

    End Sub

    例2 找熊猫优化例1,用二维数组(提高篇14回)

    Sub findnum1()

           Dim i&,j&,d as date,,arr()

           d=time()

    arr()=range((1,1),(100000,50))

           For i=1 To 100000

                  For j=1 To 50

                         If arr(i,j)=”熊猫” Then

                                cells(i,j).interior.color=vbred

                                cells(i,j).select

                                Goto Found

                         End If

                  next j

           next i

    Found:

           msgbox”共计用时” & datediff(“s”,d,time()) & “秒”  ‘返回2秒

    End Sub

    例3 找熊猫优化例2,用Fiund()函数,代码简单,如果没有熊猫,就会出错(Nothing

    Sub findnum()

           Dim d as date, r as range

           d=Time()

           set r=range(cells(1,1),cells(100000,50)).Find(“熊猫”)

           If Not r Is Nothing Then   ‘如果r不是Nothing,即r is Nothing False,则Not r is Nothing

    True,进入分枝

    r.interior.color=vbred

                  r.select

                  msgbox”共计用时” & Datediff(“s”,d,time()) & “秒” ‘返回2秒

           Else

                  msgbox”没找到

           End If

    End Sub

    展开全文
  • Excel表格,想以其中某一列为索引,查找另一个表格中同样索引的行,找到该行的某个内容复制到原来的表格指定的位置中。还可以删除原有表格中重复的内容。应用场景非常多,比如:利用学生学号和考场分配表查找学生...
  • VBA常用技巧

    2014-12-21 16:39:28
    技巧167 查找指定工作簿是否打开 12 技巧168 取得应用程序的安装路径 12 技巧169 数组的使用 12 169-1 代码运行时创建数组 12 169-2 文本转换为数组 12 169-3 使用动态数组去除重复值 12 第10章 文件操作 12 技巧170...
  • Application.FindFormat属性:用于指定后面Find等方法中需要查找的格式,与Range的方法一致 Application.FindFormat.Font.Bold=True Range.Find(What,After,LookIn,Lookat,SearchOrder,SeachDirection,MatchC...

     

    相关知识点:

    Application.FindFormat属性:用于指定后面Find等方法中需要查找的格式,与Range的方法一致

                         Application.FindFormat.Font.Bold=True

    Range.Find(What,After,LookIn,Lookat,SearchOrder,SeachDirection,MatchCase,MatchByte,SeachFormat)

               9个参数:What 必填,后面8个参数,定义为可选参数(提高18回)。

    What:含义,需要查找的内容;特点,为变体类型,可以接受数字、字符串、日期等各种VBA数据类型,支持通配符(正则表达式,?*-),从而实现模糊查找。(25),(”熊猫”),(#3/18/2019#

    MatchCase:含义,匹配大小写;取值,True代表大小写不同;False,代表大小写相同

    LookAt:   含义,匹配单元格;取值,单元格的内容必须与欲查找内容长度相同,不能多出字符;False,单元格中的内容只需包含欲查找的字符串即可。1xlwhole,完全匹配;2xlpart,包含即可

    LookIn:     含义,查找范围;取值,xlValues在单元格内容(值)中查找;xlFormulas在公式(或值)中查找;xlcomments在单元格批注中查找。Xlvalues和xlformulas查找相互重叠。

    Searchformat:   含义,按格式查找;取值,True,查找结果须符合指定格式;False,查找结果可以是任意格式。

    例1 大小写查找

    Sub matchcasedemo()

           Dim r as range

           Set r=cells.find(“abc”,MatchCase:=True)

           If Not r Is Nothing Then

                  Msgbox r.address  ‘返回单元格地址“$D$3”,匹配“abc”,不匹配“aBC”

           End If

    End Sub

    例2 匹配单元格

    Sub lookatdemo()

           Dim r as range

           Set r=cells.find(“b”, MatchCase:=True ,lookat:=1)  ‘区分大小写,

    ‘1xlwhole,精确匹配;2xlpart,包含即可

           If Not r Is Nothing Then

                  r.Interior.Color=vbred  ‘长度完全相同

           End If

    End Sub

    例3 查找范围

    Sub lookIndemo()

           Dim r as range

           Set r=cells.find(“熊猫”, lookin:=xlvalues)  ‘在单元格内容中查找

           If Not r Is Nothing Then

                  r.Interior.Color=vbred  ‘长度完全相同

           End If

    End Sub

    例4 特定格式查找

    Sub formatdemo()

           Dim r as range

    Application.FindFormat.Interior.Color=vbblack

    Application.FindFormat.Font.Color=vbwhite   ‘特定格式

           Set r=cells.find(“熊猫”,searchformat:=True)

           If Not r Is Nothing Then

                  Msgbox r.address  ‘返回单元格地址“$D$3”,匹配“abc”,不匹配“aBC”

           End If

    End Sub

    例5 特定格式查找(简化代码With    End with

    Sub formatdemo()

           Dim r as range

    With Application.FindFormat

    .Interior.Color=vbblack

    .Font.Color=vbwhite   ‘特定格式

           End  With

           Set r=cells.find(“熊猫”,searchformat:=True)

           If Not r Is Nothing Then

                  Msgbox r.address  ‘返回单元格地址“$D$3”,匹配“abc”,不匹配“aBC”

           End If

    End Sub

    展开全文
  • 强大的Excel 的 VBA

    千次阅读 多人点赞 2019-01-28 20:49:51
    我想通过 查找E列单元格中的指定文字,如果查找到 把G列文字的该行对应的单元格填充相应的内容 Sub 宏1() ' ' 宏1 宏 ' For Each Rng In Range("E1:E8130")  If Rng = "指定文字" Then  a ...
  • VBA编程技巧大全

    2013-08-05 09:03:19
    技巧167 查找指定工作簿是否打开 404 技巧168 取得应用程序的安装路径 404 技巧169 数组的使用 406 169-1 代码运行时创建数组 406 169-2 文本转换为数组 407 169-3 使用动态数组去除重复值 409 第10章 文件操作 412 ...
  • EXCEL VBA常用技巧

    2010-02-09 22:28:27
    VBA常用技巧 目录 第1章 Range(单元格)对象 3 技巧1 单元格的引用方法 3 1-1 使用Range属性 3 1-2 使用Cells属性 4 1-3 使用快捷记号 4 1-4 使用Offset属性 5 1-5 使用Resize属性 6 1-6 使用Union方法 7 1-7 使用...
  • 【Exel VBA】FIND()

    2019-03-26 09:26:26
    Find语法: Range.Find(What,After,LookIn,LookAt,SearchOrder,SearchDirection,MatchCase,MatchByte,SearchFormat) ...对应于“查找与替换”对话框中,“查找内容”文本框中的内容。 参数After,可选。指定开...
  • 14.从右边开始查找指定字符在字符串中的位置 15.从右边开始查找指定字符在字符串中的位置 16.计算工龄 17.计算日期差,除去星期六、星期日 18.将英文字反转的自定函数 19.计算个人所得税 20.一个能计算是否有重复...
  • 函数作用:从右边开始查找指定字符在字符串中的位置...43 '15.函数作用:从右边开始查找指定字符在字符串中的位置...44 '16.函数作用:计算工龄.................................44 '17.函数作用:计算日期差,除去星期...
  •  选中试题库的任意文本,单击题库工具栏的“查找同题”按钮,如果题库中有相同的内容,则光标定位到下一处,否则光标不动。 单击题库工具栏的“题标图色”按钮,系统将题库中全部试题和答案的参数分别涂上颜色。 ...
  • EXCEL多文件查找替换是由金浚软件工作室推出的一款excel多文件查找替换软件,本软件可同时对指定文件夹中的多个excel工作簿文件批量进行查找内容并替换,绿色小巧,批量操作,省时省力,需要的朋友欢迎前来下载使用...
  • 我在这个简单的问题上竟然花了1个多小时(我查过的关键词:excel RegexString获取关键词,excel正则匹配定位、excel正则匹配获取指定内容,excel 正则匹配获取关键词 均失败了,百度上的链接都是用find、vba,难得有...
  • 【快速选定数据】 可瞬间选中与用户指定内容相同的当前工作表中所有存储格,方便选定、清除内容或其他操作,支持选中字体彩色是否着色。 【取型号使用范围】 取MATCH的两列数据(Relating Area)中对应MODEL的使用范围...
  • 【快速选定数据】 可瞬间选中与用户指定内容相同的当前工作表中所有存储格,方便选定、清除内容或其他操作,支持选中字体彩色是否着色。 【取型号使用范围】 取MATCH的两列数据(Relating Area)中对应MODEL的使用...
  • EXCEL 2007 宝典 附光盘文件

    热门讨论 2010-04-02 14:43:05
    monitor a range.xlsm:一个包含VBA Worksheet_Change宏用于控制指定区域的所有更改的工作簿。 selection change event.xlsm:一个包含VBA Worksheet_Change宏用于更改活动单元格行和列颜色的工作簿。 Chapter 44 ...
  • EXCEL集成工具箱V6.0

    2010-09-11 01:44:37
    【快速选定数据】 可瞬间选中与用户指定内容相同的当前工作表中所有存储格,方便选定、清除内容或其他操作,支持选中字体彩色是否着色。 【取型号使用范围】 取MATCH的两列数据(Relating Area)中对应MODEL的使用...
  • 【快速选定数据】 可瞬间选中与用户指定内容相同的当前工作表中所有存储格,方便选定、清除内容或其他操作,支持选中字体彩色是否着色。 【取型号使用范围】 取MATCH的两列数据(Relating Area)中对应MODEL的使用...
  • 【快速选定数据】 可瞬间选中与用户指定内容相同的当前工作表中所有存储格,方便选定、清除内容或其他操作,支持选中字体彩色是否着色。 【取型号使用范围】 取MATCH的两列数据(Relating Area)中对应MODEL的使用...
  • 9.3.1 指定启动的Splash Screen窗体 241 9.3.2 使用窗体的背景属性 241 9.4 利用Openargs和tab属性重用窗体执行标准任务 244 9.5 增强选项卡窗体的性能 254 9.6 小 结 256 第10章 用控件扩展窗体的功能 ...
  •  全书分为14章和一个附录,包括如下内容:学习使用Excel 2007图表制作界面,掌握使用图形有效地表示数据的方式,根据要传达的信息选择正确的图表类型,学习可节省时间的解决方案,创建大多数人认为使用Excel无法...
  •  全书分为14章和一个附录,包括如下内容:学习使用Excel 2007图表制作界面,掌握使用图形有效地表示数据的方式,根据要传达的信息选择正确的图表类型,学习可节省时间的解决方案,创建大多数人认为使用Excel无法...
  •  全书分为14章和一个附录,包括如下内容:学习使用Excel 2007图表制作界面,掌握使用图形有效地表示数据的方式,根据要传达的信息选择正确的图表类型,学习可节省时间的解决方案,创建大多数人认为使用Excel无法...
  •  全书分为14章和一个附录,包括如下内容:学习使用Excel 2007图表制作界面,掌握使用图形有效地表示数据的方式,根据要传达的信息选择正确的图表类型,学习可节省时间的解决方案,创建大多数人认为使用Excel无法...
  •  全书分为14章和一个附录,包括如下内容:学习使用Excel 2007图表制作界面,掌握使用图形有效地表示数据的方式,根据要传达的信息选择正确的图表类型,学习可节省时间的解决方案,创建大多数人认为使用Excel无法...
  •  全书分为14章和一个附录,包括如下内容:学习使用Excel 2007图表制作界面,掌握使用图形有效地表示数据的方式,根据要传达的信息选择正确的图表类型,学习可节省时间的解决方案,创建大多数人认为使用Excel无法...

空空如也

空空如也

1 2 3 4 5
收藏数 99
精华内容 39
关键字:

vba查找指定内容