Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - Zastąpienie formuł z trzech Kolumn UDF-em

ws1948 · Wysłany: 05-02-2021, 20:32 **Zastąpienie formuł z trzech Kolumn UDF-em**

witam,
chciałbym zastąpić formuły w trzech kolumnach jednym UDFem z jednoczesną możliwością jego wstawienia do wykorzystywanego UDF "zuzel".

Jak zawsze dalsze szczegóły w załączniku.

ws

ZUZEL.xlsm

Pobierz Plik ściągnięto 13 raz(y) 27.9 KB

Maciej Gonet · Wysłany: 06-02-2021, 11:23

Wrzucenie wszystkiego do jednej funkcji UDF nie jest, moim zdaniem, najlepszym pomysłem.
Funkcja zuzel przetwarza argument z jednego wiersza, a dokładniej nawet z jednej komórki.
Nowa funkcjonalność, jaką chciałeś jej przypisać, wymagałaby przetwarzania 4 wierszy, więc albo funkcję należałoby wywoływać tablicowo, albo te same obliczenia byłyby niepotrzebnie wykonywane 4 razy.
Lepszym rozwiązaniem wydaje mi się lekka modyfikacja funkcji zuzel tak, by zwracała do kolumny L liczbę, a nie tekst (o ile jest to możliwe) i wtedy nie byłaby potrzebna kolumna N, a wyznaczenie położenia gwiazdki można by oprzeć na wartościach z kolumny L.
Propozycja w załączniku. Formułę zapisałem w taki sposób, aby widać było jej związek z poprzednim zapisem. Po zweryfikowaniu poprawności działania można to oczywiście zmienić na zapis bardziej naturalny.
Formuła działa poprawnie dla takich danych jakie były w załączniku. Ale tam są możliwe teoretycznie również inne warianty, których nie weryfikowałem z powodu braku danych do testowania.

ZUZEL1.xlsm

Pobierz Plik ściągnięto 3 raz(y) 26.13 KB

ws1948 · Wysłany: 06-02-2021, 20:44

Witam,
dziękuję za zainteresowanie tematem, za wyczerpujące wyjaśnienie oraz za modyfikacje formuły.

Prosiłbym o wyjaśnienie dlaczego w formule np.

Kod:

If IsNumeric(Punkty) Then Punkty = CLng(Punkty)

nie ma zakończenia "The End". Kiedy nie jest konieczne?

W załączniku przedstawiłem większą ilość sytuacji biegowych.

Pozdrawiam
Stanisław

ZUZEL2.xlsm

Pobierz Plik ściągnięto 1 raz(y) 31.2 KB

Maciej Gonet · Wysłany: 06-02-2021, 20:58

ws1948 · Wysłany: 06-02-2021, 22:35

Witam,
naturalnie mój błąd. Dziękuję za wyjaśnienie.
Dołożyłem 4 opcję. Wykonywałem wg wzorów z poprzednich opcji. Jednak nie działa. Jaka przyczyna?

oto część kodu:

Kod:

Case nr = 4
If InStr(zawod, "zwykła") > 0 Then
z1 = "rz"
Else
z1 = ""
End If
zuzel = z1
If InStr(zawod, "taktyczna") > 0 Then
z2 = "rt"
Else
z2 = ""
End If
zuzel = z2
If InStr(zawod, "Zastępstwo") > 0 Then
z3 = "zz"
Else
z3 = ""
End If
zuzel = z3
If InStr(zawod, "Taśma") > 0 Then
z4 = "t"
Else
z4 = ""
End If
zuzel = z4
End Select

Całość w załączniku.

Pozdrawiam

ws

Zuzel2a.xlsm

Pobierz Plik ściągnięto 2 raz(y) 32.2 KB

Maciej Gonet · Wysłany: 06-02-2021, 23:48

A sprawdziłeś sobie swój program krokowo?
Co zawierała zmienna 'zawod' przy wejściu do drugiej instrukcji Select Case?
Przecież wcześniej te fragmenty, których teraz chciałeś szukać zostały już zamienione na "|".
Jedno z możliwych rozwiązań to zrobienie kopii zmiennej 'zawod' zanim zostanie pocięta.
Nie ma potrzeby używania 4 dodatkowych zmiennych - wystarczy jedna. Nie ma też potrzeby przypisywania tekstu pustego. Zmienna zadeklarowana jako String jest od razu inicjowana pustym tekstem.

Zuzel2a.xlsm

Pobierz Plik ściągnięto 3 raz(y) 30.93 KB

ws1948 · Wysłany: 07-02-2021, 13:29

Witam,
Dziękuję za pomoc i uwagi wyjaśniające istotę problemu.
Wszystkie formuły działają poprawnie.

Pozdrawiam

Stanisław

umiejead · Wysłany: 07-02-2021, 13:57

Cytat:

oto część kodu:

Tak - na tym można bazować... :angry

.