利用Inputbox函数输入数据

Inputbox函数输入数据

通常在excel中输入数据都是一个个点击单元格依次输入,但是能不能采用别的方法呢?有!利用Inputbox函数输入数据

输入如下代码:

 

 
  1. Sub myInputBox()   
  2.     Dim sInt As String   
  3.     Dim r As Integer   
  4.     r = Sheet3.Range("A65536").End(xlUp).Row   
  5.     sInt = InputBox("请输入数据:")   
  6.     If Len(Trim(sInt)) > 0 Then   
  7.         Sheet3.Cells(r + 11) = sInt   
  8.     Else   
  9.         MsgBox "您没有输入内容!"  
  10.     End If   
  11. End Sub  

以上代码是以行为行进路线,如A1>A2>A3.A行逐渐往下输入数据。

当然代码加按钮来执行是最佳搭配!来试试吧。

分享到: