选择其他工作表后变量出错VBA

以下是我一直在处理的代码。但是，当我从同一个工作簿中选择另一个工作表时，我意识到出了问题。选择其他工作表后变量出错VBA

变量ShiftName在下面的代码中通过Sheets("Cash").Select时似乎发生了变化。

我认为ShiftName的列从工作表“ShiftRoster”的“B”更改为“Cash”的“C”，导致我的输出为ShiftName错误。

我想检查是否有任何方法可以解决这个问题？

Sub Testing() 
    Sheets("Shift Roster").Select 

    Range("A1").Select 
    Cells.Find("LEAVE").Activate 
    r1 = ActiveCell.Row 

    Dim ShiftRowName As Integer 
    Dim ShiftColName As String: ShiftColName = "B" 
    Dim ShiftColLeave As String: ShiftColLeave = "E" 
    Dim ShiftName As String 
    Dim ShiftReason As String 

    Dim CashRowName As Integer 
    Dim CashColName As String: CashColName = "C" 
    Dim CashColLeave As String: CashColLeave = "H" 
    Dim CashName As String 
    Dim CashLeave As String 

    ShiftRowName = r1 + 1 

    Do While Cells(ShiftRowName, 1) <> "" 
     ShiftName = Cells(ShiftRowName, ShiftColName) 
     ShiftReason = Cells(ShiftRowName, ShiftColLeave) 

     If ShiftName = "" Or IsEmpty(ShiftName) Then 
      Exit Do 
     Else 
      'SOMETHING WENT WRONG FROM HERE ONWARDS 
      Sheets("Cash").Select 

      Range("C1").Select 
      Cells.Find("Name").Activate 
      r2 = ActiveCell.Row 

      CashRowName = r2 + 1 

      Do While Cells(CashRowName, 1) <> "" 
       CashName = Cells(CashRowName, CashColName).Value 

       If CashName = "" Or IsEmpty(CashName) Then 
        Exit Do 
       Else 
        MsgBox ShiftName 
        End If 
       CashRowName = CashRowName + 1 
      Loop 

      End If 
     ShiftRowName = ShiftRowName + 1 
    Loop 

End Sub

来源

2016-05-13 stupidgal

是的，停止使用'Select'和'* .Active ...'属性。它们本质上不可靠，也很慢。 – RBarryYoung

@RBarryYoung我应该用什么来代替？ – stupidgal

您应该使用直接范围并使用'SET'将变量保存到变量中。 – RBarryYoung

资格的范围/细胞的方法：的

代替

ShiftReason = Cells(ShiftRowName, ShiftColLeave)

使用

ShiftReason = Sheets("Shift Roster").Cells(ShiftRowName, ShiftColLeave)

所以你的代码知道确切你指哪片。如果不符合您的范围，则会假定您指的是ActiveSheet对象。

来源

2016-05-13 12:48:21

选择其他工作表后变量出错VBA

回答

相关问题