手机边亲爱的大家好！
 
今天我要给大家分享一个示例：统计出某个字符串在某表某字段中出现的次数。
 
 
 
大家先来看一下结果效果图：
 
 
 
 
 
 
先来讲一下原理，其实就是循环数据库中的所有表，然后找模糊查找，找到了就记录表名、表中的字段、统计出现的次数。
 
 
 
知道了原理就可以开始做了，今天我们换个套路，不要再之前一步一步的方式来教大家了，只告诉关键的步骤。
 
 
 
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测试
 
最后一步就是测试了，大家可以将按上面的步骤，在按钮控件的单击事件里来调用上面的函数。
 
 
 

转自：http://www.pinlue.com/article/2018/09/1514/087188585901.html

nT = UBound(Split(cTextStrs, "xx"))
 cTextStrs 要查找的字符串
 xx 要查找的字符
 nT 重复的次数

 
工作中常遇到要截取某单元格中指定内容的字符，并且此字符要求是第N次出现的。通常我们使用MID函数截取相应位置的字符，但是如何确定该字符的第N次出现的位置呢？
 
那么可以用下面的公式确定：
 
=FIND("@",SUBSTITUTE(A1,"\","@",3))
 
如下图B1单元格中的公式所示，得到反斜杠"\"第三次出现的位置是19：
 

 

  
 
 

上述公式，主要用SUBSTITUTE(A1, "\", "@", 3) 将A1单元格第三次出现的反斜杠"\"替换为"@"（可以用其他不常用的字符，方便FIND函数查找到即可）。
参数“3" ，是指第三次出现的反斜杠"\"，各人实际工作需要而定。
 

SUBSTITUTE 函数详解
 
说明
在文本字符串中用 new_text 替换 old_text。
如果需要在某一文本字符串中替换指定的文本，请使用函数 SUBSTITUTE；
如果需要在某一文本字符串中替换特定位置处的任意文本，请使用函数 REPLACE。
语法
SUBSTITUTE(text, old_text, new_text, [instance_num])
SUBSTITUTE 函数语法具有下列参数 （参数:为操作、事件、方法、属性、函数或过程提供信息的值。）：
text 必需。 需要替换其中字符的文本，或对含有文本（需要替换其中字符）的单元格的引用。
 
old_text 必需。 需要替换的文本。new_text 必需。 用于替换 old_text 的文本。
 
Instance_num 可选。 指定要用 new_text 替换 old_text 的事件。 如果指定了 
 
instance_num，则只有满足要求的 old_text 被替换。 否则，文本中出现的所有 old_text 都会更改为 new_text。