发布网友 发布时间:2022-04-25 20:35
共1个回答
热心网友 时间:2022-06-17 05:09
得用宏,下面是Excel里的方法,不知道WPS好使不。 右键点工作表的名字(在左下方,如Sheet1),查看代码,粘贴如下代码: Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo Line1 If Target.Range("A1").Address = " $A$1 " Then Target.Range("A1").Offset(1, 0) = Target.Range("A1").Offset(1, 0) + Target.Range("A1") Line1: End Sub 粗体的$A$1表示触发代码的单元格是A1。回到Excel,在A1不断输入数字,A2自动累加。 追问: 一个都没看懂。。。。。。。不晓得是太复杂了还是我太笨了。。。 回答: WPS我不保证可以,但Excel一定可以: 右键点工作表的名字(在左下方,如Sheet1),查看代码,粘贴如下代码: Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo Line1 If Target.Range("A1").Address = " $A$1 " Then Target.Range("A1").Offset(1, 0) = Target.Range("A1").Offset(1, 0) + Target.Range("A1") Line1: End Sub 回到Excel,在A1输入数字,A2自动累加;改变A1数字,A2继续累加。 追问: o o 谢谢