excel中使用vba将美元转换为人民币
1、首先我们打开一个样表作为例子 。例子中的数值单位全是人民币,我们将其转换为美元单位 。
2、我们按下ALT+ F11组合快捷键进入vbe编辑其,插入一个新模块,并在代码编辑器中写下如下代码:
Option Explicit
Sub tousd()
Dim i As Integer
Dim c As Integer
For i = 6 To 17
c = Cells(i, 13).Value / 6
Cells(i, 13) = c
Next
End Sub
3、我们来阅读一下这段代码,首先是变量声明,建立过程,然后声明了2个变量i和c,其中i变量用来循环,c变量用来储存单元格原值并计算 。
4、使用for循环,将i值循环赋予6to17,每次都将13列单元格值计算后写入原对应单元格中,使用的公式为人民币与美元的汇率6:1 。
5、在活动列表中使用这个宏,可以看到实发工资变为了美元单位,但是并没有显示出来,而且这种方法并不完美,如果需要添加数据,需要在vbe中修改对应的代码 。
【如果需要添加数据】6、我们可以修改一下代码,新建一个变量s,并且使用inputbox函数来给s赋值,然后修改i循环为6tos 。这样添加数据我们也能快速的获得答案了 。
推荐阅读
- 右侧窗口最下面一个可选功能是将字体嵌入文件
- Win8系统2010版制作PPT播放推进?
- 点击工具栏的数据获取外部数据自文本 2.接着我们就可以选择要获取的文本文件
- cdr字体怎么倾斜,AI如何将字体弯曲
- 麻婆豆腐是川菜还是湘菜 麻婆豆腐是不是川菜
- 可复美真假对比
- 2022年最精辟最火的句子 2020最火句子
- 蚕丝被要套被套吗 蚕丝被需要套被套吗
- 戴眼镜要夹睫毛吗 接的眼睫毛可以夹吗
