VBA编程中，inputbox函数是我们经常用到的函数之一，下面简单介绍一下该函数的一些用法。
引用单元格
inputbox方法的最后个参数值为8的时候,可以用鼠标选择单元格的地址.使用变量是使用SET声明的对象变量,则返回的是一个单元格对象,
'否则反回的这个单元格区域的值,即VBA数组.
Sub text5()
Dim rg As Range
Set rg = Application.InputBox("请选择单元格区域", "选取提示", , , , , , 8)
MsgBox rg.Parent.Name & "!" & rg.Address
End Sub
公式引用
'当最后一个参数设置为0时,可以输入公式,返回的也是一个公式字符串,如果公式中含单元格引用,可以自动转换成rc引用格式(以当前活动单元格为参照)
Sub test7()
Dim r
r = Application.InputBox("请输入公式", "输入提示", , , , , , 0)
MsgBox r
End Sub
限制输入返回的数值格式
Sub test8()
Dim r
r = Application.InputBox("请输入公式", "输入提示", , , , , , 1) '输入非数字则会提示无效的数字
MsgBox r
End Sub
数值数组
'可以选取单元格区域的值作为数组,也可以输入以带有大括号的一维或二维数组
Sub test10()
Dim r
r = Application.InputBox("请输入公式", "输入提示", , , , , , 64) '可以输入字符,当然,文字型数字也符字符
MsgBox r(2, 1)
End Sub
