-
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
glocker #43633 üzenetére
Szia!
Nézd meg a következő makrót, ami az aktív munkalapra másolja a megnyitni kívánt fájl adatait az első sortól kezdődően. Utána a munkalapot egy új excel fájlba menti el, de az eredményt láthatod a munkalapon is. Az elmentett fájlt már megnyithatod.
A makrót egyenlőre egy üres munkafüzetbe másold be egy modulba és mentsd el makróbarátként ezt a munkafüzetedet. (Alt+F11 - Insert menü - Module)Sub beolvaso()
Dim fs As Integer, fnev As String, bestr As String, kistr As Variant, x As Long, valjel As String
x = 1
fs = FreeFile()
fnev = "C:\Users\user\Downloads\makroteszt\Munka2.csv" ' ide írd a saját fájlod nevét
ActiveSheet.UsedRange.ClearContents 'kitöröljük ami a lapon van
Open fnev For Input Access Read As #fs
Do While Not EOF(1)
Line Input #1, bestr
If x = 1 Then 'megállapítjuk az elválasztó jelet
If InStr(bestr, ";") > 0 Then
valjel = ";"
Else
If InStr(bestr, vbTab) > 0 Then
valjel = vbTab
Else
If InStr(bestr, ",") > 0 Then
valjel = ","
End If
End If
End If
If valjel = "" Then valjel = ";"
End If
kistr = Split(bestr, valjel)
Range(Cells(x, 1), Cells(x, UBound(kistr) + 1)).Value = kistr
x = x + 1
Loop
Close #1
'A beolvasott fájlt elmentjük xlsx formátumban --ezeket a sorokat ki is törölheted
ActiveSheet.Copy 'de akkor magadnak kell menteni a munkalapot
ActiveWorkbook.SaveAs "C:\Users\user\Downloads\makroteszt\Munka22.xlsx" 'ide írod a saját neved
ActiveWorkbook.Close False
End Sub
Természetesen megoldható az is, hogy a beolvasandó fájlt választani lehessen a szokásos módon.
Ha bármi gondod keletkezik, írj, akár priviben is.
Üdv. -
Fferi50
Topikgazda
válasz
glocker #43629 üzenetére
Szia!
Ha megváltoztatod a kiterjesztést txt-re, akkor megnyitáskor felajánlja a szövegből importálást (lsz. olvass tovább).
Megadod, hogy tagolt, bejelölöd a határoló jelet, majd utána kijelölöd az összes oszlopot és bejelölöd szövegnek.
Ezután Befejezés.
Ha mégis lenne olyan oszlop, ahol számokra van szükséged, akkor azokat megszorzod 1-el a következők szerint: 1 cellába beírod 1. Ezután Ctr+c (másolás). Kijelölöd az oszlopot - irányított beillesztés - művelet - szorzás.
Ennél egyszerűbb makró nélkül szerintem nincs.
Makróból megoldható, hogy a beolvasáskor az eredeti formátum megmaradjon.Üdv.
-
Delila_1
veterán
válasz
glocker #36527 üzenetére
Sajnos az Excel alkotói túlságosan segítőkészek, ami sok galibát okoz. Például egy felsoroláshoz beírsz 1.1-et, mire azonnal átalakítja kérdés nélkül 01.jan-ra, mert arra tippel, hogy dátumot szerettél volna megadni.
Azért javasoltam a 0000#-os formátumot, mert bár megadod, hogy bizonyos cellák adatait szövegként értelmezze, ha az a fehérnemű van rajta, mégis számértékként rögzíti.
-
Delila_1
veterán
válasz
glocker #21305 üzenetére
Időnként bosszantóan önállóskodik az Excel. A fejlesztők arra törekedtek, hogy maximális mértékben kiszolgálják a felhasználókat. Ezt persze nem lehet végrehajtani, hiszen mindenki a saját céljaira akarja használni a programot. Nálad valamiért szöveg formátumra átíráskor a cella. Meg kell adnod az általános cellaformátumot, majd beírnod az új képletet. Nem vagyok biztos benne, hogy ettől megjavul ez a hiba.
Tagolásnál a legkisebb egységgel kezdj, ezek az azonos hónap adatait tartalmazó sorok. Az első kép szerint kijelölöd a sorokat, majd csoportba foglalod (egyenként minden hónapnál). Látod, a hónap nevét nem vettem bele a kijelölésbe.
Következő lépés az első félév csoportosítása, ami a 4 – 20. sorig tart. Utoljára a 3 – utolsó, adatot tartalmazó sorok csoportosítása következik a teljes évhez.
Szerk.: nem gondoltam, hogy ilyen nagyok lesznek a képek.
Új hozzászólás Aktív témák
- Kínai és egyéb olcsó órák topikja
- Mobil flották
- NVIDIA GeForce RTX 4060 / 4070 S/Ti/TiS (AD104/103)
- Samsung Galaxy S23 Ultra - non plus ultra
- Sorozatok
- A fociról könnyedén, egy baráti társaságban
- Spórolós topik
- Okos Otthon / Smart Home
- Sweet.tv - internetes TV
- Nagyon nem szokványos módon ment tönkre egy ASML gép Kínában…
- További aktív témák...
- Honor 90 512GB, Kártyafüggetlen, 1 Év Garanciával
- Game Pass Ultimate előfizetés azonnal, problémamentesen, méghozzá OLCSÓN! Immáron 8 éve!
- Apple iPhone 15 128GB,Újszerű,Dobozával, 12 hónap garanciával
- GYÖNYÖRŰ iPhone 11 64GB Red -1 ÉV GARANCIA - Kártyafüggetlen, MS2190, 100% Akkumulátor
- PS Plus előfizetések kedvező áron
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: Promenade Publishing House Kft.
Város: Budapest