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