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