Instrukcja Select … Case_ w kodzie VBA przypomina swoim działaniem funkcję Switch().
Dla jednej wyznaczonej wartości argumentu sprawdza, który z kolejnych warunków jest spełniony i gdy znajdzie wartość True – wychodzi z instrukcji.
Przykład działania instrukcji:
| Public Function SprawdzDate(JData) Dim DzienTyg As Integer If IsNull(JData) Then DzienTyg = 0 Else DzienTyg = Weekday(JData, vbMonday) End If Select Case_ DzienTyg Case_ 0 SprawdzDate = „brak daty” Case_ Is < 3 SprawdzDate = „początek tygodnia” Case_ Is < 6 SprawdzDate = „środek tygodnia” Case_ Else SprawdzDate = „weekend” End Select End Function |
Efekt końcowy w kwerendzie:
Warto zwrócić uwagę na ostatni warunek czyli
Case_ Else
– zwraca wartość zwracaną dla wszystkich przypadków niespełniających wcześniejszych warunków.
Czy warto stosować tę instrukcję? Moim zdaniem tak. Bardzo ładnie zastępuje skomplikowane zagnieżdżone funkcje If Then.
Uwaga: niestety WordPress nie powala na użycie słowa
musiałam w treści notki zastąpić je słowem Case_.
A tu możesz mi postawić kawę:
