Excel计数器用于何时带有stream数据的单元格增加？

我有一个单元，可以传输实时数据。 我正在尝试向另一个单元添加一个计数器，以便每次单个stream数据单元更改时，计数器都会增加。 （进来的数据只是增加，所以每次增加，计数器应该增加）。

任何方式来做这个W / O的VBAmacros？ 否则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事件中工作。 在这个例子中，stream数据将在单元格（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