函数   文本=inputbox（提示,标题,默认填的文本,,,,)

方法     a=application.inputbox(提示,标题,默认填的文本,,,,数字）

（ps：其中数字代表公式，文本，单元格，数组等）

Sub ix()
Dim a As Range
Set a = Application.inputbox("把a1:a10选出来", "选区域练习", , , , , , 8)
MsgBox Application.Sum(a)
End Sub