Excel一键实现阿拉伯数字转换成罗马数字技巧
如何快速地将阿拉伯数字改变当作罗马数字，感乐趣的伴侣，不妨看看本教程，没准能找到您所需要的谜底。
工具/原料
- Excel（本教材以Excel2007为例）
方式/步骤
- 1
本教材以如下数据为例，将选中的单位格中的阿拉伯数字酿成罗马数字。
- 2
绘制一个节制按钮，本教材以插入一个矩形外形为例。
- 3
为外形编纂文字，便于理解该按钮的功能。
- 4
切换到VBA界面，插入一个模块，输入以下代码：
Sub Translate()
Dim i%, j%, k%
Dim rng As Range
Set rng = Selection
i = ActiveCell.Row
j = ActiveCell.Column
k = Cells(i, j).Value
Cells(i, j) = Application.WorksheetFunction.Roman(k)
End Sub
PS：不清晰跳转到VBA界面的可以参考以下链接：
- 5
返回Excel界面。
- 6
为按钮指定宏。
- 7
选择需要转换的单位格，点击按钮即可。
注重事项
- 若是对您有点帮忙，请帮手撑持一下，感谢！
- 发表于 2018-04-03 00:00
- 阅读 ( 331 )
- 分类：其他类型
