GoldenLine
Zaloguj się
Witold Sobków

Witold Sobków Problem Analyst

Temat: Instrukcja warunkowa rozpoznająca walutę :)

Witam.
Jak poprosić Excela o rozpoznanie waluty :) ?

IF(A1 to €; A1 * 4; IF(A1 to $; A1 * 3; A1 * 5)) <- (A1 * 5 wyraża funta)

Funkcja ma sprawdzić kolejno czy A1 to euro -> dolar -> funt. W przypadku euro chciałbym aby pomnożyła mi ono *4 i zwróciła wartość w zł :) i tak analogicznie z dolarem i funtem.

Dziękuję z góry za pomoc!
Link do wypowiedziLink
Tomasz Gryzio

Tomasz Gryzio Dyrektor
zarządzający/Trener/
Konsultant - It
School

Temat: Instrukcja warunkowa rozpoznająca walutę :)

Witam,
bez VBA niestety się nie obędzie.

Wstawiwszy następujący kod funkcji do modułu danego skoroszytu (Alt+F11 -> VBAProject(Zeszyt1)/Modules/Module1):



Function fwaluta(rKom As Range)

On Error GoTo Err

    fwaluta = rKom.NumberFormat

Exit Function

Err:

    fwaluta = "Blad"

End Function


w arkuszu dostajemy możliwość użycia funkcji fwaluta zwracającej tekst będący formatem liczbowym danej komórki, np.:

A1: $1,00 <- komórka z formatem walutowym, z dwoma miejscami po przecinku z symbolem $Angielski(Stany zjedonoczone)
B1: =fwaluta(A1) <- w wyniku daje [$$-409]#,##0.00 - nie pozostaje nic innego jak wykorzystanie zwróconej wartości do warunku w jeżeli()

Pozdrawiam!
Link do wypowiedziLink
« Wróć do tematów
Odpowiedz

Podobne tematy


Następna dyskusja:

Instrukcja If i kilka warto...




Wyślij zaproszenie do
Anuluj