如何使用ForEach循环只有几张纸-HowtoUseaForEachloopwithjustfewsheets

0  

From what I can see, you're setting up your list of target sheets in a strange way that's not quite working... How about something like this?

从我所看到的情况来看,你是以一种奇怪的方式设置你的目标表单列表,这些表格不太合适......这样的事情怎么样?

Sub ContaNoPrazo_v2()

    Dim conta As Integer
    'Dim Array1 As String
    Dim sht As Worksheet

    'Array1 = ThisWorkbook.Sheets(Array("Isabel", "Thiago", "Victor", "Natacha", "Stefano"))
    cOnta= 0
    Sheets("Isabel").Activate

    For Each sht In ThisWorkbook.Worksheets

        'only enter this loop if in your target names
        If sht.Name = "Isabel" Or sht.Name = "Thiago" Or sht.Name = "Victor" _
            Or sht.Name = "Natacha" Or sht.Name = "Stefano" Then

            sht.Activate
            Range("I2").Select
            Range(Selection, Selection.End(xlDown)).Select

            For Each MyCell In Selection

                If MyCell.Value <= 5 And MyCell.Value >= 0 Then
                    cOnta= conta + 1
                End If

            Next MyCell

        End If

    Next sht

    Sheets("Analise").Activate
    Cells(2, 1).Value = conta

End Sub