VBA编程之inputbox用法

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