-
Fototrend
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
Fferi50
Topikgazda
válasz
vakondka
#51262
üzenetére
Szia!
Ez nem egy sima makró (Sub), hanem egy függvény (Function), ezért nem látod a makrók között. A függvényed egy bemeneti értéket vár - ahogyan látom ékezetes karaktereket tartalmazó szöveget - és azt alakítja át.
Meghívása VBA-ban egy olyan makróból történhet, amelyikben átadod az átalakítandó szöveget:
Pl. Sub hivo()
msgbox RemoveAccents(szöveg)
End Sub
szöveg helyére írod az átalakítandó szöveget.
Használható munkalapon is, ugyanúgy, mint egy beépített függvény.
A1-ben van az átalakítandó szöveg, akkor Pl. B1 képlete: =RemoveAccents(A1)
Még egy megjegyzés - Sub is várhat paramétert, akkor azt sem látod a makrók között, hiszen a bemeneti értéket meg kell adni a híváskor.
Üdv. -
AvLav
csendes tag
válasz
vakondka
#4376
üzenetére
Szia!
Ha van egy üres munkalapod, akkor:
adatok -> külső adatok importálása -> adatok beolvasása.
Megkeresed a fájlt és megnyitod.
Bejön a szövegbeolvasó varázsló, itt a tagoltat kell választani, aztán <tovább>.
Itt be lehet állítani mik a határoló jelek, (neked azt hiszem az egyéb: ; kell) <tovább>
kijelölöd a cikkszám oszlopot, átállítod szövegre, aztán <bejezés>!!!
Így elvileg nem szedi ki a nullákat az elejéről. -
Delila_1
veterán
válasz
vakondka
#4374
üzenetére
Egy új oszlopot formázz meg a formázás egyéni kategóriájában így:
00000###
Az új oszlopban hivatkozz a cikkszámot tartalmazó oszlopra:
=ÉRTÉK(A1) – ha az A oszlopban vannak a cikkszámaid.
A függvényt lemásolod, és az új oszlopot irányítottan, értékként ráillesztheted az eredeti cikkszámos oszlopodra. Az új oszlopot ki is törölheted.
Új hozzászólás Aktív témák
- MS SQL Server 2016, 2017, 2019
- The Elder Scrolls Online Imperial Collector s Edition
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Fferi50