精华内容
下载资源
问答
  • 怎样用VBA查找选定区域内包含某字符串的单元格,并用设定的底色显示
  • 转自:http://www.pinlue.com/article/2018/09/1514/087188585901.html
    展开全文
  • '示例:=myget(srg,1,3)'从第 3 位开始取出中文字符' =myget(srg,2)'从第 1 位开始取出英文字母,第 3个参数省略默认为 1' =myget(srg,,5)'从第 5 位开始取出数字,第 2个参数省略默认为 0' =myget(srg) '第 2、3 个...
  • VBA统计字符串出现的次数

    千次阅读 2020-04-19 21:27:52
    今天我要给大家分享一个示例:统计出某个字符串在某表某字段中出现的次数。 大家先来看一下结果效果图: 先来讲一下原理,其实就是循环数据库中的所有表,然后找模糊查找,找到了就记录表名、表中的字段、...

    手机边亲爱的大家好!

    今天我要给大家分享一个示例:统计出某个字符串在某表某字段中出现的次数。

     

    大家先来看一下结果效果图:

     

     

    先来讲一下原理,其实就是循环数据库中的所有表,然后找模糊查找,找到了就记录表名、表中的字段、统计出现的次数。

     

    知道了原理就可以开始做了,今天我们换个套路,不要再之前一步一步的方式来教大家了,只告诉关键的步骤。

     

    01建表

    其中,我们要建一张表,用于保存统计的数据,具体的查看截图。

    02添加函数

    这次代码只分享给大家一个关键的函数,然后大家自己去调用一下

    查找函数

     1Private Sub Snoop(SnoopFor As String)
     2
     3    On Error GoTo Snoop_Err
     4
     5    Dim DB As Database
     6    Dim S As Recordset
     7    Dim T As Recordset
     8    Dim td As TableDef
     9    Dim L As Integer
    10    Dim F As Integer
    11    Dim criteria As String
    12    Dim occ As Long
    13
    14    Set DB = CurrentDb()
    15    Set S = DB.OpenRecordset("tblSNOOP", DB_OPEN_DYNASET)
    16
    17
    18    For L = 0 To DB.TableDefs.Count - 1
    19
    20        Set td = DB.TableDefs(L)
    21
    22
    23        If Not td.Name Like "Msys*" Then
    24            Set T = DB.OpenRecordset(td.Name, DB_OPEN_SNAPSHOT)
    25
    26            DoEvents
    27
    28            For F = 0 To td.Fields.Count - 1
    29
    30
    31
    32                criteria = "CStr('' & [" & td.Fields(F).Name & "]) Like '*" & SnoopFor & "*'"
    33                T.FindFirst criteria
    34
    35                If Not (T.NoMatch) Then
    36
    37                    occ = 0
    38                    Do While Not (T.NoMatch)
    39                        T.FindNext criteria
    40                        occ = occ + 1
    41
    42                    Loop
    43
    44                    S.AddNew
    45                    S!Occurence = occ
    46                    S!Table = td.Name
    47                    S!Field = td.Fields(F).Name
    48                    S.Update
    49
    50                End If
    51
    52            Next F
    53
    54        End If
    55
    56    Next L
    57    Me.frmChild.Form.Requery
    58    '    T.Close
    59    S.Close
    60    DB.Close
    61
    62Snoop_Exit:
    63
    64
    65
    66    Exit Sub
    67
    68Snoop_Err:
    69    MsgBox Err.Description, vbCritical
    70    Resume Snoop_Exit
    71
    72    Exit Sub
    73
    74End Sub
    

     

    03测试

    最后一步就是测试了,大家可以将按上面的步骤,在按钮控件的单击事件里来调用上面的函数。

     

    展开全文
  • VBA 字符串函数

    千次阅读 2019-05-11 16:02:31
    len(s) 求长度 trim(s) 去掉两端空格 replace(s,a,b) 替换s中子串a,用b替代 left(s,a) 从左边取若干字符 right(s,a) 从右边取若干字符 ...instr(a,s1,s2) 从a位置在s1中查找字符串s2,返回位置 ---------------...
    len(s) 求长度
    
    trim(s) 去掉两端空格
    
    replace(s,a,b) 替换s中子串a,用b替代
    
    left(s,a) 从左边取若干字符
    
    right(s,a) 从右边取若干字符
    
    mid(s,a,b) 从中间取若干字符
    
    instr(s1,s2) s1中查找字符串s2,返回位置
    
    instr(a,s1,s2) 从a位置在s1中查找字符串s2,返回位置
    -------------------------------------------------------------------------
    replace() 
    	  把字符串中的某个字符替换成其它字符. 接下来把字符串中的an 替换成love
          my_string = "start diandian didi end"
         
         find_char = "an"
         replace_char = "love"
         
         replace_result = Replace(my_string, find_char, replace_char)
    

    split() 
    	   把字符串按某个字符分割, 接下来把字符串按 an字符进行分割 
          my_string = "startdiandiandidiend"
          split_char = "an"
          split_results = Split(my_string, split_char)
    
    展开全文
  • 判断是否有|使用INSTR函数,函数的说明如下:...SearchChar = "P" ' 要查找字符串 "P"。 ' 从第四个字符开始,以文本比较的方式找起。返回值为 6(小写 p)。 ' 小写 p 和大写 P 在文本比较下是一样的。 MyPos = Instr

    判断是否有|使用INSTR函数,函数的说明如下:

    InStr 函数示例

    本示例使用 InStr 函数来查找某字符串在另一个字符串中首次出现的位置。
    Dim SearchString, SearchChar, MyPos
    SearchString ="XXpXXpXXPXXP" ' 被搜索的字符串。
    SearchChar = "P" ' 要查找字符串 "P"。
    ' 从第四个字符开始,以文本比较的方式找起。返回值为 6(小写 p)。
    ' 小写 p 和大写 P 在文本比较下是一样的。
    MyPos = Instr(4, SearchString, SearchChar, 1)

    ' 从第一个字符开使,以二进制比较的方式找起。返回值为 9(大写 P)。
    ' 小写 p 和大写 P 在二进制比较下是不一样的。
    MyPos = Instr(1, SearchString, SearchChar, 0)

    ' 缺省的比对方式为二进制比较(最后一个参数可省略)。
    MyPos = Instr(SearchString, SearchChar) ' 返回 9。

    MyPos = Instr(1, SearchString, "W") ' 返回 0。

    替换|为,使用Replace函数,例如:
    Replace("KSDHKJH|SDF|SDF",“|”,“,”)

    展开全文
  • VBA示例之 获取一个字符串中有多少个数字字符,供初学者参考,大牛勿进~~~~~~~
  • word vba 如何查找出一个字符串中包括了多少个指定子字符串? Sub at() aaaa = "ASDFSF。ASDF。SDF。234。'XCV。d" '第1种方法 bbb = Replace(aaaa, "。", "") cccc = Split(aaaa, "。") CS1 = Len(aaaa) - Len...
  • Sub 查找文档中有多少个指定字符串() dai_cha_zhao_text = InputBox("请输入您要查找字符串:", " 包含多少个字符串查找") With ActiveDocument.Content.Find Do While .Execute(FindText:=dai_cha_zhao_text...
  • nT = UBound(Split(cTextStrs, "xx")) cTextStrs 要查找字符串 xx 要查找的字符 nT 重复的次数
  • CAD-vba字符串查找

    2018-05-16 08:21:49
    CAD-vba字符串查找函数,查找关键字。AcadText单行文字,AcadMText多行文字 Dim ent As AcadEntity For Each ent In ThisDrawing.ModelSpace
  • VBA查询word中的字符串

    千次阅读 2019-06-20 22:53:29
    Sub 查找相同字符个数() Text = InputBox("请输入您要查找到字符:", ...Text = "[" + Trim(str(i)) + "]" '注意数值转成字符串会在前面加上空格,所以要用trim去除空格 Text = Trim(Text) With ActiveDocume...
  • 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)去掉...
  • VBA 判断字符串是否包含中文字符

    千次阅读 2019-07-02 22:20:42
    VBA 判断字符串是否包含中文字符 Function StrWithChinese(StrChk As String) As Boolean StrChk = VBA.StrConv(StrChk, vbNarrow) '将字符串转换成半角 StrWithChinese = IIf(Len(StrChk) < LenB(StrConv...
  • 工作中常遇到要截取某单元格中指定内容的字符,并且此字符要求是第N次出现的。通常我们使用MID函数截取相应位置的字符,但是如何确定该字符的第N次出现的位置呢?那么可以用下面的公式确定:=FIND("@",SUBSTITUTE(A1...
  • Sub test() aaa = "江苏省南京市建邺区水西门大街34号" If InStr(aaa, "建邺") <> 0 Then MsgBox "在里面" Else MsgBox "不在里面" End If End Sub 转载于:...
  • 1、open 文件名 for output(写入覆盖数据)/...3、instr(a,b)函数返回为long形式,意为指定一字符串(b)在另一字符串(a)中最先出现的位置,返回值为具体位置,如果返回0则表示不存在。 4、dir(a)返回为stri
  • Instr函数是十分实用的,它可以查询某个字符串在另一个字符串中是否出现,并且返回该查询字符串最先出现的索引位置。Instr函数常常与Mid函数一起使用,会有非常好用的效果。不过Instr函数并非Excel内置的函数,因此...
  • VBA提取字符串中的数字

    千次阅读 2021-04-26 15:15:28
    上一篇讲了用 python 提取字符串中的数字,这次用VBA来事项。总体思路和 python 是一样的,代码如下: Option Explicit Sub GetNumbers() Dim from_string As String, convert_numbers As String Dim i, j, k, ...
  • VBA字符串的相关函数

    千次阅读 2019-05-24 15:53:56
    使用 len() 函数获得一个字符串长度 使用 left() mid() ,right() 截取字符串 使用 replace() 把字符串中的某个字符替换成其它字符 使用 split() 把字符串按某个字符分割 instr运算符 Like运算符 使用string()...
  • VBA 字符串操作

    千次阅读 2019-05-13 17:22:15
    字符串拆与组合 'left,right,mid,Len Sub z1() Dim sr sr = "Excel精英培训网" MsgBox Left(sr, 5) MsgBox Right(sr, 5) MsgBox Mid(sr, 3, 5) MsgBox Left(sr, Len(sr) - 1) End Sub 'split Sub z2() Dim ...
  • 计算两列字符串中的相似度,方便找出类似文字
  • VBA示例函数之 求人不如自已动手 提取定中汉字,供初学者参考,大牛勿进~~~~~~~
  • 现需要筛选出所有上海的供应商采购记录,该如何用VBA实现? 商品编码 入库日期 部门 业务员 供应商 数量 单价 金额 GXGY023 2009/1/1 采购部 刘清 上海照明公司 200 41....
  • Function GetPureName(filename As String) Dim i As Integer Dim s, RstStr As String Dim Bol As Boolean For i = 1 To Len(filename) s = Mid(filename, i, 1) If (s Like "[0-9a-zA-Z]") Then ...
  • 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 返回字符代码 ...
  • 查找某字符在字符串中的个数

    千次阅读 2012-02-11 09:44:19
    SELECT '1002#10131#15#15#', LENGTH('1002#10131#15#15#')-LENGTH(REPLACE('1002#10131#15#15#','#',''))
  • 有同学反映,需要查找指定字符的前一个字符。根据此需求,大家可用录制宏操作一下查找字符的操作,然后得到一些基本代码,在此基础上进行修改,得到具备相应功能的过程代码。最终代码如下: Sub findtext() Dim ...
  • VBA:处理字符串的各种函数

    千次阅读 2020-01-12 17:07:19
    SearchChar = "P" ' 要查找字符串 "P"。 ' 从第四个字符开始,以文本比较的方式找起。返回值为 6(小写 p)。 ' 小写 p 和大写 P 在文本比较下是一样的。 MyPos = Instr(4, SearchString, SearchChar, 1) ' 从第一...

空空如也

空空如也

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

vba查找字符串