用字符串激活工作表

Question

在这里有一些问题...我想我的工作表是（“在运输”）或（“在包装”） so工作表（“变量”）我使用按钮标题来给我输入 这里是我有什么

Dim department1 As String 
    department1 = Area.Caption 
    Dim department2 As String 
    department2 = toarea.Caption 
    Dim ws1 As String 
    ws1 = Chr(34) & "In " & department1 & Chr(34) 
    Dim ws2 As String 
    ws2 = Chr(34) & "In " & department2 & Chr(34) 

    MsgBox Chr(34) & "In " & department2 & Chr(34) 

    Dim slot1 As String 
    slot1 = Worksheets(ws1).Range("I1") 
    Dim slot2 As String 
    slot2 = Worksheets(ws2).Range("I1") 

但它未能在SLOT1和SLOT2没有看到工作表（WS1）.Range（“I1”）作为范围

Answer 1

我想你”重新尝试重现是：

Worksheets("In shipping")使用变量而不是特定的字符串。

要做到这一点，您无需额外加入"。

例如，重现准确，请尝试以下操作：

department1 = "shipping" 'eventually replace with Area.Caption 
ws1 = "In " & department1 
slot1 = Worksheets(ws1).Range("I1")