字符函数
Chr():返回一个字符串,其中包含与指定的字符代码关联的字符。
![de894b78074e826267fb37cd51e16e6a.png](https://i-blog.csdnimg.cn/blog_migrate/78620413c7726bcab37bff48054db2a7.jpeg)
如何输入字符,在vba编程过程中是一个基本常识。
本节主要介绍一下,字符集对应的数值,以及如何输入字符。
很显然,函数Chr即可输出相应数值的字符。
如下图所示:
![714af7633a9bf52d724f0272a91f990a.png](https://i-blog.csdnimg.cn/blog_migrate/f2581170448ba22d003d92a582c18e68.jpeg)
大写字母
如要输出大字字母A~Z
可以这样来操作:
Dim xArr, i As LongReDim xArr(0 To 26)For i = 65 To 90xArr(i - 65) = Chr(i)Next iMsgBox VBA.Join(xArr)
![92cdfec6e269a4a0b257b5cdacd739af.png](https://i-blog.csdnimg.cn/blog_migrate/827a97956a0c031ac944c83e9fc4e434.jpeg)
小写字母
输出小写字母:
Dim xArr, i As LongReDim xArr(0 To 26)For i = 97 To 122xArr(i - 97) = Chr(i)Next iMsgBox VBA.Join(xArr)
相应地还有一个函数,可以将字符转换为数值。
Asc()
返回一个整数值,它表示与字符串中的第一个字母对应的字符代码。
如将字母转换为数值,可进行如下操作。
Asc(“A"),数字65
Asc(“a"),数字97
Asc()是Chr()的反函数,学习的时候要一并调试,这样对字符的操作就比较有更深的记忆了 。
重点明白的是Asc函数分别返回字符串的第一个字母的数值。
如 :Asc("Asc") 返回数值65
字符掌握比较简单,主要是对常用的字符进行一下记忆,其它不常用的需要的时候查询对应表格即可以。
附本节代码:
Private Sub CommandButton1_Click()Dim x As Longx = VBA.Trim(Me.ComboBox1.Value)If VBA.Len(x) = 0 Then Exit SubMe.TextBox1.Value = VBA.Chr(x)Me.TextBox1.Value = Me.TextBox1.Value & "__" & VBA.Asc(Me.TextBox1.Value)End Sub
欢迎关注、收藏