VBA常用代码大全.doc

前言1.1例ASC函数 一、题目： 　　要求编写一段代码，运行后得到字符串”EGcel”的首字母和”e”的ASCII值。 二、代码： Sub示例_1_01() DimmyNum1%,myNum2% myNum1=Asc(EGcel)返回69 myNum2=Asc(e)返回101 [a1]=myNum1=:[b1]=myNum1 [a2]=myNum2=:[b2]=myNum2 EndSub 三、代码详解 1、Sub示例_1_01()：宏程序的开始语句。 2、DimmyNum1%,myNum2%：变量myNum1和myNum2声明为整型变量。 也可以写为DimmyNum1AsInteger。Integer变量存储为16位（2个字节）的数值形式，其范围为-32,768到32,767之间。Integer的类型声明字符是百分比符号(%)。 3、myNum1=Asc(EGcel)：把Asc函数的值赋给变量myNum1。 Asc函数返回一个Integer，代表字符串中首字母的字符的ASCII代码。 语法 Asc(string) 必要的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、EndSub：程序的结束语句，和“Sub示例_1_01（）”相对应。 第1.2例Chr函数 一、题目： 　　要求编写一段代码，运用Chr函数将ASCII值转换为对应的字符。 二、代码： Sub示例_1_02() DimmyChar1$,myChar2$ myChar1=Chr(69)返回E。 myChar2=Chr(101)返回e。 [a1]=myChar1=:[b1]=myChar1 [a2]=myChar2=:[b2]=myChar2 EndSub 三、代码详解 1、Sub示例_1_02()：宏程序的开始语句。 2、DimmyChar1$,myChar2$：变量myChar1和myChar2声明为字符串变量。 也可以写为DimmyChar1AsString。String之字符码的范围是0到255。字符集的前128个字符（0到127）对应于标准的U.S.键盘上的字符与符号。这前128个字符与ASCII字符集中所定义的相同。后128个字符（128到255）则代表特殊字符，例如国际字符，重音符号，货币符号及分数。String的类型声明字符为美元号($)。 3、myChar1=Chr(69)：把Chr(69)的值赋给变量myChar1。这里返回大写字母E。 Chr函数根据字符代码返回一个字符。 语法 Chr(charcode) 必要的charcode（字符代码）参数是用来识别某字符的。 4、myChar2=Chr(101)：把Chr函数的值赋给变量myChar2。这里返回小写字母e。 5、[a1]=myChar1=:[b1]=myChar1：把字符串“myChar1=“赋给A1单元格，把变量myChar1的值赋给B1单元格。 6、[a2]=myChar2=:[b2]=myChar2：把字符串“myChar2=“赋给A2单元格，把变量myChar2的值赋给B2单元格。 7、EndSub：程序的结束语句，和“Sub示例_1_02（）”相对应。 第1.3例Choose函数 一、题目： 　　要求编写一段代码，运用Choose函数根据指定数字选择对应的字符串。 二、代码： Sub示例_1_03() DimNum% Num=2 MsgBoGChoose(Num,一月,二月,三月) EndSub 三、代码详解 1、Sub示例_1_03()：宏程序的开始语句。宏名为示例_1_03。 2、DimNum%：变量Num声明为整型变量。 3、Num=2：把2赋给变量Num。 4、MsgBoGChoose(Num,一月,二月,三月)： Choose函数从参数列表中选择并返回一个值。 语法 Choose(indeG,choice-1[,choice-2,...[,choice-n]]) Choose会根据indeG的值来返回选择项列表中的某个值。如果indeG是1，则Choose会返回列表中的第1个选择项。如果indeG是2，则会返回列表中的第2个选择项，以此类推。 IndeG是必要参数，数值表达式或字段，它的运算结果是一个数值，且界于1和可选择