Új hozzászólás Aktív témák

• #43634 Fferi50 Topikgazda glocker #43633

  Új Válasz 2020-04-17 13:00:28 #43634

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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.

• #43632 Fferi50 Topikgazda glocker #43629

  Új Válasz 2020-04-17 10:46:07 #43632

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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.

• #36536 Delila_1 veterán glocker #36535

  Új Válasz 2017-11-16 06:39:55 #36536

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz glocker #36535 üzenetére

  Szívesen.

• #36528 Delila_1 veterán glocker #36527

  Új Válasz 2017-11-15 15:55:54 #36528

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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.

• #36526 Ghoosty őstag glocker #36524

  Új Válasz 2017-11-15 15:43:37 #36526

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Ghoosty

  őstag

  válasz glocker #36524 üzenetére

  Ha esetleg úgy kényelmesebb, működik még az is, ha a beírt 00123 elé egy aposztrófot raksz. '00123
  Az aposztrófot nem fogja karakternek venni, ha esetleg fontos a karakterszám.

• #36525 Delila_1 veterán glocker #36524

  Új Válasz 2017-11-15 15:29:42 #36525

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz glocker #36524 üzenetére

  A kérdéses cellák formátuma legyen szöveg.

  Vagy az egyéni kategóriában 0000#. Ekkor vezető nullákat ír a beírt szám elé. Számként értékeli, de a megjelenése az ízlésed szerint való lesz.

• #21312 Delila_1 veterán glocker #21311

  Új Válasz 2014-04-19 13:41:11 #21312

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz glocker #21311 üzenetére

  Csak semmi mentegetőzés, vannak ennél sokkal "bénább" kérdések is.

• #21310 Delila_1 veterán glocker #21309

  Új Válasz 2014-04-19 13:31:48 #21310

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz glocker #21309 üzenetére

  Semmi gond, alapbeállítás szerint pipa van a négyzetben, nekem szimpatikusabb anélkül.

  Szívesen.

• #21308 Delila_1 veterán glocker #21307

  Új Válasz 2014-04-19 13:23:59 #21308

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz glocker #21307 üzenetére

  A képen jelzett nyílra kattintva megkapod az alatta behívott ablakot, ahol bejelölheted, hogy az összegzés a részletsorok alatt legyen. Vedd ki a pipát a felső négyzetből.

  

• #21306 Delila_1 veterán glocker #21305

  Új Válasz 2014-04-19 12:25:56 #21306

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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.

• #21304 Delila_1 veterán glocker #21302

  Új Válasz 2014-04-19 10:03:32 #21304

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz glocker #21302 üzenetére

  Az ünnepnapok színezéséhez egyszerűbb a

  =DARABTELI(Ünnepek; A1)>0

  képlet.

• #21303 Delila_1 veterán glocker #21302

  Új Válasz 2014-04-18 19:53:43 #21303

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz glocker #21302 üzenetére

  Örülök, hogy sikerült, szívesen.

• #21301 Delila_1 veterán glocker #21300

  Új Válasz 2014-04-18 19:06:34 #21301

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz glocker #21300 üzenetére

  Az ünnepnapokat tartalmazó területnek nevet adsz, legyen Ünnepek.

  Kijelölöd az első lap dátumait, és megadod a feltételes formázásokat.

  Szombat:
  =HÉT.NAPJA(A1;2)=6

  Vasárnap:
  =HÉT.NAPJA(A1;2)=7

  Ünnepnap:
  =NEM(HIBÁS(FKERES(A1;Ünnepek;1;0)))

Új hozzászólás Aktív témák