Hirdetés
- Kormányok / autós szimulátorok topikja
- VR topik
- Drágul a Raspberry Pi, de lesz egy új, olcsó verzió
- ThinkPad (NEM IdeaPad)
- Milyen notebookot vegyek?
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Nem indul és mi a baja a gépemnek topik
- Milyen monitort vegyek?
- Azonnali informatikai kérdések órája
-
PROHARDVER!
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
Capella
#41826
üzenetére
Szia!
Sajnos a makró az angol nyelvre és így az angol számformátumra van "kihegyezve", ezért a pontot úgy értelmezi három szám után, mint ezres elválasztó, tehát akként fogja értelmezni a cserét, hogy magyar elválasztójelre (szóköz) cseréli le.
Egy segédoszlop beiktatásával a Substitute (Helyette) képlet használatával és némi kis furfanggal megoldható a dolog:Selection.Offset(0, 1).Formula = "=Substitute(A1,""."","","")*1"
Ez a kijelölt oszlop mellé képlettel átalakítja számmá a cellaértéket.
Utána
Selection.Offset(0,1).Value=Selection.Offset(0,1).Value 'beillesztés értékként
Selection.Value=Selection.Offset(0,1).Value 'az eredeti helyre másoljuk.
A segédoszlopot ki is törölheted.
Ezzel a módszerrel oszlopról-oszlopra tudod a számokat átalakítani.
Természetesen működik konkrét címmel megadott tartományra is.Pl Range("A2:A20").Offset(0,1)…. a B2:B20 cellákba másolja a képletet.Üdv.
Új hozzászólás Aktív témák
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- Játékkulcsok ! : PC Steam, EA App, Ubisoft, Windows és egyéb játékok
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Humble szökevények 500-2500Ft
- Gamer PC-Számítógép! Csere-Beszámítás! R5 8600G / 6700XT 12GB / 16GB DDR5 / 512 SSD + 2TB HDD!
- Akció! Bontatlan Sandisk SSD Plus 2TB
- REFURBISHED és ÚJ - HP Thunderbolt Dock G2 230W with combo cable (3TR87AA)
- Apple Watch Series 11 46mm Jet Black BONTATLAN
- GYÖNYÖRŰ iPhone 13 mini 128GB Starlight -1 ÉV GARANCIA -Kártyafüggetlen, MS3892
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: Central PC számítógép és laptop szerviz - Pécs
Város: Pécs

Fferi50

