Hirdetés
- Luck Dragon: Asszociációs játék. :)
- gban: Ingyen kellene, de tegnapra
- sh4d0w: StarWars: Felismerés
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- Gadomiklos: Sziasztok! Kezdő vagyok, és nem tudom hol tudom megnézni a privát üzeneteimet.
- Meggyi001: Kórházi ellátás: kuka vagy finom?
- WireGuard VPN a mindennapokra
- Kalandor: „Ha engedtem volna a lelkiismeretemnek, az üzlet kevésbé lett volna jövedelmező”
-
LOGOUT
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
Fferi50- AMD Navi Radeon™ RX 9xxx sorozat
- Azonnali informatikai kérdések órája
- Elon Musk billiomos lesz, ha kitör a gépek forradalma
- Samsung Galaxy Z Fold7 - ezt vártuk, de…
- Óra topik
- Gitáros topic
- exHWSW - Értünk mindenhez IS
- Path of Exile (ARPG)
- Luck Dragon: Asszociációs játék. :)
- Vezeték nélküli fülhallgatók
- További aktív témák...
- Asus ROG G20AJ - Intel Core i7-4790, GTX 980 + eredeti doboz
- Bomba ár! Lenovo ThinkPad T495 - AMD Ryzen 5 PRO I 8GB I 256GB SSD I 14" FHD I Cam I W11 I Gari!
- BESZÁMÍTÁS! GB B450 AORUS Elite R5 5600X 32GB DDR4 1TB SSD NITRO+ RX 6700XT 12GB Rampage SHIVA 750W
- Huawei Quidway S5324TP-SI-AC - 24G, 4SFP, L2, managed switch
- Honor X6b 128GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő