MS Excel

Téma: Spájanie 2 maker

Zaslal/a robi243 14.3.2018 10:17

Dobry den,

chcel by som pomoct s VBA kodom, som trosku zaciatocnik a potreboval by som spojit 2 prikazy do jedneho makra. Ide to o ze mam nejaku hodnotu vo formate 12345.45 a chcem to previest na cislo a to vo formate 12 345,45. Nejak sa mi podarilo najst 2 makra, jedno na nahradeni tecky carkou a druhe na format..ale neviem ich spojit dohromady. Vie mi niekto poradit?

Dakujem.

Sub skuska_2()
'
' skuska_2 Makro
'

'
Range("F8:F9").Select
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.NumberFormat = "#,##0.00"
End Sub

Zaslat odpověď >

Jiří497(14.3.2018 10:31)#039832

A musí to být makrem?
Nestačí v sešitě použít funkci Nahradit (vyvolanou Ctrl+H)?

V dialogovém okně vyplnit najít . (tečku) a nahradit , (čárka)
stisknout tlačítko "nahradit vše" a je hotovo.

Mně to tvoje makro funguje.citovat

robi243(14.3.2018 10:43)#039834

No nemusi ale bolo by to pohodlnejsie lebo pracujem casto s vystupmi ktore maju taky format a setrilo by to par sekund..pri kazdom novom exceli. No praveze nefunguje lebo kdyz si vsimnes to cislo ma za desetinou carkou 00 a to co tam ma byt realne da pred tu carku.citovat

Jiří497(14.3.2018 11:17)#039836

Takhle to funguje mě - viz příloha

Oprava - funguje to na jedno nebo dvě desetinná místa.

Pokud je číslo 123.456, tak z něj udělá 123456

Přitom klasické dialogové okno to zvládne bez problémů.
Tam bude nějaká finta

Příloha: rar

39836_prevod-textu.rar (13kB, staženo 21x)

citovat

Jiří497(14.3.2018 12:39)#039842

Zkus toto:

Range("A5:A9").Select
Application.ReplaceFormat.NumberFormat = "#,##0.00"
Selection.Replace What:=".", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=True

Problémem je desetinná čárka. Když nahradíš tečku tečkou, tak on si ji sám převede na čárku.

Alespoň u mě to tak je.citovat

robi243(14.3.2018 13:07)#039844

Super!!!! teraz to uz funguje :) fakt ten problem bol asi v carke :) vrela vdaka.

R.citovat

Uživatelské menu

Nejste přihlášen(a)

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.