前言:
此刻各位老铁们对“vba结果输出”大概比较注重,朋友们都想要学习一些“vba结果输出”的相关文章。那么小编同时在网上网罗了一些对于“vba结果输出””的相关内容,希望我们能喜欢,我们一起来了解一下吧!字符函数
Chr():返回一个字符串,其中包含与指定的字符代码关联的字符。
如何输入字符,在vba编程过程中是一个基本常识。
本节主要介绍一下,字符集对应的数值,以及如何输入字符。
很显然,函数Chr即可输出相应数值的字符。
如下图所示:
大写字母
如要输出大字字母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)小写字母
输出小写字母:
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
欢迎关注、收藏
标签: #vba结果输出