如何用vba快速地生成罗马数字1到10?

罗马数字1到10分别为Ⅰ、Ⅱ、Ⅲ、Ⅳ、Ⅴ、Ⅵ、Ⅶ、Ⅷ、Ⅸ、Ⅹ。

有时候我们需要在vba中快速地获取这10个字符,根据标准GB 18030-2005 信息技术 中文编码字符集,可以找到罗马数字对应的字符编码,如下图所示

1

其中罗马数字Ⅰ对应的双字节十六进制编码为2160,由于chrw函数的参数对应的就是这个字符编码。所以利用这个规则,可以快速地按照以下的代码获取罗马数字1到10。

Sub QQ1722187970()
    For i = &H2160 To &H2160 + 10
        Debug.Print ChrW(i)
    Next i
End Sub

 

       

发表评论