Excel常用VBA函数实用经典学习案例.docx

实用文档 VB 实战、 excel 学习、 excel 高级班、 excel 表格的基本操作、 excel 表格的各函数的基本操作 Excel 常用 VBA 函数实用经典案例 ASC 函数 一、题目： 要求编写一段代码，运行后得到字符串” Excel”的首字母和” e”的 ASCII值。 二、代码： SUB 示例 _1_01() DIM MYNUM 1%, MYNUM 2% MYNUM 1 = ASC(EXCEL) 返回 69 MY NUM 2 = ASC( E) 返回 101 [ A 1]= MY N UM B MY N UM 1 A MY N UM B MY UM 1=:[ 1]= [ 2]= 2=:[ 2]= N 2 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代码。 语法 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、 End Sub：程序的结束语句，和“ Sub 示例 _1_01（）”相对应。 Chr 函数 一、题目 ： 要求编写一段代码，运用 Chr 函数将 ASCII值转换为对应的字符。 二、代码： SUB 示例 _1_02() DIM MYCHAR1$, MYCHAR2$ MYCHAR1 = CHR(69) 返回 E。 MYCHAR2 = CHR(101) 返 回 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 = 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、 End Sub：程序的结束语句，和“ Sub 示例 _1_02（）”相对应。 Choose 函数 一、题目： 要求编写一段代码，运用 Choose 函数根据指定数字选择对应的字符串。 二、代码： SUB 示例 _1_03()