- Magisk
- One mobilszolgáltatások
- iPhone topik
- Íme az új Android Auto!
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Szívós, szép és kitartó az új OnePlus óra
- Samsung Galaxy Fit 3 - keveset, de jól
- Honor Magic6 Pro - kör közepén számok
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Nothing Phone (3a) és (3a) Pro - az ügyes meg sasszemű
-
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
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Kaspersky, McAfee, Norton, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- AKCIÓ! ASUS TUF GAMING X670E-PLUS WiFi alaplap garanciával hibátlan működéssel
- Samsung Galaxy Watch Ultra
- HP Probook 650 G4 15,6 i5-8350u 8. gen. GYÁRI MAGYAR VILÁGÍTÓ BILL!!!
- Telefon felváráslás!! Xiaomi Redmi Note 11, Xiaomi Redmi Note 11 Pro, Xiaomi 11 Lite
- BESZÁMÍTÁS! 6TB Seagate SkyHawk SATA HDD meghajtó garanciával hibátlan működéssel
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: Promenade Publishing House Kft.
Város: Budapest