< návrat zpět

MS Excel


Téma: Součet různých měn rss

Zaslal/a 10.1.2020 12:59

Hezký den
Mohl by prosím někdo poradit jak sečíst hodnoty o různých měnách? Kdy dolar bude 1,2 €
Buňky mají Formát-Účetnický.
Zkoušel jsem získat nějaké info o buňkách fcí POLÍČKO, ale to mi vrací stejný výsledek jak pro euro tak pro dolar.
pokud by to šlo tak bez VBA, pokud není jiná možnost musel bych dodat jiný soubor.
Excel 2016 CZ

Díky V.

edit: poloha dolarových a eurových buněk se může měnit
tzn. že nejlepší by byla možnost jak zjistit která je v eurech a která v dolarech
edit2: ještě asi důležitá poznámka, mezi sloupci se mohou nacházet další sloupce s textem

Příloha: xlsx45533_meny.xlsx (9kB, staženo 12x)
Zaslat odpověď >

#045534
avatar
A kedy bol 1$=1,2 €? Alebo už bude?citovat
#045535
avatar
Samozřejmě obráceně, nicméně to je to co je v tomto případě to nejméně podstatné.citovat
#045536
avatar
Co vložit přílohu?citovat
#045537
avatar
Přílohu jsem přiložil, přikládám i novou se sloupci s textem
Příloha: xlsx45537_meny_1.xlsx.xlsx (9kB, staženo 6x)
citovat
#045538
avatar
=sxxx($A$1;A1)

Táto bunka A1 musí byť v €.
Inak hovoril si iba o dvoch menách, či?
Příloha: zip45538_kopia-45537_meny_1.zip (12kB, staženo 13x)
citovat
#045539
avatar
Alebo aj takto, ale je vhodné tam dať aj to makro.
Patent od Vovku. 10
Příloha: xlsx45539_kopia-45537_meny.xlsx (10kB, staženo 6x)
citovat
#045540
avatar
Díky moc za ochotu

marjankaj napsal/a:

=sxxx($A$1;A1)
Táto bunka A1 musí byť v €.

omlouvám se ale toto jsem vůbec nepobral

marjankaj napsal/a:

Inak hovoril si iba o dvoch menách, či?Příloha: 45538_kopia-45537_meny_1.zip (12kB, staženo 6x)

ano, jedná se o "€" a "$",
příloha mi nejde stáhnout, bohužel tedy nemůžu vyzkoušet

marjankaj napsal/a:

Alebo aj takto, ale je vhodné tam dať aj to makro.
Patent od Vovku.

postup z tohoto nemohu použít, protože není možnost použít pomocné sloučené řádky, resp. možnost je vždy, ale při větším počtu řádek...??
Napadlo mě jestli by nebyla možnost nějak dostat data z řádku zvlášť pro € a zvlášť pro $. Našel jsem totoFunction CellText(r As Range) As String()
Dim asOut() As String
Dim i As Long
Dim j As Long

ReDim asOut(1 To r.Rows.Count, 1 To r.Columns.Count)

For i = 1 To r.Rows.Count
For j = 1 To r.Columns.Count
asOut(i, j) = r(i, j).Text
Next j
Next i

CellText = asOut
End Function

kódu nerozumím, VBA neovládám takže jen podle návodu vložil do Modulu
formát pro € ručně nastavil na Měna €123, pro $ na Měna $123 a použil vzorec
=SOUČIN.SKALÁRNÍ((ZLEVA(CellText(C2:D2);1)="€")*C2:D2)
tento vzorec mi spočítá to co potřebuji pouze v případě,kdy v oblasti součtu nejsou sloupce s textem.
Zkoušel jsem i pro původní formát použít ve vzorci ZPRAVA, bohužel s chybou.
Další věc která mě napadla, bylo vzorcem do pomocných sloupců získat hodnoty ze sloupců A:L ale s vlastním formátem a místo textu nulu.
Nevím jak dostat vzorcem do buňky vlastní formát
Přikládám novou přílohu pro představu.
Příloha: zip45540_meny2.zip (15kB, staženo 1x)
citovat
#045542
avatar
Našel jsem pro mě asi nejpoužitelnější způsob:
do Modulu jsem vložil tento kód
Function GetFormat(Cell As Range) As String
GetFormat = Cell.NumberFormat
End Function

použil pomocné sloupce se vzorcem =JE.ČISLO(HLEDAT("€";getformat(C13)))
a pro výpočet € vzorec
=SUMIF(M13:V13;PRAVDA;C13:L13)
pro výpočet $
=SUMIF(M13:V13;NEPRAVDA;C13:L13)
viz příloha
Příloha: zip45542_meny2.zip (16kB, staženo 3x)
citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

Oblíbený formulář Faktura byl vylepšen a rozšířen. Formulář faktura III
Více se dočtete zde.

Aktivní diskuse

Jak vypsat určité hodnoty ze sloupce

elninoslov • 20.2. 1:03

Jak vypsat určité hodnoty ze sloupce

lugr • 19.2. 16:33

Jak vypsat určité hodnoty ze sloupce

Poseidon • 19.2. 14:46

PQ nad *.xlsb suborom, excel tables

AL • 19.2. 13:45

PQ nad *.xlsb suborom, excel tables

elninoslov • 19.2. 13:17

Datumovka-DatePicker

veny • 19.2. 13:08

Datumovka-DatePicker

veny • 19.2. 13:07