Sub MenaEUR()
If TypeName(Selection) = "Range" Then Selection.NumberFormat = "#,##0.00 [$€]"
End Subcitovat
Zaslal/a Imh0tep 2.6.2020 10:40
Ahoj,
rád bych měl v každém sešitu excelu standardní tlačítko pro změnu čísla na měnu. Po kliknutí na toto tlačítko by se změnilo číslo na měnu ve formátu "číslo" € (např. 4,55 => click => 4,55 €). Analogicky si pak udělám tlačítko na změnu měny na CZK, případně zpátky na obecné číslo.
Vlastní tlačítko na pásu karet vytvořím, ale jek správně přiřadit makro netuším. Zkoušel jsem je dávat do modulu, uložit, ale bohužel rozbalovací menu s makry dostupnými pro přiřazení je stále prázdné.
Může mě prosím někdo nakopnout? Díval jsem se na postup, který mi před časem vytvořil elnino v tématu "Hypertextový odkaz v outlooku", ale zřejmě se zprovoznění v excelu od outlooku poněkud liší.
Private Sub mena()
Selection.NumberFormat = "#,##0.00 [$€]"
End Sub
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.