• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Formát měny

Zaslal/a LeslieBrown 26.2.2014 13:17

Ahoj,

mám report, který mám napojený na webovou stránku (formou Data --> Importovat z webu a pak už jenom refreshuji pripojení které v reportu je na databázi).

Natrefil jsem na problém, že na webu se formát měny zobrazuje jako "Kč15,548.25" a když to stáhnu, tak mě to excel není schopen rozeznat, takže jsem si nastavil níže uvedené makro.

Range("F2:H2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.NumberFormat = "0.00 [$CZK]"
Selection.Replace What:="Kč", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Selection.Replace What:=",", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Selection.Replace What:=".**", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

Může mi prosím někdo poradit, jak mám ten kód přepsat, aby se mě stažený formát "Kč15,548.25" naformátoval na "15 548,25 CZK" protože když použiju svůj kód, tak odstraním i desetinné hodnoty a to nechci.

díky moc

Jméno
Kontrola
Text
	Ukázka

---

Palooo(26.2.2014 14:07)#018027

mate to zle napisane
zamente:
"Kč" za ""
"," za ""
"." za ","

a nakoniec naformatujte danu oblastcitovat

lubo(26.2.2014 19:58)#018029

Třeba tak:


Range("F2:H2").Select
With Range(Selection, Selection.End(xlDown))
.Replace What:="Kč", Replacement:="", LookAt:=xlPart
.NumberFormat = "#,##0.00 [$CZK]"
.Formula = .Value
End With


(Ve formátu chybí to oddělení tisíců)citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse