二月的固定电话是100,我要再输100,使它自动的求和为200,而不是我先算好了再输进去,怎么办?
下面的宏来解决这个问题并不是最优的，也许可以再做一些修改。1、需要捕获更新之前的单元格值，这里用到了Worksheet_SelectionChange，因为更新单元格之前都是需要先选择一个单元格的，刚好这个就可以捕获更新之前的值。2、捕获更新时输入的值，这里用Worksheet_Change，用捕获到的更新值加上更新之前的值，生成一个当前单元格的值。右击sheet1标签，查看代码，复制以下代码至右边的空白窗口，切换回EXCEL中，使用看看。Private t, tempPrivate Sub Worksheet_Change(ByVal Target As Range)If t = "" Thent = 1Target.Value = temp + Target.ValueEnd IfEnd SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)temp = Target.Valuet = ""End Sub加入数值判断，避免出现非数字格式相加。Private t, tempPrivate Sub Worksheet_Change(ByVal Target As Range)If IsNumeric(Target.Value) = True ThenIf t = "" Thent = 1Target.Value = temp + Target.ValueEnd IfEnd IfEnd SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)If IsNumeric(Target.Value) = True Thentemp = Target.Valuet = ""Elsetemp = 0End IfEnd Sub
提问者对答案的评价： |
