-
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
-
Gh0sT
addikt
-
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] -
-
Delila_1
Topikgazda
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.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
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]Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
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.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz lordring #2582 üzenetére
Sebaj, a kész makródat javítsd az enyém szerint, az működik. Kivéve a CTRL+s-t. De az úgyis megjegyzés.
Használat:
Kijelölöd és a felülírandó részt, CTRL+C (másolás), odaállsz, ahova az értéke(ke)t akarod illeszteni, majd CTRL+s.
[Szerkesztve]Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz lordring #3361 üzenetére
Az egyik cellában el kellene helyezned az xls nevét, és a sorod közepe így módosulna:
"....\Asztal\" & cells(sor,oszlop) & ".xls"Vagy mentés előtt inputtal bekérhetnéd a nevet egy változóba, és azt adnád meg a cellára történő hivatkozás helyett.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz lordring #3363 üzenetére
nev$ = InputBox("Kérem a fájlnevet", "Név bekérése")
Ez "gyalog" bekérés. Van mód arra, hogy a csv nevét automatikusan változóba tegye, és azt adja az xls-nek, de az most hirtelen nem jut eszembe, és nem érek rá kikeresni.
Előbb-utóbb vagy én, vagy más leírja.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
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[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
-
Delila_1
Topikgazda
válasz lordring #13122 üzenetére
Erre egyszer azt javasolta valaki, hogy a TotalCommander-ben újra hozzá kell rendelni a kiterjesztést az Excelhez. Nálam nem jött össze, mikor ilyen hiba volt.
Régen volt, nem emlékszem, mi hozta rendbe.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
lappy
őstag
-
Fferi50
őstag
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. -
Mutt
aktív tag
válasz lordring #42286 üzenetére
Szia,
Excel 2010-től van Power Query, Ebben a hozzászólásban az első 8 lépés azonos. Utána pedig csak annyi a változás, hogy Összegre szűrsz a B-oszlopban. A végerdményt PivotChartba töltve tudod a grafikont készíteni.
üdv
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Fferi50
őstag
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.
Új hozzászólás Aktív témák
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Ozeki Kft.
Város: Debrecen