Pozdravljeni!
Pišem makro, ki bi mi v imenih datotek šumnike zamenjal s c, s , z...
Algoritem mi ne dela težav, imam pa težave pri preverjanju pogoja za črko č.
Za to ne najdem pripadajoče kode zadaj, križa se s črko E in krativcem zgoraj. Se da kako nastaviti, da spremenim kotno tabelo, recimo v UTF8 ali kaj podobnega?
Kako torej naj preverjam, če je v imenu mala oz. velika črka č?
Šumniki in ASCII tabela
Šumniki in ASCII tabela
Življenje je enostavno, če poznaš "The Secret".
GoldZ
GoldZ
Pozdravljeni,
Posredujem vam kar odgovor na podobno vprašanje iz starega foruma:
Znak ~ je Excelov poseben znak in ima zanj poseben pomen. Če želite v Excelu najti vse znake ~ potem morate v iskalno polje zapisati ~~ (2 krat!).
Konkretno v vašem primeru pomeni, da če želite zamenjati znake '~' s 'č', potem napišite Išči '~~', zamenjaj z 'č'.
Spodaj vam prilagam še makro, ki vam bo zamenjal vse znake v stari DOS kodni tabeli z WIN1250 (poženite makro DOS_2_WIN1250):
Posredujem vam kar odgovor na podobno vprašanje iz starega foruma:
Znak ~ je Excelov poseben znak in ima zanj poseben pomen. Če želite v Excelu najti vse znake ~ potem morate v iskalno polje zapisati ~~ (2 krat!).
Konkretno v vašem primeru pomeni, da če želite zamenjati znake '~' s 'č', potem napišite Išči '~~', zamenjaj z 'č'.
Spodaj vam prilagam še makro, ki vam bo zamenjal vse znake v stari DOS kodni tabeli z WIN1250 (poženite makro DOS_2_WIN1250):
Koda: Izberi vse
' Avtor: Matjaž Prtenjak
Public Sub ConvertAscii(ByVal AsciiFrom As Integer, ByVal AsciiTo As Integer)
Selection.Replace What:="~" & Chr$(AsciiFrom), Replacement:=Chr$(AsciiTo), _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
End Sub
' Avtor: Matjaž Prtenjak
Public Sub DOS_2_WIN1250()
ConvertAscii 91, 138
ConvertAscii 123, 154
ConvertAscii 94, 200
ConvertAscii 126, 232
ConvertAscii 64, 142
ConvertAscii 96, 158
ConvertAscii 93, 198
ConvertAscii 125, 230
ConvertAscii 92, 208
ConvertAscii 124, 240
End Sub
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
VELIKA HVALA!!!
Ta makro je odgovor na kopico podobnih problemov!!
Opažam, da sedaj, ko sem Vaš makro zagnal in vmes ugasnil Excel ter VBA, zadeva še vedno lepo dela.
Če pa že ne bo, pa seveda prej prožim
Ta makro je odgovor na kopico podobnih problemov!!
Opažam, da sedaj, ko sem Vaš makro zagnal in vmes ugasnil Excel ter VBA, zadeva še vedno lepo dela.
Če pa že ne bo, pa seveda prej prožim
Koda: Izberi vse
DOS_2_WIN1250()
Življenje je enostavno, če poznaš "The Secret".
GoldZ
GoldZ
Zaprl sem Excel, VBA urejevalnik...
Vse skupaj znova zagnal in potem pognal moj makro... lepo je delovalo...
Torej, kar hočem reči je, da je bilo potrebn vaš makro zagnati samo enkrat.
Pa da ne pozabim... zadeva dela, če so regionalne nastavitve Slovenščina
Vse skupaj znova zagnal in potem pognal moj makro... lepo je delovalo...
Torej, kar hočem reči je, da je bilo potrebn vaš makro zagnati samo enkrat.
Pa da ne pozabim... zadeva dela, če so regionalne nastavitve Slovenščina
Language for non-UNICODE Programs
Življenje je enostavno, če poznaš "The Secret".
GoldZ
GoldZ