< návrat zpět
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
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: 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