A kedy bol 1$=1,2 €? Alebo už bude?citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Součet různých měn
MS Excel
Téma: Součet různých měn 
Zaslal/a veny 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: 
45533_meny.xlsx (9kB, staženo 29x)
45533_meny.xlsx (9kB, staženo 29x)Samozřejmě obráceně, nicméně to je to co je v tomto případě to nejméně podstatné.citovat
Přílohu jsem přiložil, přikládám i novou se sloupci s textem
Příloha: 45537_meny_1.xlsx.xlsx (9kB, staženo 35x)
citovat45537_meny_1.xlsx.xlsx (9kB, staženo 35x)=sxxx($A$1;A1)
Táto bunka A1 musí byť v €.
Inak hovoril si iba o dvoch menách, či?
Táto bunka A1 musí byť v €.
Inak hovoril si iba o dvoch menách, či?
Příloha: 
45538_kopia-45537_meny_1.zip (12kB, staženo 31x)
citovat45538_kopia-45537_meny_1.zip (12kB, staženo 31x)Alebo aj takto, ale je vhodné tam dať aj to makro.
Patent od Vovku.
Patent od Vovku.
Příloha: 45539_kopia-45537_meny.xlsx (10kB, staženo 26x)
citovat45539_kopia-45537_meny.xlsx (10kB, staženo 26x)Díky moc za ochotu
omlouvám se ale toto jsem vůbec nepobral
ano, jedná se o "€" a "$",
příloha mi nejde stáhnout, bohužel tedy nemůžu vyzkoušet
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.
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: 45540_meny2.zip (15kB, staženo 18x)
citovat45540_meny2.zip (15kB, staženo 18x)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
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: 45542_meny2.zip (16kB, staženo 24x)
citovat45542_meny2.zip (16kB, staženo 24x)Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články