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