vba中chr函数实例用法

第一：chr函数用法介绍

　　chr是什么函数呢？excel VBA中chr函数是将一个ASCII码转为相应的字符。

　　chr函数的语法为：Chr(charcode)

　　其中的参数charcode：0 至 31 之间的数字与标准的非打印 ASCII 代码相同。例如，我们经常使用到的Chr(10) 可以返回换行字符。

　　charcode 的正常取值范围为 0 – 255。然而，在 DBCS 系统，charcode 的实际范围为 -32768 到 65535。

第二，chr函数简单举例

　　比如：[a1] = Chr(65)。A1单元格将返回chr(65)对应的一个大写字母A。

　　MyChar = Chr(97)    ' 返回 a。
　　MyChar = Chr(62)    ' 返回 >。
　　MyChar = Chr(37)    ' 返回 %。

　　比如下面这段代码，就是用chr函数实现在A1：A26自动生成ABCDE……Z这样的大写字母。

Sub chr函数转换()
    Dim a, b As Byte
    For a = 1 To 26
    Cells(a, 1) = Chr(64 + a)
    Next
End Sub

　　总结：chr函数用得最多的就是Chr(10) 换行，以及26个大小写字母。将上面这段代码Chr(64 + a)改为：Chr(96 + a)，就是在A1：A26自动生成abcdef……z这样的小写字母。