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

2017年7月4日作者：水星Excel

6,542 次浏览暂无评论

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

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

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

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

声明: 本站文章均属原创，未经作者同意必须保留此段声明，且在文章页面明显位置给出原文链接，否则视为侵权。如果想要每天都收到本站的技术文章推送，可以微信搜索公众号：水星Excel或者Excel_Office关注。其它事宜请加QQ：1722187970 或微信号：xycgenius 联系。