精华内容
下载资源
问答
  • 有同学反映,需要查找指定字符的前一个字符。根据此需求,大家可用录制宏操作一下查找某字符的操作,然后得到一些基本代码,在此基础上进行修改,得到具备相应功能的过程代码。最终代码如下: Sub findtext() Dim ...

    有同学反映,需要查找指定字符的前一个字符。根据此需求,大家可用录制宏操作一下查找某字符的操作,然后得到一些基本代码,在此基础上进行修改,得到具备相应功能的过程代码。最终代码如下:

    Sub findtext()
    Dim MyRange As Range, arr(), brr(), mytext$, tstr&, tend&
    Text = InputBox("请输入要查找的文本:", "提示")
    Set MyRange = ActiveDocument.Content
        With MyRange.Find
            .Forward = True
            Do While .Execute(findtext:=Text) = True
            tim = tim + 1
            tstr = MyRange.Start
            'tend = MyRange.End
            ReDim Preserve arr(1 To tim)
            arr(tim) = tstr
            'Debug.Print arr(tim)
            Loop        
            ReDim brr(1 To UBound(arr, 1), 1)

            For i = 1 To UBound(arr, 1)
            Selection.SetRange Start:=arr(i) - 1, End:=arr(i)
            brr(i, 1) = Selection.Text
            Debug.Print brr(i, 1)
            Next i
                   
        End With
    MsgBox ("当前文档查找到 " + str(tim) + " 个 " + Text), 47, "完成"
    Set MyRange = Nothing

    End Sub

    例子:

    我说了k,好的,算我说过吧,K,滚蛋,你不K就我K貌似不能三键而且默貌似不能三键而且默认是英文环境(文本类函数性质会有差异)认是英文环境(文本类函数性质会有差异)K.

    将上面这段话,放在doc文档页面中,然后启动宏,运行后输入‘K’,将得到结果:





    logo黑星记于2019.11.25
           

    展开全文
  • Sub 查找文档中有多少个指定字符串() dai_cha_zhao_text = InputBox("请输入您要查找到字符串:", " 包含多少个字符串查找") With ActiveDocument.Content.Find Do While .Execute(FindText:=dai_cha_zhao_text...
    Sub 查找文档中有多少个指定字符串()
    
    
    dai_cha_zhao_text = InputBox("请输入您要查找到字符串:", "                           包含多少个字符串查找")
    
    With ActiveDocument.Content.Find
    
         Do While .Execute(FindText:=dai_cha_zhao_text) = True
    
              count_number = count_number + 1
    
         Loop
    
    End With
    
    MsgBox ("当前文档共查找到" & Str(count_number) & "个" & dai_cha_zhao_text), , "     查找结果"
    
    
    End Sub

    查找文档中有多少个指定字符串?

    展开全文
  • 转自:http://www.pinlue.com/article/2018/09/1514/087188585901.html
    展开全文
  • 怎样用VBA查找选定区域内包含某字符串的单元格,并用设定的底色显示
  • Sub str_test() Dim str As String, str1 As String str = "sd\sdsds\" ... MsgBox (str1) '从右向左查找,返回值是9 str1 = InStr(str, "\") MsgBox (str1) '从左向右查找,返回值是3 End Sub ...
    Sub str_test()
        Dim str As String, str1 As String
        str = "sd\sdsds\"
        
        str1 = InStrRev(str, "\")
        MsgBox (str1)   '从右向左查找,返回值是9,核实位置确实在第九位
        
        str1 = InStr(str, "\")
        MsgBox (str1)   '从左向右查找,返回值是3,核实位置确实在第三位
    End Sub
    

     

    展开全文
  • word vba 如何查找出一个字符串中包括了多少个指定字符串? Sub at() aaaa = "ASDFSF。ASDF。SDF。234。'XCV。d" '第1种方法 bbb = Replace(aaaa, "。", "") cccc = Split(aaaa, "。") CS1 = Len(aaaa) - Len...
  • office word利用VBA指定的多个字符字体批量标红加粗 场景说明:比如我有一个英文的word文档,无需要把不认识的单词标成红色并且加粗,如果一个一个替换太麻烦,我想到用vba来实现 ,例如我要把abandon、...
  • word VBA在特定选中区域查找特定字符

    千次阅读 2020-03-24 15:30:27
    补充参考该文 在WORD中用VBA实现光标移动与内容选择 Private Function ...'全文查找字符出现个数,并返回总数 Dim n n = 0 ActiveDocument.Range.Select Selection.Find.ClearFormatting With Select...
  • VBA中的字符串处理

    万次阅读 2011-11-16 11:43:18
    1 VBA中的字符串 2 VBA中处理字符串的函数  2.1 比较字符串  2.2 转换字符串 ... 2.6 查找字符串  2.7 提取字符/字符串  2.8 删除空格  2.9 返回字符代码  2.10 返回数值代表的相应字符  2.11
  • VBA中处理字符

    万次阅读 2010-08-29 09:43:00
    目录 1 VBA中的字符串 2 VBA中处理字符串的函数  2.1 比较字符串  2.2 转换字符串  2.3 创建字符串  2.4 获取字符串的长度  2.5 格式化字符串  2.6 查找字符串...
  • 用VB语言写的函数,查找文件中是否存在指定字符串,如果存在则返回该字符串所在的行,不存在则返回空字符串
  • 问题:提取check之后的数字 来源:Excelhome Sub 提取数字() Dim regexp As New regexp With regexp .Pattern = "check\s*(\d+)" End With With Worksheets("sheet1") r = .Cells(.Rows.Count, 1).End(xlUp).Row...
  • VBA 字符串处理

    2013-09-09 17:44:00
    1 VBA中的字符串 2 VBA中处理字符串的函数 2.1 比较字符串 ...转换字符串 ...创建字符串 ...获取字符串的长度 ...查找字符串 2.7 提取字符/字符串 2.8 删除空格 2.9 返回字符代码 ...
  • VBA中常用的字符串处理函数

    千次阅读 2011-08-31 21:15:59
    VBA中处理字符串 分类:ExcelVBA>>常用函数 目录 1 VBA中的字符串 2 VBA中处理字符串的函数 2.1 比较字符串 ...2.2 转换字符串 ...2.3 创建字符串 ...2.4 获取字符串的长度 ...2.6查找字符串 2.7 提取字符/
  • VBA:处理字符串的各种函数

    千次阅读 2020-01-12 17:07:19
    ),其中包含指定字符串的拷贝,没有前导空白 ( LTrim )、尾随空白 ( RTrim ) 或前导和尾随空白 ( Trim )。 语法 LTrim ( string ) RTrim ( string ) Trim ( string ) 必要的 string 参数 可以是...
  • VBA字符串处理

    千次阅读 2013-11-15 16:38:21
    目录: 1 VBA中的字符串 2 VBA中处理字符串的函数  2.1 比较字符串 ...查找字符串  2.7 提取字符/字符串  2.8 删除空格  2.9 返回字符代码  2.10 返回数值代表的相应字符  2.11 使用字节的函数
  • VBA,字符串处理大全

    万次阅读 2008-02-04 12:23:00
    1 VBA中的字符串2 VBA中处理字符串的函数 2.1 比较字符串 2.2 转换字符串 2.3 创建字符串 2.4 获取字符串的长度 2.5 格式化字符串 2.6 查找字符串 2.7 提取字符/字符串 2.8 删除空格 2.9 返回字符代码 ...
  • @VBA 字符串处理函数集合 mid(字符串,从第几个开始,长度) 在[字符串]中[从第几个开始]取出[长度个字符串] 例如 mid(“小欣无敌”,1,3) 则返回 “小欣无” instr(从第几个开始,字符串1,字符串2) 从规定的位置...
  • VBA 查找特定值并选中整行

    万次阅读 2011-12-22 11:14:50
    找到符合条件的数据并选中整行,以便进行下一步操作。 Sub find() Dim mybook As Workbook Set mybook = Workbooks("2011明细表.xls") ... Set findValue = Worksheets("Sheet1").Columns("B").find(what:="永...
  • 网上查找相关内容,个人感觉是另一种形式的过滤喽。有的说用FIND,有的用高级筛选。我查找时如下: ...FIND会查找字符所在位置,找不到就#VALUE!喽。 D列 “=ISNUMBER(FIND("宣",B2))” F列“=FIND("宣"...
  • 今天在一场“特殊的讨论”中引入了一个问题,如何在C#求出字符串中某字符的出现次数,比如求“ADSFGEHERGASDF”中“A”出现的次数。首先想到的方法当然是从头遍历字符串并统计: c1 = 0;for (int i = 0; i < str...
  • 现需要筛选出所有上海的供应商采购记录,该如何用VBA实现? 商品编码 入库日期 部门 业务员 供应商 数量 单价 金额 GXGY023 2009/1/1 采购部 刘清 上海照明公司 200 41....
  • Dir 函数 返回一个 String,用以表示一个文件名、目录名或文件夹名称,它必须与指定的模式或文件属性、或磁盘卷标相匹配。...用来指定文件名的字符串表达式,可能包含目录或文件夹、以及驱动器。如果没有找到 path
  • VBA字符串处理大全

    千次阅读 2015-09-22 00:26:25
    VBA字符串处理大全
  • 由于商品目录升级,现商品编码中以“GXGY”的所有记录统一更换为“GXGYA”,该如何通过VBA批量实现? 商品编码 替换结果 GXGY023 GXGYA023 GXGY024 GXGYA024 QDJC022 QDJC022 qdjc023 qdjc...
  • VBA字符串处理大全-from EH

    万次阅读 2017-06-22 09:54:45
    VBA字符串处理大全 转载出处 1 VBA中的字符串 2 VBA中处理字符串的函数  2.1 比较字符串 ... 2.2 转换字符串 ... 2.6 查找字符串  2.7 提取字符/字符串  2.8 删除空格  2.9 返回字符代码  2.10 返
  • vba字符串函数汇总

    千次阅读 2020-05-31 11:55:49
    Dim i As String 对以下i值定义为字符串 Dim b As Integer 对以下b值定义为整型 1、Len(string)计算string长度 例 b = Len(“123321”) b返回6 2、Trim(string)去掉string左右两端空格 Ltrim(string)去掉...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 2,313
精华内容 925
关键字:

vba查找指定字符