VBA自动定位下一个非空单元格

如何实现每次输入数据后总是定位于下一行的第一个空单元格避免键盘方向键左右移动呢?

比较老实的办法是在常规里面设置方向,但是缺点是输入完成后始终朝某个方向前进,不会换行。

如何实现我们上面的需求?分享个代码:

  1. Private Sub Worksheet_Change(ByVal Target As Range)   
  2.   If Target.Count = 1 Then   
  3.     If Len(Target.Text) > 0 Then   
  4.       Cells(Target.Row + 1, Cells(Target.Row + 1, Columns.Count).End(xlToLeft).Column + 1).Select   
  5.     End If   
  6.   End If   
  7. End Sub

只要你输入完数据,自动定位到下面的单元格。试试吧~

分享到:

17 条评论

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

昵称
  1. 郑州白癜风医院

    楼主真是生活中的细心哦。

  2. 影科技

    找到了 是上面的显示选项没打开 非常感谢

    1. Kael.Z

      呵呵~折腾啊

  3. 影科技

    我没发现有这么个地方啊,能给我截个图吗 谢谢啊

    1. Kael.Z

      [img]http://photo.staticsdo.com/a1/130/203/259/77821-1584178823-8.png[/img]自己看吧~

  4. 影科技

    postview??我晕了

    1. Kael.Z

      我说的你编辑文章会看到VIEWS那位置,就是添加re那个位置。里面有添加自定义栏目的选项

  5. 影科技

    在具体点吧

    1. Kael.Z

      添加自定义栏目名称,你编辑文章里面能看到的啊,你没仔细阅读大鸟的说明哦。不是标签和分类,如果你启用了postview,就在文章VIEWS那个位置。在编辑文字下面的。

  6. 影科技

    还是文章标签呀

  7. 影科技

    分类目录吗

  8. 影科技

    横向滚动模块默认不显示,调用文章的方法:添加自定义栏目名称:recommend,值:随意添加什么都行,调用指定图片需添加自定义栏目:img,显示数量可以在主题设置中控制。

    能告诉我是怎么做的吗

    1. Kael.Z

      主题开启后在文章添加自定义栏目名称:recommend就可以了

  9. WILDEN

    我来逛逛,顺便帮博主顶一下,嘿嘿。

    1. Kael.Z

      谢谢~有空常来~

  10. 女性博客

    来看望博主,是个沙发哦!

    1. Kael.Z

      呵呵,还是你的博客火热啊~