批量将序时账生成记账凭证

7473v6575ba

下了几个！谢谢！

840205910

'"+"元字符___匹配前面的子表达式一次或多次。例如，"zo+"能匹配 "zo" 以及 "zoo"，但不能匹配 "z"。+ 等价于 {1,}。"fo+"表示可以与目标对象中的 “fool”, “fo”, 或者 “football”等在后面连续出现一个或多个字母o的字符串相匹配。
'"*"元字符___匹配前面的子表达式零次或多次。例如，zo* 能匹配 "z" 以及 "zoo"。* 等价于{0,}。"eg*"表示可以与目标对象中的 “easy”, “ego”, 或者 “egg”等在字母e后面连续出现零个或多个字母g的字符串相匹配
'"?"元字符___匹配前面的子表达式零次或一次。例如，"do(es)?" 可以匹配 "do" 或 "does" 中的"do" 。? 等价于 {0,1}。当该字符紧跟在任何一个其他限制符 (*, +, ?, {n}, {n,}, {n,m}) 后面时，匹配模式是非贪婪的。非贪婪模式尽可能少的匹配所搜索的字符串，而默认的贪婪模式则尽可能多的匹配所搜索的字符串。例如，对于字符串 "oooo"，'o+?' 将匹配单个 "o"，而 'o+' 将匹配所有 'o'。"Wil?"表示可以与目标对象中的 “Win”, 或者 “Wilson”,等在字母i后面连续出现零个或一个字母l的字符串相匹配
'"\"转义符___将下一个字符标记为一个特殊字符、或一个原义字符、或一个 向后引用、或一个八进制转义符。例如，'n' 匹配字符 "n"。'\n' 匹配一个换行符。序列 '\\' 匹配 "\" 而 "\(" 则匹配 "("。"Th\*"与目标对象中的“Th*”而非“The”等相匹配
'"^"定位符___匹配输入字符串的开始位置。除非在方括号表达式中使用，此时它表示不接受该字符集合。如果设置了RegExp对象的Multiline属性，^ 也匹配 '\n' 或 '\r' 之后的位置。"^hell"与目标对象中以 “hell”, “hello”或 “hellhound”开头的字符串相匹配
'"$"定位符___匹配输入字符串的结束位置。如果设置了RegExp对象的Multiline属性，$ 也匹配 '\n' 或 '\r' 之前的位置。"ar$"与目标对象中以 “car”, “bar”或 “ar” 结尾的字符串相匹配
'"|"管道符___逻辑中的“或”运算.例如，'z|food' 能匹配 "z" 或 "food"。'(z|f)ood' 则匹配 "zood" 或 "food"。
'"[^]"否定符___规定目标对象中不能存在模式中所规定的字符串."[^A-C]"与目标对象中除A，B，和C之外的任何字符相匹配
'()___包含的内容必须同时出现在目标对象中，标记一个子表达式的开始和结束位置。子表达式可以获取供以后使用
'(pattern)___匹配pattern并获取这一匹配。所获取的匹配可以从产生的Matches集合得到，在VBScript中使用SubMatches集合，在JScript中则使用 $0…$9属性。要匹配圆括号字符，请使用 '\(' 或 '\)'。
'(?:pattern)___匹配pattern但不获取匹配结果，也就是说这是一个非获取匹配，不进行存储供以后使用。这在使用 "或" 字符 (|) 来组合一个模式的各个部分是很有用。例如， 'industr(?:y|ies) 就是一个比 'industry|industries' 更简略的表达式。
'(?=pattern)___正向预查，在任何匹配pattern的字符串开始处匹配查找字符串。这是一个非获取匹配，也就是说，该匹配不需要获取供以后使用。例如，'Windows (?=95|98|NT|2000)' 能匹配 "Windows 2000" 中的 "Windows" ，但不能匹配 "Windows 3.1" 中的 "Windows"。预查不消耗字符，也就是说，在一个匹配发生后，在最后一次匹配之后立即开始下一次匹配的搜索，而不是从包含预查的字符之后开始。
'(?!pattern)___负向预查，在任何不匹配pattern的字符串开始处匹配查找字符串。这是一个非获取匹配，也就是说，该匹配不需要获取供以后使用。例如'Windows (?!95|98|NT|2000)' 能匹配 "Windows 3.1" 中的 "Windows"，但不能匹配 "Windows 2000" 中的 "Windows"。预查不消耗字符，也就是说，在一个匹配发生后，在最后一次匹配之后立即开始下一次匹配的搜索，而不是从包含预查的字符之后开始
'[ ___标记一个中括号表达式的开始
'[0-9]___与从0到9范围内任何一个数字相匹配
'([a-z][A-Z][0-9])+___与任何由字母和数字组成的字符串
'[A-Z]___与从A到Z范围内任何一个大写字母相匹配。
'[a-z]___与从a到z范围内任何一个小写字母相匹配。
'[xyz]___字符集合。匹配所包含的任意一个字符。例如， '[abc]' 可以匹配 "plain" 中的 'a'。
'[^a-z]___负值字符范围。匹配任何不在指定范围内的任意字符。例如，'[^a-z]' 可以匹配任何不在 'a' 到 'z' 范围内的任意字符。
'[^xyz]___负值字符集合。匹配未包含的任意字符。例如， '[^abc]' 可以匹配 "plain" 中的'p'。
'{___标记限定符表达式的开始。"jim{2,6}"字符m可以在匹配对象中连续出现2-6次
'"\d{2}-\d{5}"___验证一个ID号码是否由一个2位数字，一个连字符以及一个5位数字组成。
'{n}___n是一个非负整数。匹配确定的n次。例如，'o{2}' 不能匹配 "Bob" 中的 'o'，但是能匹配 "food" 中的两个o。
'{n,}___n是一个非负整数。至少匹配n次。例如，'o{2,}' 不能匹配 "Bob" 中的 'o'，但能匹配 "foooood" 中的所有o。'o{1,}' 等价于 'o+'。'o{0,}' 则等价于 'o*'。
'{n,m}___m和n均为非负整数，其中n ＜= m。最少匹配n次且最多匹配m次。例如，"o{1,3}" 将匹配 "fooooood" 中的前三个o。'o{0,1}' 等价于 'o?'。请注意在逗号和两个数之间不能有空格。
'.___匹配除换行符之外的所有字符，匹配除 "\n" 之外的任何单个字符。
'\s___匹配单个空格符，包括tab键和换行符。匹配任何空白字符，包括空格、制表符、换页符等等。等价于 [?\f\n\r\t\v]。"\s+"匹配目标对象中的一个或多个空格字符
'\S___匹配除单个空格符之外的所有字符。匹配任何非空白字符。等价于 [^?\f\n\r\t\v]。
'\d___匹配从0到9的数字。匹配一个数字字符。等价于 [0-9]。"\d000"查找到所有总额达千元的款项
'\D___匹配一个非数字字符。等价于 [^0-9]。
'\w___匹配字母，数字或下划线字符；等价于'[A-Za-z0-9_]'。
'\W___匹配所有与\w不匹配的字符；等价于 '[^A-Za-z0-9_]'。
'\b定位符___规定匹配模式必须出现在目标字符串的开头或结尾的两个边界之一.也就是指单词和空格间的位置。例如， 'er\b' 可以匹配"never" 中的 'er'，但不能匹配 "verb" 中的 'er'。"\bbom"与目标对象中以 “bomb”, 或 “bom”开头的字符串相匹配.\b[1-9][0-9]{3}\b匹配1000~9999之间的数字(“\b”表示单词边界)。\b[1-9][0-9]{2,4}\b匹配一个在100~99999之间的数字。"man\b"与目标对象中以 “human”, “woman”或 “man”结尾的字符串相匹配
'\B定位符___则规定匹配对象必须位于目标字符串的开头和结尾两个边界之内.'er\B' 能匹配 "verb" 中的 'er'，但不能匹配 "never" 中的 'er'。
'\cx___匹配由x指明的控制字符。例如， \cM匹配一个Control-M或回车符。x的值必须为A-Z或a-z之一。否则，将c视为一个原义的 'c' 字符。
'\f___匹配一个换页符。等价于 \x0c和 \cL。
'\n___匹配一个换行符。等价于 \x0a和 \cJ。
'\r___匹配一个回车符。等价于 \x0d和 \cM。
'\t___匹配一个制表符。等价于 \x09和 \cI。
'\v___匹配一个垂直制表符。等价于 \x0b和 \cK。
'\xn___匹配n，其中n为十六进制转义值。十六进制转义值必须为确定的两个数字长。例如，'\x41' 匹配 "A"。'\x041' 则等价于 '\x04' & "1"。正则表达式中可以使用ASCII编码。.
'\num___匹配num，其中num是一个正整数。对所获取的匹配的引用。例如，'(.)\1' 匹配两个连续的相同字符。
'\nm___标识一个八进制转义值或一个向后引用。如果 \nm之前至少有nm个获得子表达式，则nm为向后引用。如果 \nm之前至少有n个获取，则n为一个后跟文字m的向后引用。如果前面的条件都不满足，若n和m均为八进制数字 (0-7)，则 \nm将匹配八进制转义值nm。
'\nml___如果n为八进制数字 (0-3)，且m和l均为八进制数字 (0-7)，则匹配八进制转义值nml。
'\un___匹配n，其中n是一个用四个十六进制数字表示的Unicode字符。例如， \u00A9匹配版权符号 (?)。
'"^\[ \t]*$"___匹配一个空白行。

840205910

[\d.]{2,}:
         [\d.]匹配点号或数字,{2,}要求只由数字或点号组成的字符串必须至少包含两个字符(这样就排除了只有点号的情况,但不足之处是如果文本中,只有一个数字,则无法匹配).
\d+(\.\d+)?:  该表达式的优点是可匹配整数和小数.
\d+   '匹配一个以上的数字
(?:    '非捕获性括号,括号内是小数部分.
\.      '匹配小数点,由于"."号是元字符,所以需要用"\"转义.
\d+   '小数点后面的数字,
)?      '非捕获性括号的结束,后面的?号,表示小数部分可有可无

840205910

广州万力电器 .rar (469.85 KB, 下载次数: 330)

2016-8-4 09:19 上传

点击文件名下载附件

840205910

Sub 转置()
Dim conn, rst, i&
Application.ScreenUpdating = False
Set conn = CreateObject("adodb.connection")
Set rst = CreateObject("Adodb.Recordset")
conn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;imex=1';data source=" & ActiveWorkbook.FullName
Range("E2:AG350").ClearContents
Sql = "transform max(状态) " & "select 工号 from [考勤表$A1:C9999] group by 工号 pivot 日期 "
rst.Open Sql, conn, 1, 1
[E2].CopyFromRecordset (rst)
   For i = 0 To rst.Fields.Count - 1
      Cells(1, 5 + i) = rst.Fields.Item(i).Name
   Next
[e1] = "工号\日期"
rst.Close: conn.Close
Set conn = Nothing: Set rst = Nothing
Application.ScreenUpdating = True
End Sub

840205910

原来转置可以这样，学习了

zeng333333333

广州万力电器 .rar  数量金额账只能第一页可以，第二页就不能填写了，只出一个空表。

蒋智

请问打开vba工程的密码是多少啊

yaitlt

谢谢楼主分享。

blackttea1

学习啦 ，谢谢