如果需要添加数据
时间:2022-06-19 19:19:08
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教程
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
Excel的Hour函数怎么使用?
2023-06-15 03:55:10
![](https://img.aspxhome.com/file/2023/5/36575_0s.png)
Excel在同一列相同内容的单元格后插入新的一行
2023-08-07 17:54:12
![](https://img.aspxhome.com/file/2023/9/41319_0s.jpg)
在excel表格中怎么隔行加色呢?
2023-09-13 13:33:47
![](https://img.aspxhome.com/file/2023/2/a141672_0s.jpg)
办公场景经常遇到的Word难题,看这篇全搞定
2023-11-10 14:24:35
![](https://img.aspxhome.com/file/2023/6/16976_0s.png)
word公式编辑器在哪里?word公式编辑器怎么用?
2023-04-15 12:42:15
![](https://img.aspxhome.com/file/2023/5/29365_0s.jpg)
word删除表格整行或整列的两种方法
2023-08-23 11:32:37
win10系统如何查看lrc文件?lrc文件打开方法详解
2023-08-02 02:16:23
![](https://img.aspxhome.com/file/2023/3/46853_0s.png)
Win10蓝屏错误代码0xc0000001怎么修复?
2022-03-08 22:31:00
![](https://img.aspxhome.com/file/2023/8/52458_0s.jpg)
Excel2016一个单元格怎么分成两行?Excel2016单元格分行教程
2022-11-03 12:41:37
![](https://img.aspxhome.com/file/2023/2/40652_0s.jpg)
word怎么快速打印节约纸张?
2023-07-27 13:37:41
![](https://img.aspxhome.com/file/2023/7/33467_0s.jpg)
怎么使用Win10专业版的强制恢复功能?
2023-11-18 19:39:30
![](https://img.aspxhome.com/file/2023/2/49702_0s.jpg)
WPS里PPT如何调整字间距
2023-11-30 21:37:22
![](https://img.aspxhome.com/file/2023/1/a163881_0s.jpg)
word中的某段文字设置背景颜色及添加打开密码的具体步骤
2023-07-24 02:26:52
![](https://img.aspxhome.com/file/2023/1/33981_0s.gif)
word制作文档目录原来这么轻松
2023-10-19 19:48:47
![](https://img.aspxhome.com/file/2023/8/35458_0s.jpg)
Word 2007论文页码轻松搞定
2023-12-11 10:38:54
![](https://img.aspxhome.com/file/2023/3/20863_0s.gif)
Word空白页老是删不掉?教你5个超简单的方法,1秒就能KO所有
2023-11-08 07:46:39
![](https://img.aspxhome.com/file/2023/3/16933_0s.jpg)
Excel2016多种方法提取列表数字
2023-09-14 17:47:35
![](https://img.aspxhome.com/file/2023/0/36240_0s.jpg)
Word的超链接功能,万万没想到可以这么好用!
2022-01-19 00:40:18
如何解决Word提示无法初始化visual basic环境的问题
2023-03-05 06:48:22
![](https://img.aspxhome.com/file/2023/7/30027_0s.jpg)
为word文档添加水印
2023-04-27 13:47:17