vba 如何等待用户选择区域后执行

Question

如题所述

Answer 1

给你个例程你自己试一下.
Sub test()
Dim MySelect As Range, MySum As Double
On Error Resume Next
'调用inputbox方法显示一个输入框等待用户输入或框选单元格区域
Set MySelect = Application.InputBox("请输入或者框选单元格区域:", "指定单元格区域", Type:=8)
'如果myselect 是空 退出过程,对用户点击输入框的取消按钮后作出判断.
If MySelect Is Nothing Then Exit Sub
'对选定的区域做求和处理
For i = 1 To MySelect.Count
MySum = MySum + MySelect.Cells(i)
Next
'在求和区域的最后一个单元格的下方显示求和结果
MySelect.Cells(MySelect.Count).Offset(1, 0) = MySum
End Sub

Answer 2

我是在vba里用的这个语句：
Set userrange = Application.InputBox(prompt:="指定区域", Title:="确定选区", Type:=8)