Předmět Autor Datum
Napr. funkce CONCATENATE(), ale ta sklada retezce
Jan Fiala 11.03.2009 14:13
Jan Fiala
Jo měnovou kalkulačku asi. Něco takového? prevodnik-men Možná bude někde ke stažení už hotový soubo…
Kráťa 11.03.2009 14:20
Kráťa
nebo rovnou tohle a je to http://www.instaluj.cz/cz/katalog/podnikani-kancel ar/ostatni/prevod-meny/
Kráťa 11.03.2009 14:50
Kráťa
A je nutné, aby byl název měny v jedné buňce společně s množstvím? Jít to půjde, ale podle mne tím z…
Brnys 11.03.2009 14:28
Brnys
Pokud je zobrazeni meny dano jen formatem bunky, potom je mozno menit format bunek udalostni procedu…
navstevnik 11.03.2009 15:03
navstevnik
Děkuji za odpovědi, ještě jeden menší dotaz, který se týká VBA. Option Explicit Private Sub Worksh…
Dieesels 11.03.2009 18:24
Dieesels
odpoved jsi jiz dostal na poradne PC-Help poslední
navstevnik 11.03.2009 21:46
navstevnik

A je nutné, aby byl název měny v jedné buňce společně s množstvím? Jít to půjde, ale podle mne tím zabiješ všechny pokusy o případné matematické operace, nebylo by lepší použít v jedné buňce množství a ve druhé název a pak si je hezky graficky (zarovnáním, orámováním) hodit k sobě?

edit: A nebo alespoň zdrojová data mít v oddělených buňkách a cílová data spojit pomocí =CONCATENATE, jak píše p. Fiala

Pokud je zobrazeni meny dano jen formatem bunky, potom je mozno menit format bunek udalostni procedurou na listu Sub Worksheet_Change, mena (EUR,USD,....) je v B1, oblast kde je oblast s hodnotami meny, procedura je priklad mozneho reseni:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$1" Then Exit Sub
Dim kde As Range
Set kde = Range("a2:a4,c2:c4")
kde.NumberFormat = "#,##0"" " & Target.Value & """"
End Sub

Děkuji za odpovědi, ještě jeden menší dotaz, který se týká VBA.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$1" Then Exit Sub
Dim kde As Range
Set kde = Range("a2:a4,c2:c4")
kde.NumberFormat = "#,##0"" " & Target.Value & """"
End Sub

...kde doplním odkaz na jiný list, např na List1 hodnota $B$1

Zpět do poradny Odpovědět na původní otázku Nahoru