readfile 同步:EXCEL工作表中自动求和并换行

来源：百度文库编辑：中财网时间：2024/05/01 12:48:44

工作表中自动求和并换行

为了录入方便，可以在每次输入时按键盘自动换行并求和，不用手工插入行

step1：

'在sheet1代码窗口中输入以下代码

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rowx As Integer
rowx = Sheet1.Range("a65536").End(xlUp).Row
Sheet1.Range("d" & rowx).Value = Application.WorksheetFunction.Sum(Sheet1.Range("d2:d" & rowx - 1))
End Sub

step2：

'添加模块，输入代码

Option Explicit
Public Sub addrow()
Dim sel As Integer
sel = Application.ActiveCell.Row
Sheet1.Rows(sel + 1).Insert
End Sub

step3：

在thisworkbook中输入代码，使之能达到打开工作薄自动运行

Option Explicit

Private Sub Workbook_Open()
Application.OnKey "{ENTER}", "addrow"
End Sub

OK,在操作时，按小键盘的enter回车键就能自动换行并求和了

Excel中自动换行的快捷键是什么？ Excel单元格中能不能自动换行？ excel中打字自动换行问题？在EXCEL中不能自动求和 EXCEL中,数据不能自动求和是怎么回事? EXCEL中,数据不能自动求和是怎么回事? 电脑Excel表格中,如何自动求和? 请教一个excel中自动求和问题工作中Excel数字自动求和如何保存小数点后两位数？ EXCEL中自动求和后多个自动求和的求和，如何计算？ excel自动完成前二十名的筛选并放置于另一工作表中. excel自动换行无效如何使在excel中输入的内容自动换行在excel中怎样输入数字就能自动求和 EXCEL中数组求和？ EXCEL中求和问题! 在EXCEL的单元格中想换行除了将表格属性改成自动换行外还有什么方法自如换行? EXCEL自动求和非“∑” Excel自动换行（不是单元格内自动换行）在EXCEL单元格中换行 excel 单元格中怎么换行？？如何Excel表格中求和 excel中每页求和？？？ excel中如何条件求和？