利用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行逐渐往下输入数据。

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

分享到:

12 条评论

注意: 评论者允许使用'@user空格'的方式将自己的评论通知另外评论者。例如, ABC是本文的评论者之一,则使用'@ABC '(不包括单引号)将会自动将您的评论发送给ABC。使用'@all ',将会将评论发送给之前所有其它评论者。请务必注意user必须和评论者名相匹配(大小写一致)。

昵称
  1. Znotz

    博主高人也

    1. Kael.Z

      一般人!呵呵

  2. 桌游志

    模板不错,就是这个字体,我怎么看的眼睛有点花~

    1. Kael.Z

      还好吧!没觉得啊!

  3. 自贡SEO

    一直想学,一直没学~~~ 几个Office软件我一点都不会。汗颜,争取大二全部搞熟练

    1. Kael.Z

      关键得实践,现在不重视等到出来工作,才发现这几个玩意很有用~

  4. 蛋糕

    不太了解!

    1. Kael.Z

      那就问呗!

  5. JaCall

    你的 不是 WIN 主机?!

    支持 中文标签?!

    1. Kael.Z

      我的升级成LINUX主机了~

  6. 红涛SEO

    没有用过,很多东西还是不懂的

    1. Kael.Z

      不是没用过,是我们平时没去挖掘他!呵呵