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

VBA如何将宏范围扩展到整个工作表

1 个答案: