EXCEL中执行VBA出现的一个问题

excel中怎么使每个单元格显示这1次输

下面的宏来解决这个问题并不是最优的，也许可以再做一些修改。 1、需要捕获更新之前的单元格值，这里用到了Worksheet_SelectionChange，因为更新单元格之前都是需要先选择一个单元格的，刚好这个就可以捕获更新之前的值。 2、捕获更新时输入的值，这里用Worksheet_Change，用捕获到的更新值加上更新之前的值，生成一个当前单元格的值。 右击sheet1标签，查看代码，复制以下代码至右边的空白窗口，切换回EXCEL中，使用看看。 Private t, temp Private Sub Worksheet_Change(ByVal Target As Range) ...全部

  下面的宏来解决这个问题并不是最优的，也许可以再做一些修改。 1、需要捕获更新之前的单元格值，这里用到了Worksheet_SelectionChange，因为更新单元格之前都是需要先选择一个单元格的，刚好这个就可以捕获更新之前的值。
   2、捕获更新时输入的值，这里用Worksheet_Change，用捕获到的更新值加上更新之前的值，生成一个当前单元格的值。 右击sheet1标签，查看代码，复制以下代码至右边的空白窗口，切换回EXCEL中，使用看看。
   Private t, temp Private Sub Worksheet_Change(ByVal Target As Range) If t = "" Then t = 1 Target。
  Value = temp + Target。Value End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) temp = Target。
  Value t = "" End Sub 加入数值判断，避免出现非数字格式相加。 Private t, temp Private Sub Worksheet_Change(ByVal Target As Range) If IsNumeric(Target。
  Value) = True Then If t = "" Then t = 1 Target。Value = temp + Target。Value End If End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If IsNumeric(Target。
  Value) = True Then temp = Target。Value t = "" Else temp = 0 End If End Sub 。收起