新大榭论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

《新大榭》- 创大榭地方网络社区先锋品牌 新大榭始终专注于地方网络社区平台的建设 关于我们- [大记事]- 留言建议- [新手报道]

发布 .新大榭软件管家(Excel版) V6.0版 财务/仓库/生产/销售/采购/行政/人事/校园 .公告 - 客户 - 打赏 - 职场 - Excel - Python.

新大榭镜像-音乐-法律-图书-高中课堂-实验 广告是为了能更好的发展 [欢迎商家支持本站互利共赢] 广告位招租.首页黄金广告位等您来!联系 13566035181

查看: 535|回复: 0

[VBA精品课] A01036 - 设置按 Enter 键后单元格的移动方向 - P22

 关闭 [复制链接]
发表于 2019-5-15 08:42:01 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转新大榭论坛!

您需要 登录 才可以下载或查看,没有账号?注册

x
  1. Public Sub 技巧1_036(), y$ L! ^' m9 X2 g1 M: d; t: i. S  S9 X, }
  2.     Application.MoveAfterReturn = True
    . }& S, f( P* U1 U" s, `
  3.     Application.MoveAfterReturnDirection = xlToRight   '向右移动& }. X# M8 Q7 w* _
  4.     MsgBox "已经改为单元格向右移动"0 J$ J; |# A8 N
  5.     Application.MoveAfterReturnDirection = xlDown      '向下移动; L$ |4 ~7 Q$ v0 e  \
  6.     MsgBox "已经改为单元格向下移动"* a; i4 J" p, n7 }3 Q
  7.     Application.MoveAfterReturnDirection = xlToLeft    '向左移动
    % G1 d0 f1 F  B4 |  _
  8.     MsgBox "已经改为单元格向左移动"& d6 h' j1 v% }
  9.     Application.MoveAfterReturnDirection = xlUp        '向上移动; B1 `* B9 x  ]# d% u
  10.     MsgBox "已经改为单元格向上移动"& ?4 C6 R+ A: r, A6 b4 \  n: j; o
  11. End Sub
复制代码
新大榭Python学习社区培训、Excel业务指导、办公软件定制、网站建设;新大榭探索实验室欢迎您!http://lab.daxie.net.cn/
Q群推荐 大榭本地求职招聘QQ群,欢迎转发分享本地招聘信息资讯! 官方招聘1群(已满);官方招聘2群:315816937 *
您需要登录后才可以回帖 登录 | 注册

本版积分规则

文字版|小黑屋|新大榭 ( 浙ICP备16018253号-1 )|点击这里给站长发消息|

GMT+8, 2026-2-26 23:06 , Processed in 0.071976 second(s), 19 queries , Gzip On.

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表