Для каждого цикла необходимо руководство

Question

Идея заключается в том, что я хочу оценить каждый Ws в Workbook для заданных критериев в vba. Если критерии выполнены, я хочу, чтобы он что-то делал. Если это не будет выполнено, я хочу перейти к следующему ws. Я знаю, что это просто. Любая помощь была бы действительно оценена

Вот что у меня есть.

Sub dataconsol() 
    Dim Ws As Worksheet 
    For Each Ws In ThisWorkbook.Worksheets 
     If ActiveSheet.Range("B9").Value = 1 Then 
      Range("A1").Value = 2 
     ElseIf Range("b9").Value <> 1 Then 

     End If 
    Next Ws 
End Sub 

Answer 1

Ваш код в порядке. Переключите ActiveSheet на W W, так как в вашем случае ActiveSheet всегда был «Sheet1».

Sub dataconsol() 

Dim Ws As Worksheet 

For Each Ws In ThisWorkbook.Worksheets 
    With Ws 
     If .Range("B9").Value = 1 Then 
      .Range("A1").Value = 2 
     ElseIf .Range("b9").Value <> 1 Then 
     End If 
    End With 
Next Ws 

End Sub 

Или, если вы хотите использовать ActiveSheet:

Sub dataconsol2() 

Dim Ws As Worksheet 

For Each Ws In ThisWorkbook.Worksheets 
    Ws.Activate 
    If Range("B9").Value = 1 Then 
     Range("A1").Value = 2 
    ElseIf Range("b9").Value <> 1 Then 
    End If 
Next Ws 

End Sub