Question

我有一个单元格来传输实时数据。我正在尝试将计数器添加到另一个单元格，这样每次单个流数据单元改变时，计数器就会增加。（进入的数据只会增加，因此每次增加时，计数器都应该增加）。

没有VBA宏的任何方法吗？否则VBA代码会有所帮助。感谢

Answer 1

将它放在Microsoft Excel对象下的工作表中。将第一个单元格设置为要更改的单元格，将第二个单元格设置为您想要计数器的位置。

Private Sub Worksheet_Change(ByVal Target As Range)
    'First cell
    If Target.Address = "$A$1" Then
        'Second cell
        ActiveWorkbook.Worksheets("Sheet1").Range("B1").Value = ActiveWorkbook.Worksheets("Sheet1").Range("B1").Value + 1
    End If
End Sub

编辑：如果C1在变化时等于D1。如果它不相等，则计数器不会上升。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$1" Then
        If ActiveWorkbook.Worksheets("Sheet1").Range("C1").Value = ActiveWorkbook.Worksheets("Sheet1").Range("D1").Value Then
            ActiveWorkbook.Worksheets("Sheet1").Range("D2").Value = ActiveWorkbook.Worksheets("Sheet1").Range("D2").Value + 1
        End If
    End If
End Sub

Answer 2

这应该在worksheet_Change事件中起作用。在这个例子中，流数据将在单元格（14,9）中，计数器将在单元格（1,1）

中

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Row = 14 And Target.Column = 9 Then
    Range("A1").Value = Range("A1").Value + 1
  End If
End Sub

具有流数据的Cell增加时的Excel计数器？

2 个答案: