利用Inputbox函数输入数据

• VBA • 12 条评论 • •9,726 次查阅

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 + 1, 1) = 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

      不是没用过，是我们平时没去挖掘他！呵呵