Question

菜鸟请教，如何用EXCEl VBA 编写一段宏实现数据的输入功能？

1、出现对话框，要求输入第一个数据，确定后再提示输入第二个数据。然后将上两个数据相乘，三个数据分别存放到工作表的A2、B2和C2上面。

Answer 1

Sub 计算()
Dim a&, b&, c&, R&
a = InputBox("请输入数字1", "乘数")
b = InputBox("请输入数字2", "乘数")
c = a * b
R = Range("A65536").End(xlUp).Row + 1
Cells(R, 1) = a
Cells(R, 2) = b
Cells(R, 3) = c
End Sub
此宏当您第一次输入时竖铅保存在A2行
再次运行宏时，保存在A3行，
也就是说顺序保存在最后一行之下
如果只需余绝好要存于A2、B2、C2修改宏稿如下
Sub 计算()
Dim a&, b&, c&
a = InputBox("请输入数字1", "乘数")
b = InputBox("请输入数字2", "乘数")
c = a * b
Cells(2, 1) = a
Cells(2, 2) = b
Cells(2, 3) = c
End Sub