Excel，通過多個計算循環

Question

我寫了一個簡單的代碼，用於顯示連接到外部數據源的更改單元格值的最高值。我有400個不同的連接，並想重複這個計算每一個，我的代碼只是更新的第一行：

Private Sub Workbook_SheetCalculate(ByVal Sh As Object) 
Dim HighVal As Integer 
Dim LivePrice As Integer 

LivePrice = Range("E7") 
HighVal = Range("G7") 

If LivePrice > HighVal Then Range("G7") = LivePrice 
End Sub 

在最有效的方式做到這一點相當難住了。提前謝謝了！

Answer 1

我不知道你的文件是如何佈局的，我不知道你爲什麼用B7的內容替換單元格B7。循環的方式如下。

假設你所有的連接都在不同的行，B7，C7等，你會寫這樣的循環。

dim i as long 

    for i = 2 To 400 
     LivePrice = Cells(i, 7).Value HighVal = Cells(i, 7).Value 
     If LivePrice > HighVal Then Cells(i, 7).Value = LivePrice 
    next i 

這將循環從2到400，這將是所有行從B到結束。對於每一行，它將在單元上執行計算（行號，7）。