Forum » Pomoč in nasveti » Čšž makro v excelu
Čšž makro v excelu

zemfy ::
Ola!
Zanima me, če ima kdo makro v excelu za spreminjanje ;[\ v čšž. Namreč uporabljam neke text datoteke ki so narejeni v dos aplikaciji in jih nato posredujem v excelu in se mi ne da več vsako posebej popravljati z ukazom replace all...
Zanima me, če ima kdo makro v excelu za spreminjanje ;[\ v čšž. Namreč uporabljam neke text datoteke ki so narejeni v dos aplikaciji in jih nato posredujem v excelu in se mi ne da več vsako posebej popravljati z ukazom replace all...
- polepsal: Gandalfar ()

tratto ::
Poskusi tole:
Sub Macro1()
Cells.Select
Selection.Replace What:=";", Replacement:="č", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Cells.Select
Selection.Replace What:="[", Replacement:="š", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Cells.Select
Selection.Replace What:="\", Replacement:="ž", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("A1").Select
End Sub
Potem pa si naredi bližnjico na gumb v orodni vrstici.
Sub Macro1()
Cells.Select
Selection.Replace What:=";", Replacement:="č", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Cells.Select
Selection.Replace What:="[", Replacement:="š", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Cells.Select
Selection.Replace What:="\", Replacement:="ž", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("A1").Select
End Sub
Potem pa si naredi bližnjico na gumb v orodni vrstici.
Vredno ogleda ...
Tema | Ogledi | Zadnje sporočilo | |
---|---|---|---|
Tema | Ogledi | Zadnje sporočilo | |
» | [Excel]Kako izvleči vrednost?Oddelek: Programiranje | 3841 (3564) | Mobidick |
» | Word 2003 VBA problemOddelek: Programska oprema | 1066 (953) | mimax |
» | Makro v worduOddelek: Pomoč in nasveti | 2113 (1827) | vvisoc_1 |
» | Microsoft Excel - merged cells/insert row ...Oddelek: Programska oprema | 1183 (1132) | Tutankhamun |
» | e107 spletni portal težave in rešitve...Oddelek: Izdelava spletišč | 2124 (1449) | pitagora |