Jak napisać opis przypadku w vba (z przykładem)

Instrukcja case to typ instrukcji, która cyklicznie przechodzi przez warunki i zwraca wartość, gdy pierwszy warunek zostanie spełniony.

Do napisania instrukcji case w VBA możesz użyć następującej podstawowej składni:

 SubCaseStatement ()

    Dim i As Integer

    For i = 2 To 9
    
       Select Case Range(" B " & i).Value
            Case Is >= 30
                result=" Great "
           Box Is >= 20
                result = " Good "
            Case Is >= 15
                result=" OK "
           Case Else
                result=" Bad "
        End Select
        
        Range(" C " & i).Value = result
        
    Next i
    
End Sub

Ten konkretny przykład sprawdza każdą komórkę w zakresie B2:B9 i zwraca następujące wartości w zakresie C2:C9 :

• „ Doskonały ”, jeśli wartość w kolumnie B jest większa lub równa 30.
• W przeciwnym razie „ Dobrze ”, jeśli wartość w kolumnie B jest większa lub równa 20.
• W przeciwnym razie „ OK ”, jeśli wartość w kolumnie B jest większa lub równa 15.
• W przeciwnym razie „ Zły ”, jeśli żaden z powyższych warunków nie jest spełniony.

Poniższy przykład pokazuje, jak zastosować tę składnię w praktyce.

Przykład: Pisanie opisu sprawy w VBA

Załóżmy, że mamy w Excelu następujący zestaw danych, który pokazuje liczbę punktów zdobytych przez różnych koszykarzy:

Załóżmy, że chcemy napisać opis przypadku, aby przypisać każdemu graczowi wartość Doskonała, Dobra, OK lub Słaba na podstawie liczby zdobytych punktów.

W tym celu możemy utworzyć następujące makro:

 SubCaseStatement ()

    Dim i As Integer

    For i = 2 To 9
    
       Select Case Range(" B " & i).Value
            Case Is >= 30
                result=" Great "
           Box Is >= 20
                result = " Good "
            Case Is >= 15
                result=" OK "
           Case Else
                result=" Bad "
        End Select
        
        Range(" C " & i).Value = result
        
    Next i
    
End Sub

Kiedy uruchomimy to makro, otrzymamy następujące dane wyjściowe:

Kolumna C zwraca wartość Doskonała, Dobra, OK lub Słaba w oparciu o odpowiednią wartość w kolumnie B.

Dodatkowe zasoby

Poniższe samouczki wyjaśniają, jak wykonywać inne typowe zadania w VBA:

VBA: Jak sklasyfikować listę wartości
VBA: Jak policzyć unikalne wartości w zakresie
VBA: Jak policzyć liczbę wierszy w zakresie