Vba精选函数
一、VBA函数精选之一ASC函数
我们平时在工作表单元格的公式中常常使用函数;Excel自带的常用的函数多达300多个;功能强大;丰富多彩..但是在VBA中不能直接应用;必须在函数名前面加上对象;比如：Application.WorksheetFunction.Sumarg1;arg2;arg3..而能在VBA中直接应用的函数也有几十个;下面将逐一详细介绍常用的40个VBA函数;以供大家学习参考..
第1.1例 ASC函数   
一、题目：
  要求编写一段代码;运行后得到字符串”Excel”的首字母和”e”的ASCII值..
二、代码：
Sub 示例_1_01
    Dim myNum1%; myNum2%
    myNum1 = Asc"Excel"  '返回69
    myNum2 = Asc"e"  '返回101
    a1 = "myNum1= ": b1 = myNum1
    a2 = "myNum2= ": b2 = myNum2
End Sub     
三、代码详解
    1、Sub 示例_1_01：宏程序的开始语句..
    2、Dim myNum1%; myNum2%：变量myNum1和myNum2声明为整型变量..
      也可以写为 Dim myNum1 As Integer ..Integer 变量存储为 16位2 个字节的数值形式;其范围为
-32;768 到 32;767 之间..Integer 的类型声明字符是百分比符号 %..
    3、myNum1 = Asc"Excel"：把Asc函数的值赋给变量myNum1..
    Asc函数返回一个 Integer;代表字符串中首字母的字符的ASCII代码..
    datediff是字符型函数语法
    Ascstring
    必要的 string字符串 参数可以是任何有效的字符串表达式..如果 string 中没有包含任何字符;则会产生运行时错误..
    4、myNum2 = Asc"e"：把Asc函数的值赋给变量myNum2..这里返回小写字母e的ASCII代码101..
    5、a1 = "myNum1= ": b1 = myNum1：把字符串“myNum1=  “赋给A1单元格;把变量myNum1的值赋给
B1单元格..
    6、a2 = "myNum2= ": b2 = myNum2：把字符串“myNum2=  “赋给A2单元格;把变量myNum2的值赋给B2单元格..
    7、End Sub：程序的结束语句;和“Sub示例_1_01”相对应..
二、VBA函数精选之二Chr函数
第1.2例 Chr函数
一、题目：
  要求编写一段代码;运用Chr函数将ASCII值转换为对应的字符..
二、代码：
Sub 示例_1_02
     Dim myChar1$; myChar2$
     myChar1 = Chr69    ' 返回 E..
   myChar2 = Chr101    ' 返回 e..
   a1 = "myChar1= ": b1 = myChar1
     a2 = "myChar2= ": b2 = myChar2
End Sub
三、代码详解
     1、Sub 示例_1_02：宏程序的开始语句..
     2、Dim myChar1$; myChar2$：变量myChar1和myChar2声明为字符串变量..
也可以写为 Dim myChar1 As String ..String  之字符码的范围是 0 到 255..字符集的前 128 个字符0 到 127对应于标准的 U.S. 键盘上的字符与符号..这前 128 个字符与 ASCII 字符集中所定义的相同..后 128 个字符128 到 255则代表特殊字符;例如国际字符;重音符号;货币符号及分数..String 的类型声明字符为美元号 $..
           3、myChar1 = Chr69：把Chr69的值赋给变量myChar1..这里返回大写字母E..Chr函数根据字符代码返回一个字符..
     语法
     Chrcharcode
     必要的 charcode字符代码 参数是用来识别某字符的..
     4、myChar2 = Chr101：把Chr 函数的值赋给变量myChar2..这里返回小写字母e..
     5、a1 = "myChar1= ": b1 = myChar1：把字符串“myChar1=  “赋给A1单元格;把变量myChar1的值赋给B1单元格..
     6、a2 = "myChar2= ": b2 = myChar2：把字符串“myChar2=  “赋给A2单元格;把变量myChar2的值赋给B2单元格..
     7、End Sub：程序的结束语句;和“Sub示例_1_02”相对应..
三、VBA函数精选之三Choose函数
第1.3例 Choose函数
一、题目：
  要求编写一段代码;运用Choose函数根据指定数字选择对应的字符串..
二、代码：
Sub 示例_1_03
        Dim Num%
        Num=2
        MsgBox  ChooseNum; "一月"; "二月"; "三月"
End Sub
三、代码详解
     1、Sub 示例_1_03：宏程序的开始语句..宏名为示例_1_03..
     2、Dim Num% ：变量Num声明为整型变量..
     3、Num=2 ：把2赋给变量Num..
     4、MsgBox  ChooseNum; "一月"; "二月"; "三月" ：
     Choose函数从参数列表中选择并返回一个值..
     语法
     Chooseindex; choice-1; choice-2; ... ; choice-n

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。