Hirdetés
-
Rárepültek a gyártók a Snapdragon X-re
ph Persze ebben a Qualcomm mellett fontos szerepe van a Microsoftnak is, aki teljes erővel beállt a CoPilot+ PC programba.
-
Sztori trailert kapott az Elden Ring: Shadow of The Erdtree
gp A DLC a tervek szerint jövő hónap végén debütál PC-n és konzolokon.
-
Újabb országba vihet akkumulátorgyárat Elon Musk
it Miközben Kínában adatközpontot építhet Elon Musk és a Tesla, addig Indonézia kapcsán akkumulátorgyár felépítését fontolgatják.
-
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
-
DopeBob
addikt
Sziasztok,
tud valaki esetleg valami jó leírást, könyvet az Excel kimutatáskezelő eszközeihez? (PowerPivot, Power View). Elsősorban magyarul, mivel viszonylag ismeretlen a téma, de jöhet angol is.
MZ/X
-
atillaahun
veterán
Sziasztok,
2 táblázat összeolvasztásában kérnék segítséget.
Az egyikben van 15e sornyi 3 betűs kód különböző előfordulással. Ezeket egyrészről sorba kell rendezni gyakoriság szerint, majd kimutatni melyikből mennyi van. Idáig megvan.A másik táblában vannak viszont a 3 betűs kódokhoz rendelt városnevek. Hogy cserélem ki a kódokat városnevekre az első táblában?
[ Szerkesztve ]
-
atillaahun
veterán
válasz atillaahun #21603 üzenetére
Közben megoldottam FKERES-sel.
-
pdw_ph
tag
válasz alfa20 #21600 üzenetére
Szerintem azert mert attacholni egy filet tudsz (ugy altalanossagban) de ez csak egy sheet-re vonatkozik:
.Attachments.Add ActiveWorksheet
ActiveWorkbook-ra tedd at es sztem menni fog.
Persze ha te csak az ActiveWorksheet-et akarod kuldeni akkor azt elobb el kell menteni egy kulon fileba (ez szinten megoldhato a Makroban).
-
pdw_ph
tag
-
alfa20
senior tag
Sziasztok,
Ha rá van szűrve egy táblára és az első sor aktív pl.: "K1", makróban, hogyan tudok egyel lejjebb lépni, hogy ne a "K2" cellára lépjen hanem az első szűrt cellára ami akármi lehet ("K33", "K100", bármi)?
A Cells(1 + 1, 11).Select és a "Selection.Offset(1, 0).Select" a "K2"-re visz."Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
Louro
őstag
Sziasztok!
Csúnyán elakadtam és a neten fellelhető megoldás se segített. Autofilternél 3 opcióra kellene szűrnöm (sajnos nem tudom kettőbe préselni )
A kód:
ActiveSheet.Range(Cells(1, 2), Cells(sor - 21, 18)).AutoFilter Field:=1, Criteria1:= _
"<>*pre*", Operator:=xlAnd, Criteria2:="<>*post*"Ezt kellene kiegészítenem "<>*migr" szűréssel. Az oké, hogy 3. kritéria nem adható meg.
Amit a neten találtam, hogy konstansban megadom a három feltételt:
Const opt1 As String = "<>*post*"
Const opt2 As String = "<>*pre*"
Const opt3 As String = "<>*migr*"Utána tömbben adnám meg a három feltételt:
Criteria1:=Array(opt1, opt2, opt3), Operator:=xlFilterValuesPls help. Próbálom önállóan megtalálni a megoldásokat, mert úgy marad meg igazán, de ez nem akar összejönni most.
Mess with the best / Die like the rest
-
Caipi
tag
Sziasztok,
A következő kérdésem lenne:
Adott egy lista, ahol egy esemény kezdő és záródátuma szerepel. A oszlop a kezdő, B a záró. A cellákban lévő dátum formátuma: éééé.hh.nn. óó:pp.
Ki szeretném számolni, hogy a nyitás és zárás között mennyi volt az eltelt munkaóra, úgy, hogy a hét munkanapjain (Hétfő-péntek) a munkaórák nem megegyezőek. (Ezt esetleg egy segédtáblában vezetem).Köszönöm a segítséget,
Üdv,
Caipi -
Caipi
tag
-
alfa20
senior tag
én értettelek félre, de már értem.
Próbáld meg az alábbit:
C1=ÖSSZ.MUNKANAP(A1;B1)
ez kiszámítja neked, hogy hány munkanap telt el két dátum közt (ezt az értéket szorozhatód is 8 órával)D1=ÖSSZ.MUNKANAP.INTL(A1;B1;11)
ez a vasárnapot veszi csak munkaszüneti napnak + az ünnepeket (azt hiszem), ha ebből kivonod a C1 értéket és szorzód 6-al, akkor elvileg jónak kell lennie.E1=C1*8+(D1-C1)*6
[ Szerkesztve ]
"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
Caipi
tag
válasz alfa20 #21616 üzenetére
Köszönöm
Ennyivel bővítettem a képletet, mivel ugyanarra a napra nem számol:
HA(ÖSSZ.MUNKANAP(A2;B2)*8=0;SZÖVEG(B2-A2;"óó");ÖSSZ.MUNKANAP(A2;B2)*8)
Viszont a munkaórák száma szerintem így nem fog stimmelni.
Ha H-CS 8 óra és P 6 óra, akkor nem fog jó eredményt adni szerintem.Üdv,
Caipi[ Szerkesztve ]
-
alfa20
senior tag
szerintem ezt a képletet próbáld beépíteni:
=ÖSSZ.MUNKANAP.INTL(C2;D2;"0000111" )
ez most csak a hét első négy napját tekinti munkanapnak (H-CS)
így meg csak a pénteket:
=ÖSSZ.MUNKANAP.INTL(C2;D2;"1111011" )amit érdemes tudni, hogy az idézőjelben lévő 7 db szám ami vagy 0 vagy 1, azzal tudod a munkanapok számát állítani, a 0 munkanapot jelől, az 1-es munkaszünetit.
A 7 szám a 7 napot jelöli sorrendeben:0 0 0 0 0 0 0
HKSzCSPSzoV"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
nagyúr
Üdv. Segítséget kérnék. Van egy ilyenem:
Sub KIOLVAS()
ChDir "c:\kiolvas\"
Workbooks.OpenText Filename:="fajl.txt", Origin:=852, _
StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(16 _
, 1), Array(19, 1), Array(30, 1), Array(40, 1), Array(50, 1)), DecimalSeparator:=".", _
TrailingMinusNumbers:=True
End SubAzt szeretném hozzáfűzni, hogy ezt ne egy új ablakba nyissa meg, hanem a Munka1 lapon, majd a végén váltson át a Munka2-re.
Hiába tettem az elejére, hogy:
Sheets("Munka1").Select
Cells.Select
Selection.ClearContentsés a végére:
Sheets("Munka2").Selectmégsem akarja.
[ Szerkesztve ]
-
maestro87
őstag
Sziasztok!
Egy kis segítség kellene Excel ügyben mert nem nagyon értek hozzá.
1. A következőt szeretném letiltani: ha egy cellába beírom pl. a "05.2"-t akkor ne írja át "02.máj"-ra!
2. A táblázatból az első sort úgy szeretném kiemelni, hogy ha lefele bármennyit görgetek az ne tűnjön el!Előre is köszi!
[ Szerkesztve ]
-
Louro
őstag
válasz KaiotEch #21619 üzenetére
Sub KIOLVAS
'ide tedd a munkalapot aktiválós részt. Én még tennék ide egy ellenőrzést is, hogy létezik -e.
Dim wsSheet As WorksheetOn Error Resume Next
Set wsSheet = Sheets("Munka1")
If Not wsSheet Is Nothing Then
Sheets("Munka1").Activate
Else
Sheets.Add.Name = "Munka1"
End If'ide tedd a fájl beolvasását. Én ezt makrórögzítővel csinálnám meg. Ide elég hosszú lenne beírni. Gondolom text beolvasás lenne.... Ha gondolod bemásolom, ami nekem van. Én rengeteg txt-vel dolgozok napi szinten.
Mess with the best / Die like the rest
-
nagyúr
Már módosítottam ilyenre:
Sub KIOLVAS()
Sheets("Munka1").Select
Cells.Select
Selection.ClearContents
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\KIOLVASNIVALO.kit", Destination:=Range("A1"))
.Name = "kiolv"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 852
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Sheets("Munka2").Select
End SubA tegnapi állománnyal jó volt, de a mait nem szeparálja szét cellákra. Az első oszlopba dobálja be.
-
Louro
őstag
válasz KaiotEch #21629 üzenetére
Öööö, lehet fura kérdést teszek fel, mert nekem is így néz ki és naponta futtatom és működik. Az elválasztó a lenti kódban tabulátor. Nem lehet, hogy a forrás nem megfelelő? Nem tabok vannak benne?
Ha csak kézzel, manuálisan beimportálnád, működne?
Mess with the best / Die like the rest
-
Jarod1
addikt
Létezik olyam excelben ami outlok naptárbol szedi ki az adatokat? A beosztás ugyanis abban van.
-
maestro87
őstag
Én nagyon nagyon ritkán használom (mivel mindig csak idegeskedek vele) és akkor is csak pár egyszerű táblázatot hozok létre. Grafikonokra és számolásokra inkább Origin-t használok.
(#21629) KaiotEch:
Ezeket a kódokat hová írjátok? Nem is tudtam hogy az Excel-ben is lehet ilyet csinálni. Vagy ez csak makró?[ Szerkesztve ]
-
rzerge
aktív tag
Sziasztok!
Van olyan funkciója, vagy olyan alkamazás az excelnek, amivel windows 7 asztalra lehetne kitenni a munkafüzetet úgy, hogy bármikor bele lehessen írni.
Ilyesmire gondoltam, mint a Sticky notes.
Köszi"Olyan szarul nézel ki! Iszol te rendesen?"
-
-
anonymus89
addikt
válasz anonymus89 #21599 üzenetére
Hálás lennék ha valaki meg tudná oldani ezt a diagramot, hogy így nézzen ki?
Itt az adattábla.Office 2003-am van azzal próbálkoztam.
[ Szerkesztve ]
Organikus, természetes összetevőjű, 100% tisztaságú bőrápoló termékek //marcsiszappan.hu//
-
Delila_1
Topikgazda
válasz anonymus89 #21639 üzenetére
Ha valamelyik adatsort a második Y tengelyhez rendeled, a két oszlop egymást fedi. Kijelölöd az egyik oszlop tartományt, és szélesebbre veszed (a közt kisebbre állítod), és már látszik is minden adatod.
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 anonymus89 #21641 üzenetére
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 anonymus89 #21643 üzenetére
Na és mi ezzel a baj?
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Caipi
tag
válasz alfa20 #21618 üzenetére
Még mindig nem az igazi.
Vázolom újra a kérdést, hátha valakinek van rá ötlete:
Egy munkalap két oszlopában kezdő és záródátumok szerepelnek. Ki kellene számolni, hogy a két időpont között hány munkaóra telt el, úgy, hogy a munkaórák H-Cs 8 óra, P 6 óra.
Az össz.munkanap.intl() segítségével munkanapi szintre eljutottam, de így még nem jó, mivel a záró napon nem biztos, hogy teljes munkanapot kell számolni, lezárulhat hamarabb is.
Íme a formátuma a celláknak.Köszönöm a segítséget,
Caipi -
alfa20
senior tag
csak azért kérdeztem, mert ha azt fel tételezem, hogy minden nap le lett dolgozva a teljes munka óra, akkor azt meg lehet oldani, hogy minden napot adjon össze kivétel az utolsó napot. Azt meg ha mondjuk a munkakezdés egységesen 8 óra, akkor csak ki kell vonni a munkaidő végéből a 8 órát (vagy a munka kezdés idejét, ha az nem egységes) a maradékot meg hozzá lehet adni az összes munkaórához, de itt is figyelembe kellene venni, hogy az adott nap milyen napra esik H-CS vagy P, mert a maradék nem lehet több a munkaidőnél.
Szerintem az utolsó nap munkaidő kezdete minden képen kellene pontos adatok miatt.ezt most csak elméletben gondoltam végig, nem néztem utána excelben, de majd megnézem kb. 1 óra.
"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
alfa20
senior tag
válasz alfa20 #21649 üzenetére
képletek:
D2: =HA(ÖSSZ.MUNKANAP.INTL(A2;B2-1;"0000111";$E$11:$E$14)<0;0;ÖSSZ.MUNKANAP.INTL(A2;B2-1;"0000111";$E$11:$E$14))
E2: =HA(ÖSSZ.MUNKANAP.INTL(A2;B2-1;"1111011";$E$11:$E$14)<0;0;ÖSSZ.MUNKANAP.INTL(A2;B2-1;"1111011";$E$11:$E$14))
F2: =SZUM((B2-C2))*24
G2: =SZUM((D2*8)+(E2*6)+F2)D2: a H-CS napokat számolja össze
E2: a P napokat számolja össze
F2: az utolsó nap ledolgozott óráit adja meg
G2: eredményaz ünnepek miatt kell egy segéd oszlop az ünnepeknek ez van a keretben zölddel. A mellette levő tábla meg ellenőrzés végett készítettem, hogy manuálisan le tudjam ellenőrizni
és egy képlettel
=SZUM((HA(ÖSSZ.MUNKANAP.INTL(A2;B2-1;"0000111";$E$11:$E$14)<0;0;ÖSSZ.MUNKANAP.INTL(A2;B2-1;"0000111";$E$11:$E$14))*8)+(HA(ÖSSZ.MUNKANAP.INTL(A2;B2-1;"1111011";$E$11:$E$14)<0;0;ÖSSZ.MUNKANAP.INTL(A2;B2-1;"1111011";$E$11:$E$14))*6)+SZUM((B2-C2))*24)remélem tudtam segíteni...
[ Szerkesztve ]
"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
Ú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