精华内容
下载资源
问答
  • 大家好,我们今日继续讲解VBA代码解决方案的第128讲内容:从顺序文件读取自定义字符数和读取整个文件内容的方法。在上一讲我们讲了按行读取顺序文件的方法,有时却不都是这种情况,例如让程序检查文件某个特定...

    131874161e517dbcc844c668e1839114.png

    大家好,我们今日继续讲解VBA代码解决方案的第128讲内容:从顺序文件中读取自定义字符数和读取整个文件内容的方法。在上一讲中我们讲了按行读取顺序文件的方法,有时却不都是这种情况,例如让程序检查文件中某个特定的字符出现了多少个,这时你该怎么办呢?此时可以使用函数Input来返回特定的字符数,而不必读取整行。

    Input的语法: Input(number, [#]filenumber)

    参数

    ①number明确你要读取的字符数。

    ②filenumber是Open语句用来打开文件的同一个数字。

    注意:Input函数返回所有读取的字符,包括逗号,回车,文件结束字符,引号和前导空格。

    下面我们实例讲解一下Input函数的应用过程 ,我们要在人员表单中查出姓张的一共有多少人,代码如下:

    Sub mynzColons()

    Dim num As Integer

    Dim zhang As String

    num = 0

    Open "E:nzwork文章人员表单.txt " For Input As #1

    Do While Not EOF(1)

    zhang = Input(1, #1)

    If zhang = "张" Then

    num = num + 1

    End If

    Loop

    If num <> 0 Then

    MsgBox "表单中姓张的共: " & num & "人!"

    Else

    MsgBox "没有姓张的人员."

    End If

    Close #1

    End Sub

    代码截图:

    161f159b54ce34b66c6386c8515847af.png

    看看返回的结果:

    6231a2806325e0abecc149101a48582f.png

    反馈结果是2人。

    注意点:Input函数允许你返回顺序文件中的任何字符。如果你使用VBA函数LOF作为Input函数的第一个参数时,你将能够快速地读取顺序文件里的内容,而不需要在整个文件上循环。备注:LOF函数返回一个文件上的字节数。每个字节对应了文本文件里的一个字符。下面我们看看下面的实例:

    Sub mynzReadAll()

    Dim myall

    Open "E:nzwork文章人员表单.txt " For Binary As #1

    myall = Input(LOF(1), #1)

    MsgBox myall

    Close #1

    End Sub

    代码截图:

    6370e6ac1499a5e960282013f7f93e80.png

    返回结果:

    2f57e0b2f278d54dd7c7a60d16e8e139.png

    上文中讲解了返回的内容在对话框msgbox中体现,你还可以将其读取到一个文本框之中去,这项内容由于篇幅的限制,将在《VBA代码解决方案》中详细说明。

    今日内容回向:

    1 如何读取单个字符?

    2 如何快速的提取整个顺序文件的内容?


    《VBA代码解决方案》终于可以和大家见面了,是我将一些非常实用的VBA内容结集成册,PDF文件,可以从中直接查找到你想要解决问题的思路和方法,可以复制文中的VBA代码直接使用。有需要的朋友微信联络我NZ9668。

    8f0b1a8fab9e6b35529714dcdead0a6d.png

    fee93fa56ed8cb67261c4e07b15d01dd.png

    f0c128fae2eb2543d804a07e85719321.png
    展开全文
  • 在平时的工作,我们经常需要处理一些简单的文本的处理,比方说提取文本的前几位字母,后几位数字等等,说到这里很多小伙伴们都会想到函数,没错函数也可以,当然VBA自然也可以,一起来看看函数法我们现在需要提取...

    VBA早间档

    VBA早间档,利用简单的几分钟,学习一些简单的VBA知识,提升工作效率

    今日主题

    今天我们主要来学习下简单的字符串的处理。在平时的工作中,我们经常需要处理一些简单的文本的处理,比方说提取文本的前几位字母,后几位数字等等,说到这里很多小伙伴们都会想到函数,没错函数也可以,当然VBA自然也可以,一起来看看

    函数法

    2717be2a7d3d8d8bb24d6d7f0b48e839.png

    我们现在需要提取手机号码的前三位,后三位,那么如何通过函数实现呢?

    这里就是利用两个函数left(从前往后数),right(从后往前数),熟悉函数的小伙伴们一定都知道这两个公式了。

    759b9e3e0344d4c6bed7ae8353a71932.png

    非常的简单,那么来看看VBA的方法

    VBA法

    学会了函数的方法,我们来学习下VBA如何玩

    Sub word()Dim a As RangeFor Each a In Selection a.Offset(0, 1) = Left(a, 3) a.Offset(0, 2) = Right(a, 3)Next aEnd Sub

    直接上代码,非常的简单

    763fba5e4b145bf1bd8996ccd4308f3f.png

    我们可以看到两个图的效果是完全相同的

    分析

    为什么要将VBA方法和函数的方法放在一起呢?因为函数大家都比较的容易理解和接受,并且日常工作中也能够比较数量的使用,而在VBA中,我们也是可以直接利用一些相似的方法来实现的,我们看

    a.Offset(0, 1) = Left(a, 3) a.Offset(0, 2) = Right(a, 3)

    LEFT和RIGHT的写法都是完全相同的,所以通过函数作为引导,我们就可以轻松的学习在VBA中一些方法的使用,怎么样,这样是不是很好理解和记忆呢?

    以上就是今天的VBA早间档的全部内容,感谢大家的捧场~~

    明天早上7:30,准时再见,

    展开全文
  • 一、设置数据格式在Excel输入数字后,选中单元格,在"开始"选项卡单击"数字"组右下角对话框启动按钮,弹出"设置单元格格式"对话框,在"数字"选项"分类"列表选中"特殊",在右边"类型"框根据需要选择"中文大写...

    观看视频更直观

    在Excel中将数字转换为中文大写或小写,有两种方法,一种是设置数据格式;另一种是使用内置的隐蔽函数NumberString函数。

    一、设置数据格式

    在Excel中输入数字后,选中单元格,在"开始"选项卡中单击"数字"组右下角对话框启动按钮,弹出"设置单元格格式"对话框,在"数字"选项"分类"列表中选中"特殊",在右边"类型"框中根据需要选择"中文大写数字"或"中文小写数字"。这种内置的格式有两个缺陷:⑴设置数据格式仅仅只是改变了数据的显示形式,数据的本质没有变化,当使用邮件合并功能,格式化后的数据在Word中依然是原始数据形态;当我们对格式化后的数据进行"选择性粘贴",显示的也是原始数据。⑵设置数据格式进行中文大小写转换,会丢失一些必要的"零",这就不符合数学的转换规范。

    6b33a7f6a5e2d890a82b7e7ad1036572.png

    “设置数据格式”对话框

    二、使用NumberString函数

    NumberString函数是Excel中隐藏的一个函数,可以将数字转换为中文大小写,函数只能通过手工输入的方法进行录入,而不能在"插入函数"对话框中插入。

    函数语法:NumberString(要转换的数字, 转换类型),第一个参数是要转换的数字(必需),第二个参数是转换类型(必需),设置为1:转换为中文大写;设置为2:转换为中文小写;设置为3:仅将数字作为字符(而不是作为数字)进行转换,返回中文小写。如下图:

    3cb6e2685936b83a2528175425a33bd9.png

    NumberString函数使用效果

    NumberString函数有两个限制:⑴只能转换整数,如果是小数,将对小数点之后的数字四舍五入;只能转换正数,如果第一个参数是负数,将会报错,错误类型为"#NUM!",也就是可能在需要数字参数的函数中提供了错误的数据类型。⑵财会工作中也需要经常将金额转换为中文大写,单位除整数的"元"这个单位,有时还要带角分小数。

    三、自定义函数NumToDaxie函数

    在Excel中要转换中文大小写,不管是设置数据格式,还是使用内置的隐藏函数NumberString函数,都有缺陷和限制,于是编写了一个自定义函数NumToDaxie来解决实际需要。

    函数语法:NumToDaxie (要转换的数字, [转换类型],第一个参数是要转换的数字(必需),第二个参数是转换类型(可选),设置为0或省略:转换为元角分财会人员专用格式;设置为1:转换为中文大写;转换中文小写内置函数已经可以满足实际需要,故没有设置。如下图:

    a375fc50e4249f7f53d03195d12a104b.png

    NumToDaxie函数使用效果

    四、NumToDaxie函数

    打开Excel后新建一个工作簿,右击sheet1工作表标签,在弹出的快捷菜单中选择"查看代码"命令,打开VBA窗口,单击"插入"菜单→"模块"命令,将下面的代码复制到插入的"模块1"即可,注意有两个函数。

    Public Function NumToDaxie(DblNumber As Double, Optional iType As Byte = 0) As String

    Dim StrNum As String, StrNumL As String, StrNumM As String, strNumR As String

    Dim i As Integer, j As Integer, StrB As String, strXS As String, strZF As String

    strXS = IIf(iType = 1, "", "元整")

    DblNumber = Round(DblNumber, 2) '保留两位小数

    StrNum = Trim(Str(DblNumber))

    If Left(StrNum, 1) = "-" Or Left(StrNum, 1) = "(" Then

    StrNum = Mid(StrNum, 2, Len(StrNum) - 1)

    strZF = "负"

    End If

    i = InStr(DblNumber, ".") '搜索小数点,如果有则i返回小数点位置

    If i <> 0 Then

    xName = Array("", "壹", "贰", "叁", "肆", "伍", "陆", "柒", "捌", "玖")

    strNumR = Mid(StrNum, i + 1, Len(StrNum) - i) '获取小数点右侧数字

    StrNum = Left(StrNum, i - 1) '获取小数点左侧数字

    '以小数点分隔右、左两部分,先右后左,顺序不能颠倒

    Select Case Len(strNumR)

    Case 1

    If iType = 1 Then

    strXS = "点" & xName(Val(strNumR))

    Else

    strXS = "元" & xName(Val(strNumR)) & "角"

    End If

    Case 2

    If iType = 1 Then

    strXS = "点" & xName(Val (Left(strNumR, 1))) & xName( Val(Right(strNumR, 1)))

    Else

    strXS = "元" & xName( Val(Left(strNumR, 1))) & "角" & _

    xName(Val(Right (strNumR, 1))) & "分"

    End If

    End Select

    End If

    StrNum = Format(StrNum, "000000000000")

    StrNumL = Left(StrNum, 4)

    StrNumM = Mid(StrNum, 5, 4)

    strNumR = Right(StrNum, 4)

    If ZWDX(StrNumL) <> "" Then StrB = ZWDX(StrNumL) + "亿" Else StrB = "零"

    If ZWDX(StrNumM) <> "" Then

    StrB = StrB + ZWDX(StrNumM) + "万"

    Else

    StrB = StrB + ZWDX(StrNumM) + "零"

    End If

    StrB = StrB + ZWDX(strNumR)

    '以下均是对数字进行数学规范调整,不可缺少

    If InStr(StrB, "壹拾零亿") <> 0 Then StrB = Replace(StrB, "壹拾零亿", "拾亿零")

    If InStr(StrB, "壹拾零万") <> 0 Then StrB = Replace(StrB, "壹拾零万", "拾万零")

    If InStr(StrB, "零亿") <> 0 Then StrB = Replace(StrB, "零亿", "亿零")

    If InStr(StrB, "零万") <> 0 Then StrB = Replace(StrB, "零万", "万零")

    If InStr(StrB, "零零") <> 0 Then

    Do Until InStr(StrB, "零零") = 0

    StrB = Replace(StrB, "零零", "零")

    Loop

    End If

    Do While Left(StrB, 1) = "零"

    StrB = Right(StrB, Len(StrB) - 1)

    Loop

    Do While Right(StrB, 1) = "零"

    StrB = Left(StrB, Len(StrB) - 1)

    Loop

    NumToDaxie = strZF & StrB & strXS

    End Function

    Public Function ZWDX(Strnumber As String) As String

    '将一个四位数转换为中文大写

    Dim StrName(3) As String, IntName(3) As Integer, StrA As String

    Name1 = Array("零", "壹", "贰", "叁", "肆", "伍", "陆", "柒", "捌", "玖")

    Name2 = Array("", "拾", "佰", "仟")

    Strnumber = Trim(Strnumber)

    If Strnumber = "0000" Then

    ZWDX = ""

    Exit Function

    End If

    For i = 3 To 0 Step -1

    StrName(i) = Mid(Strnumber, 4 - i, 1)

    IntName(i) = Val(StrName(i))

    If IntName(i) = 0 Then

    StrName(i) = Name1(IntName(i))

    Else

    StrName(i) = Name1(IntName(i)) + Name2(i)

    End If

    StrA = StrA + StrName(i)

    Next i

    If InStr(StrA, "零零") <> 0 Then

    Do Until InStr(StrA, "零零") = 0

    StrA = Replace(StrA, "零零", "零")

    Loop '去掉转换过程中产生的多余的零,使之符合数学规范

    End If

    ZWDX = StrA

    End Function

    展开全文
  • []VBA 字符串处理 (1)

    2009-02-18 14:12:00
    1 VBA中字符串 VBA不仅可以处理数字,也可以处理文本(字符串)。VBA提供了两类字符串: 一类为固定长度的字符串,声明时包含指字的字符数。例如,下面的语句 Dim strFixedLong As String*100 声明字符串变量后...
    1 VBA中的字符
    VBA不仅可以处理数字,也可以处理文本(字符)。VBA提供了两类字符
    一类为固定长度的字符,声明时包含指字的字符数。例如,下面的语句
    Dim strFixedLong As String*100
    声明字符变量后,无论赋予该变量多少个字符,总是只包含100个字符,但字符最长不超过65526个字符,且需要使用Trim函数去掉字符中多余的空格。定长字符只有在必要时才使用。
    另一类为动态字符。例如,声明字符变量Dim strDynamic As String后,可以给该变量任意赋值,最多可包含20亿个字符
    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    2 VBA中处理字符的函数
    2.1 比较字符
    通常,在VBA中进行字符比较时,会用到比较运算符(如=、>等)、Like运算符和StrComp函数。此外,在模块的开头用Option Compare语句指定比较方式。
    2.1.1 比较运算符
    可以采用简单的逻辑运算符进行两个字符的比较,即<(小于)、<=(小于或等于)、>(大于)、>=(大于或等于)、=(等于)、<>(不等于)。此外,还可以使用Like运算符进行比较。
    2.1.2 StrComp函数
    StrComp函数返回字符比较的结果。其语法为:
        StrComp(string1,string2[,compare])
    其中,参数string1和strng2为必需的参数,可以是任何有效的字符表达式。
    参数Compare为可选参数,如果该参数为Null,将发生错误。如果参数Compare设置为常数vbUseCompareOption或-1或忽略该参数,将使用Option Compare语句设置进行比较;如果忽略该参数且没有设置Option Compare语句,则按二进制进行比较;如果参数Compare设置为常数vbBinaryCompare或0,则用二进制进行比较;如果参数Compare设置为常数vbTextCompare或1,则按文本进行比较;如果参数Compare设置为常数vbDatabaseCompare或2,此时仅适用于Microsoft Access,进行基于数据库信息的比较。
    StrComp函数的返回值为:如果String1<String2,则返回值为-1;如果String1=String2,则返回值为0;如果String1>String2,则返回值为1;如果String1或String2为Null,则返回值为Null。
    看看下面的示例:
    Sub testStringCompare()
      Dim MyStr1 As String, MyStr2 As String, MyComp1, MyComp2, MyComp3, MyComp4
      MyStr1 = "ABCD"
      MyStr2 = "abcd"
      MyComp1 = StrComp(MyStr1, MyStr2, 1)    ' 返回 0
      MyComp2 = StrComp(MyStr1, MyStr2, 0)    ' 返回 -1
      MyComp3 = StrComp(MyStr1, MyStr2)    ' 返回 -1
      MyComp4 = StrComp(MyStr2, MyStr1)    '返回1
      MsgBox "StrComp(MyStr1, MyStr2, 1)的结果为:" & MyComp1
      MsgBox "StrComp(MyStr1, MyStr2, 0)的结果为:" & MyComp2
      MsgBox "StrComp(MyStr1, MyStr2)的结果为:" & MyComp3
      MsgBox "StrComp(MyStr2, MyStr1)的结果为:" & MyComp4
    End Sub
    示例说明:如果StrComp函数的第三个参数值为1,则以文本比较的方式进行字符比较;如果第三个参数值为0或忽略该参数,则以二进制比较的方式进行字符比较。注意,文本比较的方式不区分字母大小写,而二进制比较方式则区分大小写。
    [编程方法和技巧] 完成一次简单的单一比较,如
    If UCase(sString1)<UCase(sString2) Then
    比使用StrComp函数:
    If StrComp(sString1,sString2,vbTextCompare)=-1 Then
    在性能上要提高30%,且更容易阅读和理解。
    2.2 转换字符
    2.2.1 StrConv函数
    使用StrConv函数来按指定类型转换字符。其语法为:
        StrConv(string,conversion,LCID)
    其中,参数string为要转换的字符,参数conversion为指定转换的类型,参数LCID为可选参数。
    如果将参数conversion设置为vbUpperCase或1,则将字符转换成大写;设置为vbLowerCase或2,则将字符转换成小写;设置为vbProperCase或3,则将字符中每个字的开头字母转换成大写;设置为vbUnicode或64,则根据系统的缺省码页将字符转换成Unicode;设置为vbFromUnicode或128,则将字符由Unicode转换成系统的缺省码页。
    在将ANSI格式的Byte数组转换成字符时,应使用StrConv函数;转换Unicode格式的数组时,使用赋值语句。下面的例子使用StrConv函数将Unicode字符转换成ANSI字符
    Sub testConverseString()
      Dim i As Long
      Dim x() As Byte
      x = StrConv("ABCDEFG", vbFromUnicode)    ' 转换字符
      For i = 0 To UBound(x)
        Debug.Print x(i)
      Next
    End Sub
    下面的例子将句子中每个词语的首字母转换为大写:
    Sub testConverseString2()
      Debug.Print StrConv("my book is this book.", vbProperCase)
    End Sub
    程序运行后,在VBE窗口中的立即窗口中将会看到上述结果。
    下面的示例演示了如何把一个字符转换为字节数组,以便使用在API函数调用中:
    Sub Test()
      Dim byArray() As Byte
      Dim sString As String
      sString = "Some stuff"
      byArray = StrConv(sString, vbFromUnicode)
    End Sub
    StrConv函数将下面的字符看成是字的分隔符:
    Null:Chr$(0)
    水平制表符:Chr$(9)
    换行符:Chr$(10)
    垂直制表符:Chr$(11)
    换页符:Chr$(12)
    回车符:Chr$(13)
    空格:Chr$(32)
    [编程方法和技巧] 在使用API时该函数很重要,很多程序调用都要求传递给它们Unicode字符,或者赋给返回变量Unicode字符
    2.2.2 Str函数
    将数值转换成字符,即返回代表一个数值的字符。其语法为:
        Str(number)
    当一个数字转成字符时,总会在前面保留一个空位来表示正负,即字符的第一位一定是空格或正负号。如果参数number为正,返回的字符前面包含一空格。Str函数将句点(.)作为有效的小数点。示例如下:
      MyString = Str(459)    ' 返回 " 459"
      MyString = Str(-459.65)   ' 返回 "-459.65"
      MyString = Str(459.001)    ' 返回 " 459.001"
    [编程方法和技巧] 使用LTrim函数可删除Str函数在返回的字符开头添加的前导空格。此外,CStr函数和Format函数已经取代了Str函数,CStr函数不用为正数的符号而添加前导空格,Format函数能够用来识别小数点。
    2.2.3 CStr函数
    CStr将数值表达式转换成String数据类型。示例如下:
    MyDouble = 437.324   ' MyDouble 为 Double 类型
    MyString = CStr(MyDouble)    ' MyString 的内容为"437.324"
    [编程方法和技巧] 传递给CStr的未初始化的数字数据类型返回“0”,传递给CStr的未初始化的日期变量返回“0:00:00”。
    2.3 创建字符
    2.3.1 Space函数
    该函数返回指定数的空格的字符。语法为:
        Space(number)
    其中,参数number必须,为字符中指定的空格数。
    如下例所示:
    Sub CreateString1()
      Dim MyString
     ' 返回 10 个空格的字符
      MyString = Space(10)
      ' 将 10 个空格插入两个字符中间。
      MyString = "Hello" & Space(10) & "World"
    End Sub
    该函数可用于在调用外部DLL时建立字符缓冲区,特别是在调用Window API时。此外,使用该函数还可以使字符在特定长度的缓冲区左对齐或右对齐。
    注意,如果参数number是负数,则会产生运行时错误5:“无效的过程调用或参数”。
    [编程方法和技巧] 可以使用Space函数添加和清除存储在定长字符中的数据,例如,下面的代码用空格填充一个定长字符
    Dim strFixed As String * 32
    ……
    strFixed = Space(Len(strFixed))
    2.3.2 String函数
    该函数返回重复的字符字符。其语法为:
        String(number,character)
    其中,参数number必须,指定所返回的字符的长度;参数character必须,指定字符字符代码或字符表达式。
    例如,下面使用String函数生成指定长度且只含单一字符字符
    Sub CreateString2()
      Dim MyString
      MyString = String(5, "*")    ' 返回 "***************"
      MyString = String(5, 42)    ' 返回 "***************"
      MyString = String(10, "ABC")    ' 返回 "AAAAAAAAAA"
    End Sub
    如果参数number包含Null,则返回Null;如果参数character包含Null,则返回Null;参数character可以指定为字符或者是ANSI字符代码,如:
    strString1=String(128,”=”) ‘用”=”填充
    strString2=String(128,0) ‘用Chr$(0)填充
    [编程方法和技巧]
    (1) String函数在用于创建较长的“_”,“-”,或者“=”构成的水平线以便给报表分段时十分有用。
    (2) 当调用API函数向缓冲区写入字符值时,首先要用String函数创建一个长度合适的字符变量,并且用诸如Chr$(0)之类的单个字符来填充。
    2.4 获取字符的长度
    可以使用Len函数来确定任何字符字符表达式的长度,其语法为:
        Len(string|varname)
    其中,参数string为任何有效的字符表达式;参数varname为任何有效的变量名称。两个参数必须取一。
    利用LenB函数可以确定存储某变量所需的实际字节数。
    下面的示例使用Len函数来获取某字符的长度(字符数)或某变量的大小(位数)。
    Type CustomerRecord    ' 定义用户自定义的数据类型
        ID As Integer   ' 将此定义放在常规模块中
        Name As String * 10
        Address As String * 30
    End Type
    Sub GetStrLen()
      Dim Customer As CustomerRecord    ' 声明变量
      Dim MyInt As Integer, MyCur As Currency
      Dim MyString, MyLen
      MyString = "Hello World"    ' 设置变量初值
      MyLen = Len(MyInt)    ' 返回 2
      MyLen = Len(Customer)    ' 返回 42
      MyLen = Len(MyString)    ' 返回 11
      MyLen = Len(MyCur)    ' 返回 8
    End Sub
    此外,在需要大量判断是否为空字符的代码中,使用Len函数也可以加快代码执行的速度。例如:
    If strTemp = "" Then
      '要执行的代码
    End If
    上面的代码可以用以下代码代替:
    If Len(strTemp) = 0 Then
      '要执行的代码
    End If
    注意:
    (1) 参数string和参数varname互不相容,即只能指定这两个参数中的某一个,不能同时指定这两个参数。
    (2) 如果参数string或参数varname中包含Null,则Len函数会返回Null。
    (3) 在向文件写入某种用户自定义类型数据时,Len函数会返回数据的大小(字符数)。
    (4) LenB函数返回用户自定义类型数据实际占用的内存大小。
    (5) 在对字节数据或Unicode字符使用LenB函数时,LenB函数返回表示数据或字符的字节数。
    (6) 不能对对象变量使用Len函数。
    (7) 如果参数varname是一个数组,则必须指定一个有效的下标,即Len函数不能确定数组中元素的总数或数组占用内存的大小。
    (8) Len函数对Variant类型变量的处理和字符变量一样,Len函数返回变量所存储的实际字符数,如下面的代码:
    Dim vVar
    vVar=100
    MsgBox Len(vVar)
    结果为3。
    (9) 由于VB本质上使用的是Unicode字符(用两个字节的空间来存储一个字符),因此当相同的字符变量传递给Len函数和LenB函数时会出现不同的返回值。例如,对于一个包含4个字符字符,使用Len函数时返回值为4,使用LenB函数则为8。
    (10) 使用强类型变量(即强制声明该变量的类型)时,Len函数会返回存储该变量所需的字节数。例如,长整型变量的长度为4。
    下面的示例说明了为什么要显式声明数据类型:
    Sub test()
      Dim lVar As Long
      Dim vVar
      lVar = 10000000
      vVar = 10000000
      MsgBox LenB(lVar) '返回4
      MsgBox LenB(vVar)'返回16
    End Sub
    很显然,Variant类型变量比强制声明的类型变量要占用更多的内存。

     2.5 格式化字符
    可以使用Format函数规定输出的字符的格式,其语法为:
        Format(expression[,format[,firstdayofweek[,firstweekofyear]]])
    其中,参数expression必须,为任何有效的表达式;其余参数均可选。参数format表示所要采用的格式,参数firstdayofweek使用常数,表示一星期的第一天,参数firstweekofyear使用常数,表示一年的第一周。
    在参数format中,使用字符“@”,表示空格或字符占位符,如果在输入的字符相应位置有字符,则显示该字符,否则显示空格;使用字符“&”,表示空或字符占位符,如果在输入的字符的相应位置有字符,则显示该字符,否则不显示;使用字符“<”,则将所有字符显示为小写格式;使用字符“>”,则将所有字符显示为大写格式;使用字符“!”,强制占位符从左向右填满, 满足默认为从右向左。
    例如下面的代码:
    Dim strOut
      strOut = Format("8888888", "(@@@)&&&-&&&&") '返回(   )888-8888
      strOut = Format("8888888", "(&&&)&&&-&&&&") '返回()888-8888
    在Format函数中,还可以同时格式化普通字符和空字符,只须在指定的格式中用分号隔开两个部分,第一部分用于非空字符,第二部分用于空字符。例如:
    strOut = Format("6666666", "(@@@)&&&-&&&&;No Phone") '返回(   )666-6666
    strOut = Format("", "(@@@)&&&-&&&&;No Phone") '返回No Phone
    又如,下面的代码将字母全部转换为大写:
    Dim strOut
    strOut = Format("Hello", ">@@@@@") ‘返回HELLO
    同理,可以使用“<”将字母全部转换为小写。
    Format函数的简要使用规则:
    (1) 允许用预先定义或用户定义的格式来建立多种用于输出字符数字和日期/时间数据的方法。
    (2) 创建用户定义的数值格式最多可以有四个部分,每个部分代表一种不同类型的数值,且用分号分隔。第一部分在单独命名使用时可用于所有值,与其它多个部分一起使用时只用于正数;第二部分用于负数;第三部分用于零值;第四部分用于Null值。
    在参数format中不必包括所有四部分,但所用部分的数目决定了每一个部分所定义的数值类型:只有一个部分,则应用于所有数值;有两个部分,则第一部分应用于正数和零值,第二部分应用于负数;有三个部分,则第一部分用于正数,第二部分应用于负数,第三部分应用于零值;有四个部分,则每部分的使用如前所述。
    如果忽略了一个部分,则该部分使用与定义正数的部分一样的格式,例如:
    “#.00;;#,##”
    表示负数值与正数值使用同一种格式显示。
    如果参数含有命名格式,则只能有一个部分。
    (3) 字符值的用户定义格式有两个部分,第一部分可应用于所有值,第二部分只应用于Null值或零长字符
    (4) 预定义的日期和时间格式如下:
    General Date
    范例: Format("28/02/2007","General Date")
    返回: 2007-2-28
    Long Date
    范例: Format("28/02/2007","Long Date")
    返回: 2007年2月28日
    Medium Date
    范例: Format("28/02/2007","Medium Date")
    返回: 07-02-28
    Short Date
    范例: Format("28/02/2007","Short Date")
    返回: 2007-2-28
    Long Time
    范例: Format("17:30:03","Long Time")
    返回: 17:30:03
    Medium Time
    范例: Format("17:30:03","Medium Time")
    返回: 下午 05:30
    Short Time
    范例: Format("17:30:03","Short Time")
    返回: 17:30
    (5) 预定义的数值格式如下:
    General Number
    范例: Format(123456.0789,"General Number")
    返回: 123456.0789
    Currency
    范例: Format(123456.0789,"Currency")
    返回: ¥123,456.08
    Fixed
    范例: Format(0.2,"Fixed")
    返回: 0.20
    Standard
    范例: Format(123456.0789,"Standard")
    返回: 123,456.08
    Percent
    范例: Format(.7321,"Percent")
    返回: 73.21%
    Scientific
    范例: Format(123456.0789,"Scientific")
    返回: 1.23E+05
    Yes/No
    范例1: Format(0,"Yes/No")
    返回:  No
    范例2: Format(23,"Yes/No")
    返回:  Yes
    True/False
    范例1: Format(0,"True/False")
    返回:  False
    范例2: Format(23,"True/False")
    返回:  True
    On/Off
    范例1: Format(0,"On/Off")
    返回:  Off
    范例2: Format(23,"On/Off")
    返回: On
    (6) 创建用户自定义的日期和时间格式的字符
    C
    元素:日期
    显示:基于当前Windows系统的短日期和短时间国际设置格式的日期或时间。
    范例:Format("28/02/2007 17:30:03","c")
    返回:2007-2-28 17:30:03
    dddddd
    元素:日期
    显示:基于当前Windows系统的长日期国际设置格式的完整日期。
    范例:Format("28/02/2007","dddddd")
    返回:2007年2月28日
    /
    元素:日期分隔符
    范例:Format("28/02/2007","mm-dd-yyyy")
    返回:02-28-2007
    d
    元素:日
    显示:1~31范围内的一个数字,无前导0。
    范例:Format("02/02/2007","d")
    返回:2
    dd
    元素:日
    显示:01~31范围内的一个数字,有前导0。
    范例:Format("02/02/2007","dd")
    返回:02
    ddd
    元素:日
    显示:英文简写(Sun~Sat)
    范例:Format("02/02/2007","ddd")
    返回:Fri
    dddd
    元素:日
    显示:英文全称(Sunday~Saturday)
    范例:Format("02/02/2007","dddd")
    返回:Friday
    ddddd
    元素:日期
    显示:基于计算机Windows国际设置短日期格式的日期。
    范例:Format("02/02/2007","ddddd")
    返回:2007-2-2
    h
    元素:小时
    显示:0~23范围内的一个数字,无前导0。
    范例:Format("05:08:06","h")
    返回:5
    hh
    元素:小时
    显示:00~23范围内的一个数字,有前导0。
    范例:Format("05:08:06","hh")
    返回:05
    n
    元素:分
    显示:0~59范围内的一个数字,无前导0。
    范例:Format("05:08:06","n")
    返回:8
    nn
    元素:分
    显示:00~59范围内的一个数字,有前导0。
    范例:Format("05:08:06","nn")
    返回:08
    s
    元素:秒
    显示:0~59范围内的一个数字,无前导0。
    范例:Format("05:08:06","s")
    返回:6
    ss
    元素:秒
    显示:00~59范围内的一个数字,有前导0。
    范例:Format("05:08:06","ss")
    返回:06
    ttttt
    元素:时间
    显示:基于12小时制的时间,包含Windows区域设置中指定的时间分隔符和前导0。
    范例:Format("05:08:06","ttttt")
    返回:5:08:06
    AM/PM
    元素:时间
    显示:用大写的AM和PM表示的12小时制的时钟格式。
    范例:Format("17:08:06","hh:mm:ss AM/PM")
    返回:05:08:06 PM
    am/pm
    元素:时间
    显示:用小写的am和pm表示的12小时制时钟格式。
    范例:Format("17:08:06","hh:mm:ss am/pm")
    返回:05:08:06 pm
    A/P
    元素:时间
    显示:12小时制时钟格式,用大写“A”表示AM,大写“P”表示PM。
    范例:Format("17:08:06","hh:mm:ss A/P")
    返回:05:08:06 P
    a/p
    元素:时间
    显示:12小时制时钟格式,用小写“a”表示am,小写“p”表示pm。
    范例:Format("17:08:06","hh:mm:ss a/p")
    返回:05:08:06 p

    元素:时间分隔符
    显示:时间格式
    范例:Format("17:08:06","hh:mm:ss")
    返回:17:08:06
    w
    元素:星期几
    显示:1~7范围内的一个数字(1~7分别表示星期天到星期六)。
    范例:Format("02/02/2007","w")
    返回:6
    ww
    元素:周
    显示:1~54范围内的一个数字
    范例:Format("02/02/2007","ww")
    返回:5
    m
    元素:月
    显示:1~12范围内的一个数字,无前导0。
    范例:Format("02/02/2007","m")
    返回:2
    mm
    元素:月
    显示:01~12范围内的一个数字,有前导0。
    范例:Format("02/02/2007","mm")
    返回:02
    mmm
    元素:月
    显示:英文月份简写(Jan~Dec)
    范例:Format("02/02/2007","mmm")
    返回:Feb
    mmmm
    元素:月
    显示:英文月份全称(January~December)
    范例:Format("02/02/2007","mmmm")
    返回:February
    q
    元素:季度
    显示:1~4范围内的一个数字
    范例:Format("02/02/2007","q")
    返回:1
    y
    元素:一年中的某天
    显示:1~366范围内的一个数字
    范例:Format("02/02/2007","y")
    返回:33
    yy
    元素:年
    显示:00~99范围内的一个两位数字
    范例:Format("02/02/2007","yy")
    返回:07
    yyyy
    元素:年
    显示:100~9999范围内的一个四位数字
    范例:Format("02/02/2007","yyyy")
    返回:2007
    (7)用于创建用户自定义数字格式的字符
    0
    说明:数字占位符。如果参数expression所代表的数值在相应的0位置上有一个数字,则显示这个数字,否则显示0。所指定的小数点后的位数,使数值舍入为给定的小数位数,但不影响小数点左边的数字位数。
    范例1:Format(23.675,"00.0000")  返回:23.6750
    范例2:Format(23.675,"00.00")  返回:23.68
    范例3:Format(2345,"00000")  返回:02345
    范例4:Format(2345,"00.00")  返回:2345.00
    #
    说明:数字占位符。如果参数expression所代表的数值在相应的#位置上有一个数字,则显示这个数字,否则什么也不显示。
    范例1:Format(23.675,"##.##")  返回:23.68
    范例2:Format(23.675,"##.####")  返回:23.675
    范例3:Format(12345.25,"#,###.##")  返回:12,345.25
    .
    说明:小数点占位符。小数点占位符实际显示的字符由本机Windows系统国际设置格式决定。
    %
    说明:百分数占位符。首先将参数expression所代表的数值乘以100,然后把它作为百分数显示。
    范例:Format(0.25,"##.00%") 返回:25.00%

    说明:千位分隔符。实际显示的字符由本机Windows系统国际设置格式决定。在格式定义中只需要给出一个千位分隔符。
    范例:Format(1000000,"#,###")  返回:1,000,000
    E-E+ e-e+
    说明:科学计数法格式。如果格式表达式在E-、E+或e-、e+的右边至少有一个数字占位符(0或#),数字就以科学计数法格式显示数字,参数Format中所用的字母E或e在该数字和它的指数之间显示。右边的数字占位符数目决定了要在指数中显示的位数。使用E-或e-可以在负指数前插入一个减号,使用E+或e+可以在正指数前插入一个正号。
    范例:Format(1.09837555,"######E-###")  返回:109838E-5
    -+$
    说明:显示一个直接量字符
    范例:Format(2345.25,"$#,###.##")  返回:$2,345.25
    \
    说明:反斜杠后的字符以直接量字符显示。可以用反斜杠将某个特定格式的字符以直接量字符显示。
    范例:Format(0.25,"##.##\%")  返回:.25%
    (8) 用于创建用户自定义字符格式的字符
    @
    说明:字符占位符。如果expression在相应的@位置上有一个字符,就显示这个字符,否则显示一个空格。
    范例:Format("VBA","\*@\*@@@@@")  返回:* *  VBA
    &
    说明:字符占位符。如果expression在相应的&位置上有一个字符,就显示这个字符,否则什么也不显示。
    范例:Format("VBA","\*&&\*&&&&")  返回:******VBA
    <
    说明:用小写形式显示所有字符
    范例:Format("VBA","<")  返回:vba
    >
    说明:用大写形式显示所有字符
    范例:Format("vba",">")  返回:VBA

    说明:从左向右处理占位符(缺省情况为从右向左处理占位符)。
    [编程方法和技巧]
    (1) 使用没有格式定义的Format函数格式化数字比使用Str函数格式化数字更好。Format函数与Str函数不同,它会把正数中一般保留用于表示符号的前导空格清除掉。
    (2) 可以使用Format函数以1000为单位对数字进行标度,做法是在语句中小数点的左边用一个千位分隔符(,)表示标度数字的一个千位;可以使用多个千位分隔符。例如:
    Format(1000000,"##0,.") 返回:1000.
    Format(1000000,"##0,,.")  返回:1.
    2.6 查找字符
    2.6.1 InStr函数

    可使用InStr函数返回一字符在另一字符中的位置,因此,也可以使用该函数确定一个字符中是否包含有另一个字符。其语法为:
        InStr([Start,]string1,string2[,compare])
    其中,参数Start为可选参数,设置查找的起点,如果省略,则从第一个字符的位置开始查找,当指定了参数Compare时,则要指定此参数。参数string1为被查找的字符,参数string2为要查找的字符,这两个参数都是必需的。
    如果在String1中没有找到String2,返回0;如果找到String2,则返回String2第一个出现的首字符位置(即1到String1的长度);如果String2的长度为零,返回Start。
    可看看下面的示例:
    Sub test()
      Dim SearchString, SearchChar, MyPos
      SearchString = "XXpXXpXXPXXP"   '被搜索的字符
      SearchChar = "P"   '要查找字符 "P"
     '从第四个字符开始,以文本比较的方式找起,返回值为 6(小写 p)
      '小写 p 和大写 P 在文本比较下是一样的
      MyPos = InStr(4, SearchString, SearchChar, 1)
      Debug.Print MyPos
      '从第一个字符开使,以二进制比较的方式找起,返回值为 9(大写 P)
      '小写 p 和大写 P 在二进制比较下是不一样的
      MyPos = InStr(1, SearchString, SearchChar, 0)
      Debug.Print MyPos
      '缺省的比对方式为二进制比较(最后一个参数可省略)
      MyPos = InStr(SearchString, SearchChar)    '返回 9
      Debug.Print MyPos
      MyPos = InStr(1, SearchString, "W")   '返回 0
      Debug.Print MyPos
    End Sub
    2.6.2 InStrRev函数
    也可以使用InStrRev函数返回一个字符在另一个字符中出现的位置,与InStr函数不同的是,从字符的末尾算起。其语法为:
        InStrRev(String1,String2[,[Start[,compare])
    参数String1为被查找的字符,参数String2为要查找的字符,这两个参数都是必需的。参数Start为可选参数,设置每次查找开始的位置,若忽略则使用-1,表示从上一个字符位置开始查找。参数Compare为可选参数,表示所使用的比较方法,如果忽略则执行二进制比较。
    下面的示例使用了InStr函数和InStrRev函数,相应的结果不同:
    Sub test()
      Dim myString As String
      Dim sSearch As String
      myString = "I like the ality that InsStrRev gives"
      sSearch = "th"
      Debug.Print InStr(myString, sSearch) '返回8
      Debug.Print InStrRev(myString, sSearch) '返回26
    End Sub
    - - - - - - - - - - - - - - - - - - - - - - -
    2.7 提取字符/字符
    2.7.1 Left函数
    Left函数可以从字符的左边开始提取字符或指定长度的字符,即返回包含字符中从左边算起指定数量的字符。其语法为:
        Left(String,CharNum)
    其中,如果参数String包含Null,则返回Null;如果参数CharNum的值大于或等于String的字符数,则返回整个字符
    例如,下面的代码返回指定字符的前两个字符
    strLeft=Left(“This is a pig.”,2)
    Left函数与InStr函数结合,返回指定字符的第一个词,例如下面的代码:
    str = "This is a pig."
    FirstWord = Left(str, InStr(str, " ") - 1)
    2.7.2 Right函数
    与Left函数不同的是,Right函数从字符的右边开始提取字符或指定长度的字符,即返回包含字符中从右边起指定数量的字符。其语法为:
        Right(String,CharNum)
    例如:
    AnyString = "Hello World"    ' 定义字符
    MyStr = Right(AnyString, 1)   ' 返回 "d"
    MyStr = Right(AnyString, 6)    ' 返回 " World"
    MyStr = Right(AnyString, 20)   ' 返回 "Hello World"
    如果存放文件名的字符中没有反斜杠(\),下面的代码将反斜杠(\)添加到该字符中:
    If Right(strFileName,1) <> “” Then
      strFileName=strFileName & “\”
    End If
    下面的函数假设传递给它的参数或者是文件名,或者是包含完整路径的文件名,从字符的末尾开始返回文件名。
    Private ParseFileName(strFullPath As String)
      Dim lngPos As Long, lngStart As Long
      Dim strFilename As String
      lngStart = 1
      Do
        lngPos = InStr(lngStart, strFullPath, "\")
        If lngPos = 0 Then
          strFilename = Right(strFullPath, Len(strFullPath) - lngStart + 1)
        Else
          lngStart = lngPos + 1
        End If
      Loop While lngPos > 0
      ParseFileName = strFilename
    End
    2.7.3 Mid函数
    Mid函数可以从字符中提取任何指定的子字符,返回包含字符中指定数量的字符字符。其语法为:
        Mid(String,Start[,Len])
    其中,如果参数String包含Null,则返回Null;如果参数Start超过了String的字符数,则返回零长度字符(“”);如果参数Len省略或超过了文本的字符数,则返回字符从Start到最后的所有字符
    例如,下面的代码:
    Str=Mid(“This is a pig.”,6,2)
    将返回文本“is”。
    下面的代码:
    MyString = "Mid Demo"   '建立一个字符
    FirstWord = Mid(MyString, 1, 3)   '返回 "Mid"
    LastWord = Mid(MyString, 14, 4)    '返回 "Demo"
    MidWords = Mid(MyString, 5)   '返回 "Funcion Demo"
    Mid函数常用于在字符中循环,例如,下面的代码将逐个输出字符
    Dim str As String
    Dim i As Integer
    Str=”Print Out each Character”
    For i=1 to Len(str)
      Debug.Print Mid(str,i,1)
    Next i
    2.7.4 Mid语句
    Mid语句可以用另一个字符中的字符替换某字符中指定数量的字符。其语法为:
        Mid(Stringvar,Start[,Len])=string
    其中,参数Stringvar代表为要被更改的字符;参数Start表示被替换的字符开头位置;参数Len表示被替换的字符数,若省略则全部使用string;参数string表示进行替换的字符
    被替换的字符数量总小于或等于Stringvar的字符数;如果string的数量大于Len所指定的数量,则只取string的部分字符。示例如下:
    MyString = "The dog jumps"   ' 设置字符初值
    Mid(MyString, 5, 3) = "fox"    ' MyString = "The fox jumps"
    Mid(MyString, 5) = "cow"   ' MyString = "The cow jumps"
    Mid(MyString, 5) = "cow jumped over"    ' MyString = "The cow jumpe"
    Mid(MyString, 5, 3) = "duck"    ' MyString = "The duc jumpe"
    - - - - - - - - - - - - - - - - - - - - - - -
    2.8 删除空格
    LTrim函数删除字符前面的空格;
    RTrim函数删除字符后面的空格;
    Trim函数删除两头的空格。
    示例如下:
    MyString = "  <-Trim->  "    ' 设置字符初值
    TrimString = LTrim(MyString)    ' TrimString = "<-Trim->  "
    TrimString = RTrim(MyString)   ' TrimString = "  <-Trim->"
    TrimString = LTrim(RTrim(MyString))    ' TrimString = "<-Trim->"
    ' 只使用 Trim 函数也同样将两头空格去除
    TrimString = Trim(MyString)   ' TrimString = "<-Trim->"
    - - - - - - - - - - - - - - - - - - - - - - -
    2.9 返回字符代码
    Asc函数返回指定字符表达式中第一个字符字符代码。示例如下:
    MyNumber = Asc("A")   ' 返回 65
    MyNumber = Asc("a")    ' 返回 97
    MyNumber = Asc("Apple")   ' 返回 65
    [编程方法和技巧]
    (1) 在数据验证中用Asc来决定一些条件,如第一个字符是大写还是小写、是字母还是数字
    Private Sub CommandButton1_Click()
      Dim sTest As String
      Dim iChar As Integer
      sTest = TextBox1.Text
      If Len(sTest) > 0 Then
        iChar = Asc(sTest)
        If iChar >= 65 And iChar <= 90 Then
          MsgBox "第一个字符是大写"
        ElseIf iChar >= 97 And iChar <= 122 Then
          MsgBox "第一个字符是小写"
        Else
          MsgBox "第一个字符不是字母"
        End If
      Else
        MsgBox "请在文本框中输入"
      End If
    End Sub
    (2) 用Asc函数和Chr函数来创建基本加密的方法。
    Private Sub CommandButton2_Click()
      Dim MyName As String, MyEncryptedString As String
      Dim MyDecryptedString As String
      Dim i As Integer
      MyName = "fanjy"
      For i = 1 To Len(MyName)
        MyEncryptedString = MyEncryptedString & Chr(Asc(Mid(MyName, i, 1)) + 25)
      Next i
      MsgBox "您好!我的名字是" & MyEncryptedString
      For i = 1 To Len(MyName)
        MyDecryptedString = MyDecryptedString & Chr(Asc(Mid(MyEncryptedString, i, 1)) - 25)
      Next i
      MsgBox "您好!我的名字是" & MyDecryptedString
    End Sub
    - - - - - - - - - - - - - - - - - - - - - - -
    2.10 返回数值代表的相应字符
    Chr函数返回指定字符码所代表的字符,其语法为:
        Chr(charcode)
    其中参数charcode代表字符码,一般为0~255。例如:
    MyChar = Chr(65)  ' 返回 A
    MyChar = Chr(97)   ' 返回 a
    MyChar = Chr(62)  ' 返回 >
    MyChar = Chr(37)  ' 返回 %
    [编程方法和技巧]
    (1) 使用Chr(34)将引号嵌入字符,如
    Chr(34) & sString & Chr(34)
    (2) 下面列出了在调用Chr函数时比较常用的字符代码:
    代码  值    描述
    0   Null   相当于vbNullChar常数
    8   BS   相当于vbBack常数
    9   TAB   相当于vbTab常数
    10   CR   相当于vbCr和vbCrLf常数
    13   LF   相当于vbLf和vbCrLf常数
    34   “”   引号
    - - - - - - - - - - - - - - - - - - - - - - -
    2.11 使用字节的函数
    VBA中返回字符的函数有两种格式,一种以$结尾,返回字符,不需要进行类型转换,所以速度较快,但如果输入值是包含Null的Viarant,则会发生运行错误;一种没有$,返回Viarant数据类型,如果输入值是包含Null的Viarant,则返回Null。因而,如果要使得程序运行速度快,则使用带有$的函数且要避免向这些函数传递空值。
    - - - - - - - - - - - - - - - - - - - - - - -
    2.12 返回数组的函数
    2.12.1 Filter函数
    Filter函数返回一个下标从零开始的数组,该数组包含基于指定筛选条件的一个字符数组的子集。其语法为:
        Filter(sourcearray,match[,include[,compare]])
    其中,参数sourcearray必需,是要执行搜索的一维字符数组;参数match必需,是要搜索的字符;参数include可选,Boolean值,表示返回子包含还是不包含match字符,如果include为True,返回包含match子字符的数组子集,如果include为False,返回不包含match子字符的数组子集;参数compare可选,表示所使用的字符比较类型,其设置值为:-1(常数为vbUseCompareOption)表示使用Option Compare语句的设置值来执行比较;0(常数为vbBinaryCompare)表示执行二进制比较;1(常数为vbTextCompare)表示执行文字比较;2(常数为vbDatabaseCompare)只用于Microsoft Access,表示基于数据库信息来执行比较。
    如果在sourcearray中没有发现与match相匹配的值,Filter函数返回一个空数组;如果sourcearray是Null或不是一个一维数组,则产生错误。
    Filter函数所返回的数组,其元素数是所找到的匹配项目数。
    [编程方法和技巧]
    (1) Filter函数也可以过滤数字值。此时,应指定Variant类型的字符sourcearray,并用数字值给数组赋值。同时,也可以将字符、Variant、Long或Integer数据传递给match。但应注意,返回的字符表现为被过滤数字字符的形式。例如:
    Sub test()
      Dim varSource As Variant, varResult As Variant
      Dim strMatch As String, i
      strMatch = CStr(2)
      varSource = Array(10, 20, 30, 21, 22, 32)
      varResult = Filter(varSource, strMatch, True, vbBinaryCompare)
      For Each i In varResult
        Debug.Print i
      Next
    End Sub
    将返回20,21,22,32
    (2) Filter函数可以和Dictionary对象很好地配合使用。可以把Dictionary对象产生的Key值作为一种过滤Dictionary对象成员的快速方法传递给Filter函数,如:
    Sub test()
      Dim i As Integer
      Dim sKeys() As Variant
      Dim sFiltered() As String
      Dim sMatch As String
      Dim blnSwitch As Boolean
      Dim oDict As Dictionary
      Set oDict = New Dictionary
      oDict.Add "Microsoft", "One Microsoft Way"
      oDict.Add "AnyMicro Inc", "31 Harbour Drive"
      oDict.Add "Landbor Data", "The Plaza"
      oDict.Add "Micron Co.", "999 Pleasant View"
      sKeys = oDict.Keys
      sMatch = "micro"
      blnSwitch = True
      '寻找包含字符macro(不区分大小写)的所有键
      sFiltered() = Filter(sKeys, sMatch, blnSwitch, vbTextCompare)
      For i = 1 To UBound(sFiltered)
          Debug.Print sFiltered(i) & "," & oDict.Item(sFiltered(i))
      Next i
    End Sub
    2.12.2 Split函数
    Split函数返回一个下标从零开始的一维数组,包含指定数目的子字符。其语法为:
        Split(expression[,delimiter[,limit[,compare]]])
    其中,参数expression必需,表示包含子字符和分隔符的字符,若expression是一个长度为零的字符(“”),该函数则返回一个没有元素和数据的空数组;参数delimiter用于标识子字符边界的字符字符,若忽略则使用空格(“ “)作为分隔符,若是一个长度为零的字符则返回仅包含一个元素的数组,该元素是expression所表示的字符;参数limit表示要返回的子字符数,-1表示返回所有的子字符;参数compare表示判别子字符时使用的比较方式,其值与Filter函数的设置值相同。
    - - - - - - - - - - - - - - - - - - - - - - -
    2.13 连接字符
    Join函数返回连接某数组中的多个子字符而组成的字符,即将数组中的字符连接起来。其语法为:
        Join(sourcearray[,delimiter])
    其中,参数sourcearray必需,是包含被连接子字符的一维数组;参数delimiter可选,代表在所返回的字符中用于分隔子字符字符,若忽略则使用空(“ ”)来分隔,若为零长字符(“”),则所有项目都连接在一起,中间没有分隔符。
    - - - - - - - - - - - - - - - - - - - - - - -
    2.14 替换字符
    Replace函数返回一个被替换了的字符,该字符中指定的子字符已被替换成另一个子字符,并且替换指定次数。其语法为:
        Replace(expression,find,replace[,start[,count[,compare]]])
    其中,参数expression必需,表示所要替换的子字符;参数find必需,表示要搜索到的子字符;参数replace必需,表示用来替换的子字符;参数start表示开始搜索的位置,若忽略,则从1开始;参数count表示进行替换的次数,缺省值是-1,表示进行所有可能的替换;参数compare表示判别子字符时所用的比较方式,与Filter函数的设置值相同。
    如果expression的长度为零,Replace返回零长度字符(“”);如果expression为Null,则返回错误;如果find的长度为零,则返回expression的副本;如果replace的长度为零,则返回删除了所有出现find的字符的副本;如果start的值大于expression的长度,则返回长度为零的字符;如果count为0,则返回expression的副本。
    Replace函数返回的字符是从参数start所指定的位置开始到expression结尾已经进行过替换的字符
    注意:
    (1) 如果没有使用参数count,那么当替换较短字符时就要注意,防止形成一个不相关的字符
    (2) 如果start值大于1,返回的字符将从start开始,而不是从原有字符的第一个字符开始。
    - - - - - - - - - - - - - - - - - - - - - - -
    2.15 反向字符串
    StrReverse函数返回与指定字符串顺序相反的字符串,其语法为:
        StrReverse(expression)
    其中,参数expression是一个字符串,应用StrReverse函数后将返回与该字符串顺序相反的字符串。如果expression是一个长度为零的字符串(“”),则返回一个长度为零的字符串;如果expression为Null,则产生一个错误。
     

    转载于:https://www.cnblogs.com/fx_ffx/archive/2009/02/18/1393159.html

    展开全文
  • 1、excel工作表,只能存放1900年以后的日期,所以遇到之前日期,可以先转换为字符串再保存到单元格。 2、asc() 返回字符对应的编码 如 asc(&quot;A&quot;)=65 3、chr() 返回数字对应的字符 如 chr(65)=&...
  • 工具能实现汉字-区位码的互,英文字符数字转换为对应全角字符的区位码,繁体字转换为对应简体字的区位码。使用时将需要转换的文字复制到指定的列,点击转换键就行。一行多个汉字,对应区位码会自动用空格隔开。
  • 实现功能:选中当前工作表的所有数据内容,将文本型数字转换为数值型数字。 缺点:日期格式的字符串会变成数值 Sub 数值型数字() With ActiveSheet.UsedRange .NumberFormatLocal = "G/通用格式" .Value = ....
  • 有的时候我们使用RC4来编码数据,但产生的字符串已经不是正常的字符串,在存储过程会造成混乱,以致于无法用RC4来还原原来的数据。 解决问题办法就是将这个不正常的字符串进行转换后存储,取出时再转换回来。两个...
  • 函数作用:将金额数字转成中文大写....................13 '8.函数作用:计算某种税金..............................18 '9.函数作用:人民币大、小写转换........................19 '10.函数作用:查汉字区位码..........
  • 1、将数字转换为字符:cstr函数 2、将数字格式为某个固定位数的字符串:format Dim MyTime, MyDate, MyStr MyTime = #17:04:23# MyDate = #January 27, 1993# ' Returns current system time in the system-...
  • 判断检查:判断是否正确算术计算:对数字值执行计算程序流程:控制程序流程Sql合计函数:sql语句计算函数文本字符串:操作转化、合并或操作字符串。域函数 :合计函数返回有关一个域的统计数据。域合计函数通常用在...
  • vba17-25

    2020-12-06 10:30:10
    所有非0的数字转换成布尔类型都是True 3变量定义简写 dim i % integer整型 dim j& long长整型 double 小数 $ string 字符串 常数后面加符号,改变常数数据类型 Date Boolean 没有简写 4 常量声明:一经赋值在...
  • VBA常用技巧

    2014-12-21 16:39:28
    技巧184 使用数字签名 12 技巧185 暂停代码的运行 12 技巧186 定时关机 12 技巧187 打开指定的网页 12 技巧188 VBE的操作 12 188-1 添加模块和过程 12 188-2 建立事件过程 12 188-3 模块的导入与导出 12 188-4 删除...
  • 建立运行环境-Excel Vba,可移植到VB环境(需修改一些代码) '仿制简单的SQL查询语句,用于对二维数组的查询 '参照SQL语句:Select * From array [Where conditions] [Distinct fields] [ResultWithTitle] ' '...
  • Excel_VBA 常用函数

    2012-09-25 12:08:29
    返回包含于字符串内的数字字符是一个适当类型的数值。可以将字符串的数字型转换为数值。 语法 Val(string) 必要的 string 参数可以是任何有效的字符串表达式. 说明 Val 函数,在它不能识别为数字的第一...
  • VBA编程技巧大全

    2013-08-05 09:03:19
    技巧184 使用数字签名 444 技巧185 暂停代码的运行 449 技巧186 定时关机 450 技巧187 打开指定的网页 451 技巧188 VBE的操作 452 188-1 添加模块和过程 452 188-2 建立事件过程 454 188-3 模块的导入与导出 456 188...
  • 7.将金额数字转成中文大写 8.计算某种税金 9.人民币大、小写转换 10.查汉字区位码 11.把公元年转为农历 12.返回指定列数的列标 13.用指定字符替换某字符 14.从右边开始查找指定字符字符的位置 15.从右边开始...
  • 04142设置单元格字符一部分字符的格式(其他字体属性) 04143设置单元格的下画线 04144设置单元格的字体属性(字体、字号、加粗、斜体、颜色等) 04145设置单元格区域的外部边框 04146设置单元格区域的全部边框 ...
  • Excel列标与列号转换

    千次阅读 2019-08-01 11:02:11
    熟悉Excel操作的用户都只有工作表列标题可以有列标(字母形式)和列号(数字形式)两种,同样在VBA代码也会用到这两种不同的表示方式。 例如应用C6单元格可以如下几种方式,对于Cells的第二个参数,即可以使用...
  • VBSCRIPT中文手册

    热门讨论 2010-11-12 10:13:06
    InStrRev 函数 返回一个字符串在另一个字符出现的位置,是从字符串的末尾算起。 Int 函数 返回数的整数部分。 整数除法运算符(\) 两数相除,返回的商取其整数部分。 Is 运算符 比较两个对象引用变量。 ...
  • InStrRev 函数 返回一个字符串在另一个字符出现的位置,是从字符串的末尾算起。 Int 函数 返回数的整数部分。 整数除法运算符(\) 两数相除,返回的商取其整数部分。 Is 运算符 比较两个对象引用变量。 ...
  • 数字转英文】 将选中区域(默认)或已使用区域存储格的金额数字转换成英文格式显示的表达字符串,为三资企业制作客户外汇付款通知书的理想工具。 【文本转EXCEL】 将文本文件按指定的分隔符号分隔一次性导入到...
  • EXCEL集成工具箱V6.0

    2010-09-11 01:44:37
    数字转英文】 将选中区域(默认)或已使用区域存储格的金额数字转换成英文格式显示的表达字符串,为三资企业制作客户外汇付款通知书的理想工具。 【文本转EXCEL】 将文本文件按指定的分隔符号分隔一次性导入到...
  • 数字转英文】 将选中区域(默认)或已使用区域存储格的金额数字转换成英文格式显示的表达字符串,为三资企业制作客户外汇付款通知书的理想工具。 【文本转EXCEL】 将文本文件按指定的分隔符号分隔一次性导入到...
  • Excel百宝箱9.0无限制破解版

    热门讨论 2012-02-03 19:05:29
    【公农双历查询】:生成多功能日历,可以查询所有节...【取带点数字】:提取混合字符的带小数点数字 【取表达式】:提取混合字符的表达式 【计算表达式】:将表达式转换成值(包括从混合字符取出的表达式)
  • Excel百宝箱

    2012-10-27 17:09:21
    一个教导和辅助利用Excel的工具 ...【取带点数字】:提取混合字符的带小数点数字 【取表达式】:提取混合字符的表达式 【计算表达式】:将表达式转换成值(包括从混合字符取出的表达式)
  • 数字转英文】 将选中区域(默认)或已使用区域存储格的金额数字转换成英文格式显示的表达字符串,为三资企业制作客户外汇付款通知书的理想工具。 【文本转EXCEL】 将文本文件按指定的分隔符号分隔一次性导入到...
  • 数字转英文】 将选中区域(默认)或已使用区域存储格的金额数字转换成英文格式显示的表达字符串,为三资企业制作客户外汇付款通知书的理想工具。 【文本转EXCEL】 将文本文件按指定的分隔符号分隔一次性导入到...
  • 目 录 第1 章 VB 2 0 0 8核心元素.......................... 1 1 . I 原来的关键字和语法......................1 ....1 ....1.3.1 IfT h e n ............................. 3 在ASP.NET使用 文化设S .........................
  • 【取带点数字】:提取混合字符的带小数点数字 【取表达式】:提取混合字符的表达式 【计算表达式】:将表达式转换成值(包括从混合字符取出的表达式) <══════════════════┤ ...

空空如也

空空如也

1 2 3 4
收藏数 69
精华内容 27
关键字:

vba中数字转字符