| Jak zsumować osobno kwoty podane w różnych walutach? |
|
Problem: Dokonuję rejestru swoich transakcji, które prowadzę w różnych krajach. Potrzebuję zsumować osobno kwoty transakcji dla różnych walut. Rozwiązanie: Możesz skorzystać np. z takiej funkcji własnej, która wyciąga format walutowy z kwoty, a następnie zastosować funkcję SUMA.JEŻELI lub SUMA.ILOCZYNÓW ![]() Function SymbolWaluty(Komorka As Range) As String Dim sTekst As String Dim sSeparator As String Dim sZnak As String Dim iLicznik As Integer 'Funkcja wyciąga z tekstu pojedyncze znaki, które nie są cyframi. 'Funkcja pomija także znak spacji i separator dziesiętny sTekst = Trim(Komorka.Text) sSeparator = Application.DecimalSeparator For iLicznik = 1 To Len(sTekst) sZnak = Mid(sTekst, iLicznik, 1) If Not IsNumeric(sZnak) Then If sZnak <> sSeparator And sZnak <> Space(1) Then SymbolWaluty = SymbolWaluty & sZnak End If End If Next iLicznik End Function |
|
| Zmieniony ( Czwartek, 01. Lipiec 2010 20:12 ) |
