在日常对EXCEL数据的处理中,有时要对数据进行乘法运算,但是这么多的数据,有数又不一样,用公式就不能统一,这时候就只能用计算器来完成了,但是在计算器和表格之间频繁互换,难免有些麻烦,这种情况下,我们可以考虑用VBA程序来完成。
工具/原料
EXCEL软件
方法/步骤
1
新建EXCEL表格,现在我们要使A列中的数据按照B列中的规则进行变换,显然在EXCEL函数中是没有这种函数的,下面我们就用VBA来编辑一个乘法计算器,来快速完成这个计算。
2
单击菜单栏中“开发工具”——录制宏,打开“录制新宏”对话框,如图所示,在“宏名”中输入“乘法”,在“快捷键”中输入“Ctrl+Shift+C”,保存在“个人宏工作薄”,单击确定。
3
单击菜单栏中的“开发工具”——“停止录制”按钮,使宏处于停止录制状态。
4
单击“开发工具”——VisualBasic,打开VBA代码编辑器,双击“模块6”,代开代码编辑框,如图在其中有一些代码:
Sub 乘法()
' 乘法 Macro
' 快捷键: Ctrl+Shift+C
End Sub
5
现在我们来输入以下代码:
Sub 乘法()
' 乘法 Macro
' 快捷键: Ctrl+Shift+C
t = Val(ActiveCell.Value)
x = InputBox("请输入数值", "计算器")
ActiveCell.Value = Val(t * x)
End Sub
6
现在我们对刚才编写的宏进行调试,选择A1单元格,单击“运行”——运行子程序/用户窗体,在EXCEL工作表中弹出“请输入数值”对话框,在输入框中输入“20”,单击确定,我们可以看到A1数据变成了300。
7
现在我们选择A2单元格,按住“Ctrl+Shift+C”,打开“请输入数值”对话框,在输入框中输入“-21”,单击确定,我们可以看到A1数据变成了-420.
8
现在用同样的方式,利用右面的规则把A列中其他数据进行计算,结果如图所示,乘法计算器就只做完成了。
END温馨提示:经验内容仅供参考,如果您需解决具体问题(尤其法律、医学等领域),建议您详细咨询相关领域专业人士。免责声明:本文转载来之互联网,不代表本网站的观点和立场。如果你觉得好欢迎分享此网址给你的朋友。转载请注明出处:https://www.i7q8.com/zhichang/24309.html