VBA如何將宏的范圍擴展到整個工作表

Question

如何將組合框中的每個值傳遞給工作表並檢索將存儲在單獨工作表中的單個單元格？

第1頁：從組合框輸入位置（存儲在第2頁上），並從輸入的日期開始90天內從外部數據庫檢索每小時溫度。 存儲最大值。 表格3：需要遍歷每個位置並在“位置名稱”旁邊存儲最大值，

現在，我的一次迭代宏是：

  ActiveWindow.SmallScroll Down:=-6
    Range("B1").Select
    Selection.NumberFormat = "General"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "='Load Book'!R[2]C[-1]"
    Range("B2").Select
    Sheets("Max Amps").Select
    ActiveSheet.Calculate
    Sheets("Load Book").Select
Range("B3").Select
Selection.NumberFormat = "0"
ActiveSheet.Calculate

這僅適用於該單元中的任何單元。 如果我也嘗試為下一次迭代記錄宏，則第一個最高溫度也將變為第二個位置中的最高溫度。 如何獲得最高溫度存儲，然后在不首先受到影響的情況下移至下一個位置？ 我如何將其應用於400個地點？

Answer 1

首先更改代碼

     ActiveWindow.SmallScroll Down:=-6
    Range("B1").NumberFormat = "General"
    Range("B1").FormulaR1C1 = "='Load Book'!R[2]C[-1]"
    Sheets("Max Amps").Select
    ActiveSheet.Calculate
    Sheets("Load Book").Select
Range("B3").NumberFormat = "0"
ActiveSheet.Calculate