如何在每秒或一段時間以下向單元格添加1

Question

嗨，大家好，我在查找如何執行以下操作時遇到了一些困難。我需要一個列加1到起始單元格下面的每個單元格中，例如A1，因爲時間過去了，所以在單元格B1中說明了13:00:00。考慮列A:A中的每個單元格都是空白的，我需要使用excel或vba將1置於下面的單元格中，如前所述。所以在一分鐘後，我將有以下高達60開始計數從A2

A 
0 
1 
2 
3 
. 
. 
. 
... 
60 

直到我指定停止在一個單元格，例如， c1有13:01:00或D1有13:01:00和C1有STOP

我寧願用Excel公式要做到這一點，但我不知道這是否是有效的，因爲我將有多達九個列在同一時間，他們這樣做將從幾分鐘到幾個小時，可能幾天。 因此，一個UDF可能會更好 - 我可能需要測試這兩種方法

一旦時間已經停止，我需要在列的所有單元格被放回空白包括0 :)

---

我實際上在做的是找到最低點或最低點，當我用一個名爲multicharts的程序打開一個交易時，指向它的DDE connectoin公式。最後的輸入是在任何期間我喜歡的時間，只要它出現在multicharts中。我可以有1秒-5秒-10分鐘。 公式如下： =RTD("mcrtdserver.rtdserver","localhost","Symbol","EUR/USD","1 Second","SymbolData","High",0) 0代表當前1秒或5分鐘可存在。因此，我可以使用1和2來查找2秒前的數據，直到幾秒前我開始交易。本質上，我正在尋找最實用的方法來引用這些公式來找到最大值或最小值。低公式只是 =RTD("mcrtdserver.rtdserver","localhost","Symbol","EUR/USD","1 Second","SymbolData","Low",0) 在5分鐘，15分鐘，30分鐘和幾小時工作更實際，因爲它們將經常出現在multicharts中。 我只是試圖讓我的頭如何最好地做到這一點 - 無論它是一個從時間/時間的查找表，直到使用一些時間間隔來磨合較大的時間框架或其他東西。然後，我會嘗試將清除列之前記錄的高/低的最小值或最大值粘貼起來以利用該值，以便該位現在不那麼重要。

Answer 1

這是一個VBA解決方案 - 注意：在運行時，您無法在Excel中執行任何操作。另外，如果在定時器完成時它被清除掉，那麼你在A列中計數什麼？因爲你不能進入並在運行時在單元格中添加「停止」，所以我假設在C1中是開始時間（24小時格式的小時，分​​鍾和秒），並且在C2中停止時間。

Sub timer() 
Dim nowTime As Variant, setTime As Variant, stopCell As String, stopTime As Variant 
Dim i    As Integer 

i = 1 

stopCell = Evaluate(Cells(1, 3).Value) 

setTime = Format(Cells(1, 2).Value, "HH:mm") ' Get the time to start via B1 
stopTime = Format(Cells(2, 2).Value, "HH:mm") 'get the time to stop via B2 

nowTime = Format(now(), "HH:mm") 'what time is it right now? 


Do While nowTime >= setTime And nowTime <= stopTime 
    Cells(i, 1).Value = i - 1 'because you also want to start with 0 - if not, remove the "-1" 
    Application.Wait (now + TimeValue("00:00:01")) 
    i = i + 1 
    nowTime = Format(now(), "HH:mm") 
Loop 

Columns(1).Clear 
MsgBox ("Done") 


End Sub 

但我想我錯過了一些東西 - 所以請讓我知道那是什麼。據我所知，一個公式將無法做到這一點 - 你需要VBA。但是，再次，依次計算這個數據的目的是什麼？在宏運行時，您將無法在Excel（AFAIK）中工作。