龙空技术网

VBA编程如何输入输出字符集,两函数要掌握

江觅 471

前言:

此刻各位老铁们对“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结果输出