Private Sub Command1_Click() X = 236 Char1 = ChrB(236) n = AscB(Char1) Cls Print nEnd Sub 结果: 236n = 236
支持楼上的!相关函数介绍: Function Chr(CharCode As Long) VBA.Strings 的成员 返回包含与指定字符模式相关联的字符串。Function Chr$(CharCode As Long) As String VBA.Strings 的成员 返回包含与指定字符模式相关联的字符串。Function ChrB(CharCode As Byte) VBA.Strings 的成员 返回一个包含指定单字节的字符串Function ChrB$(CharCode As Byte) As String VBA.Strings 的成员 返回一个包含指定单字节的字符串Function ChrW(CharCode As Long) VBA.Strings 的成员 返回一个包含指定本机字符的字符串(Unicode 或 ANSI)Function ChrW$(CharCode As Long) As String VBA.Strings 的成员 返回一个包含指定本机字符的字符串(Unicode 或 ANSI)Function Asc(String As String) As Integer VBA.Strings 的成员 返回一个字符串中第一个字符的 ANSI 字符代码Function AscB(String As String) As Byte VBA.Strings 的成员 返回字符串中第一个字节的值Function AscW(String As String) As Integer VBA.Strings 的成员 返回字符串中第一个字符的本机字符代码 (Unicode 或 ANSI)
X = 236
Char1 = ChrB(236)
n = AscB(Char1)
Cls
Print nEnd Sub
结果:
236n = 236
Function Chr(CharCode As Long)
VBA.Strings 的成员
返回包含与指定字符模式相关联的字符串。Function Chr$(CharCode As Long) As String
VBA.Strings 的成员
返回包含与指定字符模式相关联的字符串。Function ChrB(CharCode As Byte)
VBA.Strings 的成员
返回一个包含指定单字节的字符串Function ChrB$(CharCode As Byte) As String
VBA.Strings 的成员
返回一个包含指定单字节的字符串Function ChrW(CharCode As Long)
VBA.Strings 的成员
返回一个包含指定本机字符的字符串(Unicode 或 ANSI)Function ChrW$(CharCode As Long) As String
VBA.Strings 的成员
返回一个包含指定本机字符的字符串(Unicode 或 ANSI)Function Asc(String As String) As Integer
VBA.Strings 的成员
返回一个字符串中第一个字符的 ANSI 字符代码Function AscB(String As String) As Byte
VBA.Strings 的成员
返回字符串中第一个字节的值Function AscW(String As String) As Integer
VBA.Strings 的成员
返回字符串中第一个字符的本机字符代码 (Unicode 或 ANSI)