2017-06-07 32 views
0

我有一個單元,可以傳輸實時數據。我試圖給另一個單元添加一個計數器,這樣每次單個流數據單元發生變化時,計數器都會增加。 (進來的數據只是在增加,所以每次增加時,計數器應該增加)。Excel計數器用於帶流數據的Cell何時增加?

任何方式W/O VBA宏來做到這一點?否則VBA代碼將有所幫助。感謝

+0

你怎麼不流VBA實時數據? –

+0

實時股票市場數據的DDE鏈接。所以這個單元格有一個函數,例如... = XYZ(AAPL,Last Price),並顯示當前價格 – RyanB

回答

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 
+0

謝謝,還可以說如果我有一個單元格C1和D1,並且對於每個更改事件,我想設置一個計數器在每次更新/更改時比較C1 = D1,看起來會是什麼樣子? – RyanB

+0

我編輯了我的答案,我想你在找什麼。如果C1變化並且等於D1中的值,則計數器會上升。否則,沒有任何反應,計數器保持不變。 – dwirony

+0

我在適用的工作表下輸入了第一個代碼塊作爲宏,輸出單元格爲Z1&Z2,但是Im沒有在Z2中看到計數輸出。我將「Sheet1」更改爲表單名稱,是否需要將「Activeworkbook」更改爲我的文件名?任何其他編輯林沒有看到? – RyanB

0

這應該在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 
+0

打敗你6秒;) – dwirony

+0

這隻適用於如果我自己輸入更改,然後單擊輸入。如果單元格(1,1)是對不同單元格的引用,則說明A1 =間接(「B7」)。該代碼在這種情況下不起作用。對於我的電子表格,A1是一個函數。 – RyanB