引用单元格

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