Question

excel如何用vba实现随意选取两个单元格然后点击按钮求和

Answer 1

我能做到在代码运行过程中分别选去两个单元格，自动返回和值，代码如下：
Sub 求和()
Dim n1, n2, t$
101:
n1 = Application.InputBox("请选择第一个单元格", t, Type:=8)
If IsNumeric(n1) = False Then
t = "你选择的单元格的值为 非数字 ！请重新选择"
GoTo 101
Else
t = ""
End If
102:
n2 = Application.InputBox("请选择第二个单元格", t, Type:=8)
If IsNumeric(n2) = False Then
t = "你选择的单元格的值为 非数字 ！请重新选择"
GoTo 102
Else
t = ""
End If
MsgBox "两单元格的和为: " & n1 + n2
End Sub

'注意：1、你可以自行设置一个快捷键，如ctrl+n；2、最好确认一下你所选单元格的格式为“数值”格式