了解 VBA excel 中的工作表/单元格引用

Question

所以我移动了一个带有一些相当广泛编码的宏按钮，这样用户就不会意外点击它。基本上，宏将第一页上的信息发送到摘要工作簿。我认为我可以移动按钮，因为查找所需变量的代码的第一部分选择了我真正想要从中获取信息的工作表。然而，宏仍然查看活动工作表以获取变量。我可以通过简单地将工作表引用与范围引用一起获取必要的信息来解决此问题，但我认为我不需要这样做。有没有办法只引用一次工作表，以便代码在工作表上查找我需要信息的所有信息？

第一个代码——从它所附加的任何工作表中获取信息，在本例中为 sheet2：

 Worksheets("Sheet1").Select
    AgentName = Range("C2")
    'Set IncidentReport = Range("d1:f1")
    County = Range("d1")
    Idate = Format(Range("e1"), "yyyymmdd")
    LogNum = Format(Range("f1"), "000")
    IncidentReport = County & Idate & LogNum

此代码从正确的工作表中提取信息，但我有很多变量我希望得到，而且肯定有更好的方法：

Worksheets("Sheet1").Select
    AgentName = Worksheets("Sheet1").Range("C2")
    'Set IncidentReport = Range("d1:f1")
    County = Worksheets("Sheet1").Range("d1")
    Idate = Format(Worksheets("Sheet1").Range("e1"), "yyyymmdd")
    LogNum = Format(Worksheets("Sheet1").Range("f1"), "000")
    IncidentReport = County & Idate & LogNum

Answer 1

您可以使用 With 语句 - 注意范围前面的点。但是，我认为您的第一个代码应该可以工作 - 您是否有多个工作簿在运行？

With Worksheets("Sheet1")
    AgentName = .Range("C2")
    County = .Range("d1")
    Idate = Format(.Range("e1"), "yyyymmdd")
    LogNum = Format(.Range("f1"), "000")
    IncidentReport = County & Idate & LogNum
end with

Answer 2

是的，使用with 块：

With Worksheets("Sheet1")
    AgentName = .Range("C2")
    'Set IncidentReport = Range("d1:f1")
    County = .Range("d1")
    Idate = Format(.Range("e1"), "yyyymmdd")
    LogNum = Format(.Range("f1"), "000")
    IncidentReport = County & Idate & LogNum
End With

在with 块内，您可以使用. 引用您的对象，因此object.a 变为.