Excel使用VBA程序自动换行
参照图表,当在Excel单元格输入数据后,会自动跳至右侧邻接单元格,填充至指定的最后一格后又无缝转入下一行的第一个单元格,提升数据录入效率。以下将演示如何运用VBA编程技术来实现这一自动化操作。
1、 打开Excel表格后,在工作表标签(Sheet1)上面单击右键,选择“查看代码”。
2、 在VBA编辑器的“Sheet1”代码窗口里边输入以下程序代码:Private Sub Worksheet_Change(ByVal Target As Range)Dim sro, sco, ro, coOn Error Resume Next ? ? ? ? ? ? ? ?"忽略运行时可能出现的错误Application.EnableEvents = False ? ?"开启代码只执行一次Set mysheet1 = ThisWorkbook.Worksheets("Sheet1")sro = Selection.Row ? ? ?"选择单元格所在的行sco = Selection.Column ? "选择单元格所在的列If sro > 1 And sco > 1 And sco <= 10 Then ?"如果所选的单元格为第二行起,B~J列之间,则?ro = Target.Row ? ? ? "获取改变单元格所在的行?co = Target.Column ? ?"获取改变单元格所在的列?If co = 10 Then ? ? ? ? ? ? ? ? ? ?"如果已经到达J列,则? mysheet1.Cells(ro + 1, 2).Select ?"换行,选择下一个单元格?End If?If co > 1 And co < 10 Then ? ? ? ? "如果只在B-I列,则? mysheet1.Cells(ro, co + 1).Select "选择右边单元格?End IfEnd IfApplication.EnableEvents = True ? ?"恢复代码只执行一次End Sub
文章标题:Excel使用VBA程序自动换行
文章链接://m.i-boarding.com/jiqiao/204744.html
为给用户提供更多有价值信息,ZOL下载站整理发布,如果有侵权请联系删除,转载请保留出处。
相关软件推荐
其他类似技巧
- 2024-08-21 18:25:01excel怎样批量录入相同内容
- 2024-08-21 18:23:02Excel2010 如何输入公式
- 2024-08-21 18:22:02wps中Excel的插入特殊符号在哪里?
- 2024-08-21 18:20:02Excel表格中如何删除某一列数据#经验分享官#
- 2024-08-21 18:15:01excel中如何按顺序自动填写阿拉伯数字
- 2024-08-21 18:14:02如何将Word表格转换成Excel表不变形
- 2024-08-21 18:13:02如何使用excel多工作表求和
- 2024-08-21 18:12:02如何为Excel表格设置密码保护
- 2024-08-21 18:01:02Excel文档如何创建指定文本的超链接?
- 2024-08-21 17:55:01如何使用Excel文档中的数据替换功能?
Microsoft Office Excel2007软件简介
excel2007是2007版的Microsoft Office中的重要模块组件,Excel2007可以在电脑上编写电子表格,是最好用的办公软件,可以满足用户对表格的自定义编辑,还具有强大的图形功能,功能全面。zol提供excel2007官方版下载。excel2007具有强大插件平台支持,免费提供海量在线存储空间及wps文字文档模板,支持阅读和输出PDF文件,全... 详细介绍»