excel如何将表格中的美元转换为人民币
网友投稿
·
2023-10-29 20:10
·
产品资讯 ·
阅读 800
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 。这样添加数据我们也能快速的获得答案了。
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 。这样添加数据我们也能快速的获得答案了。