- One mobilszolgáltatások
- 65 órányi zenét ígér az Audio-Technica új TWS fülese
- Yettel topik
- Samsung Galaxy Watch7 - kötelező kör
- iPhone topik
- Csíkszélességben verné az Exynos 2600 a Snapdragon 8 Elite 2-t
- Samsung Galaxy A53 5G - kevesebbet többért
- Sony Xperia 1 V - kizárólag igényeseknek
- Milyen okostelefont vegyek?
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
-
Mobilarena
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
-
Fferi50
Topikgazda
válasz
lordring
#46186
üzenetére
Szia!
Ezek szerint a dátum oszlop szövegformátumban van.
Kellene egy segédoszlop, amibe a dátumot dátumfüggvénnyel átalakítva teszed bele, majd utána értékké alakítod.
Ha valóban aposztróf (') van előtte - utána a cellában, akkor például ez a képlet jó lehet:=DÁTUMÉRTÉK(BAL(A1;10))
(mivel az első aposztrófot formátumkódnak tekinti).
Vagy:=DÁTUM(BAL(A1;4);KÖZÉP(A1;6;2);KÖZÉP(A1;9;2))
Ezután a segédoszlopot is belevéve meg tudod csinálni a kimutatást.
Üdv. -
-
Fferi50
Topikgazda
válasz
lordring
#42286
üzenetére
Szia!
Az FKERES függvény segít(het) neked.
Én csinálnék egy "fő" munkalapot, ahova az összes adatot összegyűjteném:=FKERES("Összesen:";Munkalapnév!B:C;2;0)
Persze jó lenne, ha a munkalapok neve is valamilyen rendszert követne, mert akkor könnyebb lenne a képletet másolni.
Vagy a munkalapneveket beírni egy oszlopba és utána az=FKERES("Összesen:"; Indirekt(D1 & "!B:C");2;0)
képlet már húzható lefelé
Üdv. -
Delila_1
veterán
válasz
lordring
#3363
üzenetére
A makró egyenként behívja az "utvonal" változó szerinti könyvtárban lévő csv-ket, elvégzi a módosításokat, amiket adsz neki, majd xls kiterjesztéssel menti ugyanoda, bezárja mindkét tip. fájlt. Ha nem akarod bezáratni, töröld a zárás sorát. Azért írtam bele, mert 20-30 (-szor 2) fájl elég sok és zavaró egyszerre megnyitva.
Sub csv()
Const utvonal = "C:\Documents and Settings\KZoli.TIGER-TOOLS\Asztal\"
Dim FN As String, WB As Workbook
ChDir utvonal
FN = Dir(utvonal & "*.csv", vbNormal)
Do
If FN <> "." And FN <> ".." Then
Set WB = Workbooks.Add
Workbooks.Open Filename:=FN
nev = Left(FN, Len(FN) - 3) & "xls"
' Ide írd be, amit az xls-ben el akarsz végeztetni
ActiveWorkbook.SaveAs Filename:=utvonal & nev, FileFormat:=xlNormal
WB.Close False 'Ez azonnal be is zárja a változatlan csv-t.
ActiveWindow.Close 'Ez meg a csv-hez képest módosított xls-t
End If
FN = Dir()
Loop Until FN = ""
End Sub -
Delila_1
veterán
-
-
-
Delila_1
veterán
válasz
lordring
#2574
üzenetére
Jobban megnéztem a makrómat, és bőbeszédűnek találtam.
Elegendő ennyi is:
Sub Érték_beillesztése()
' Billentyűparancs: Ctrl+e
Selection.PasteSpecial Paste:=xlValues ' Ez a sor illeszti be az értéket
Application.CutCopyMode = False ' Megszünteti a a másolási terület jelöltségét
End Sub
Az ' (aposztróf) utáni szövegek megjegyzések, nem játszanak szerepet a makró működésében. -
Delila_1
veterán
válasz
lordring
#2574
üzenetére
Az én makróm így néz ki:
Sub Érték_beillesztése()
' Billentyűparancs: Ctrl+e
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
End Sub
De hiába másolnád be, a bill.parancsot csak az új makró varázslóban tudod megadni. Tehát varázsolj, add meg az elején a bill.parancsot, és ha nem így néz ki az elkészült makród, javítsd át eszerint.
[Szerkesztve] -
Delila_1
veterán
válasz
lordring
#2574
üzenetére
Billentyűparancs nincs, de indíts egy új makrórögzítést, válaszd az Egyéni makró-füzetben opciót, rendelj hozzá bill. parancsot, és vezesd végig az értékként való beillesztést.
Minden füzetben működik majd.
Az felvétel indítása előtt jelöld ki a másolandó területet, és állj oda, ahova az értékeket be akarod illeszteni. Ezután jöhet a rögzítés. -
lapa
veterán
válasz
lordring
#1720
üzenetére
ott az elején azt mondom neki, hogy ha mindhárom cella üres, akkor ''mindüres'' szöveget adjon vissza. ha legalább egy cellában van valami, akkor van az, amit te írtál.
hoppá a fül referencia kimaradt:
=ha(és(üres(munka1!i3);üres(munka1!j3);üres(munka1!k3));''mindüres'';HA((DARABTELI(Munka1!I3:K3;''Igen'')>1);''Igen'';''Nem''))
hoppá2: ha már itt vagyunk van egy fölös zárójel:
=ha(és(üres(munka1!i3);üres(munka1!j3);üres(munka1!k3));''mindüres'';HA(DARABTELI(Munka1!I3:K3;''Igen'')>1;''Igen'';''Nem''))
[Szerkesztve]
A testreszabásnál kell hozzáadni a menühöz. 
Új hozzászólás Aktív témák
Hirdetés
Fferi50- Milyen billentyűzetet vegyek?
- BestBuy topik
- Lexus, Toyota topik
- LEGO klub
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- ASRock lapok általában
- One otthoni szolgáltatások (TV, internet, telefon)
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Kerékpárosok, bringások ide!
- Spórolós topik
- További aktív témák...
- Kaspersky, McAfee, Norton, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Új, bontatlan World of Warcraft gyűjtői kiadások
- Sea of Thieves Premium Edition és Egyéb Játékkulcsok.
- Assassin's Creed Shadows Collector's Edition PC
- Eladó steam/ubisoft/EA/stb. kulcsok Bank/Revolut/Wise (EUR, USD, crypto OK)
- BESZÁMÍTÁS! 4TB Samsung 870 EVO SATA SSD meghajtó garanciával hibátlan működéssel
- Apple iPhone 12 64GB, Kártyafüggetlen, 1 Év Garanciával
- PS5 konzolod megvásároljuk: Budapest, Kecskemét, Szeged, Debrecen vagy akár GLS futárt küldünk!
- ÁRGARANCIA!Épített KomPhone Ryzen 7 7800X3D 32/64GB RAM RX 7800 XT 16GB GAMER PC termékbeszámítással
- BESZÁMÍTÁS! Gigabyte A620M R5 7600 32GB DDR4 512GB SSD RTX 5060 Ti 16GB Zalman i3 NEO Enermax 650W
Állásajánlatok
Cég: PC Trade Systems Kft.
Város: Szeged
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest