Keresés: - Microsoft Excel topic - Mobilarena Hozzászólások

Hirdetés

Legfrissebb anyagok

Mobilarena témák

PROHARDVER! témák

IT café témák

GAMEPOD témák

LOGOUT témák

Keresés

Téma összefoglaló

Utoljára frissítve: 2023-11-13 08:31

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

#28041 Fferi50 Topikgazda ThaBoss #28038

Új Válasz 2015-08-05 17:53:02 #28041
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz ThaBoss #28038 üzenetére

Szia!
Próbáld meg ezt a képletet:
=DARABTELI($B$2:$B$300;$B2)=DARABHATÖBB($B$2:$B$300;$B2;$F$2:$F$300;"nem vették fel")
valamelyik következő oszlop második cellájában és húzd az oszlop végéig.
Ezután szűrő az oszlopra - igaz mutatja azokat a sorokat, ahol egész nap nem vették fel a hívást.
(A képlet megszámolja, hány hívás volt a nap során és összehasonlítja a fel nem vett hívások számával. Ha a kettő egyforma, akkor nem vettek fel hívást egész nap.)
Annyit még hozzá, hogy egy szám többször is szerepelni fog, ezért a B oszlopra is rá kell tenni a szűrőt, ott fogod látni, hány érték maradt meg.
Üdv.
#28040 szatocs1981 aktív tag ThaBoss #28038

Új Válasz 2015-08-05 16:23:12 #28040
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

szatocs1981

aktív tag

válasz ThaBoss #28038 üzenetére

A-tól F-ig rádobsz egy szűrőt....az nem jó megoldás?
#13591 bugizozi őstag ThaBoss #13587

Új Válasz 2012-04-26 11:46:48 #13591
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

bugizozi

őstag

válasz ThaBoss #13587 üzenetére

A legjobb oldal
Viccen kívül én némi más nyelvű programozási tapasztalattal innen szedtem az összes tudásom + amit ebben a fórumban olvastam / kérdeztem!
#13590 Delila_1 veterán ThaBoss #13589

Új Válasz 2012-04-26 11:40:06 #13590
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz ThaBoss #13589 üzenetére

Van még néhány ezen kívül is, de ez a kedvencem.
#13588 Delila_1 veterán ThaBoss #13587

Új Válasz 2012-04-26 11:35:14 #13588
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz ThaBoss #13587 üzenetére

A különböző Exceles fórumokon sokat lehet tanulni.
Szakirodalomként leginkább Kovalcsik Géza: Az Excel programozása c. könyvét ajánlják.
#13586 Delila_1 veterán ThaBoss #13585

Új Válasz 2012-04-26 11:14:37 #13586
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz ThaBoss #13585 üzenetére

Az If WS1.Cells(sor%, "B") > WS1.Cells(sor%, "A") Then sor legyen
If WS1.Cells(sor%, "B") >= WS1.Cells(sor%, "A") Then.
Szerk.: írd át a % végű változókat, amíg nem felejted el. Később már esetleg nem emlékszel rá, miért áll le hibával a futás.
#13580 Delila_1 veterán ThaBoss #13577

Új Válasz 2012-04-25 20:50:40 #13580
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz ThaBoss #13577 üzenetére

Ha milliós sorszámod van, módosítani kell a makrón. A % jelet vedd le a változók végéről, és a Dim kezdetű sorokban így add meg: Dim sor As Double.
A % jellel a végén azonos a Dim sor As Integer-rel, de ez csak -32.768 és 32.767 közötti értékekre jó, ezen a tartományon kívül hibára futna.
#13576 Delila_1 veterán ThaBoss #13575

Új Válasz 2012-04-25 16:05:35 #13576
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz ThaBoss #13575 üzenetére

Nem sok munkád lehet. Ebből a megadott 3 sorból, mire egyet pislogtam, már kész lett a 138 új sor.
Ezt viccnek szántam, nehogy komolyra vedd. Igazán örülök, hogy segíthettem.
#13573 Delila_1 veterán ThaBoss #13572

Új Válasz 2012-04-25 15:02:50 #13573
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz ThaBoss #13572 üzenetére

Ez igen! Már le is futtattad?
Szívesen.
#13571 Delila_1 veterán ThaBoss #13565

Új Válasz 2012-04-25 14:57:56 #13571
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz ThaBoss #13565 üzenetére

Itt az inverze.
Sub Valami_3() Dim sor%, sor1%, ucso%, WS1 As Worksheet, WS2 As Worksheet Dim kezd, vég Set WS1 = Sheets(1) Set WS2 = Sheets(2) sor1% = 1 ucso% = WS1.Cells(Rows.Count, "A").End(xlUp).Row For sor% = 2 To ucso% kezd = WS1.Cells(sor%, "A") vég = WS1.Cells(sor%, "B") Do sor1% = sor1% + 1 If WS1.Cells(sor%, "B") > WS1.Cells(sor%, "A") Then WS2.Cells(sor1%, "A") = kezd WS2.Cells(sor1%, "B") = kezd WS2.Cells(sor1%, "C") = WS1.Cells(sor%, "C") WS2.Cells(sor1%, "D") = WS1.Cells(sor%, "D") kezd = kezd + 1 End If Loop While vég >= kezd Next End Sub
#13567 Delila_1 veterán ThaBoss #13565

Új Válasz 2012-04-24 19:28:28 #13567
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz ThaBoss #13565 üzenetére

Ma már nem lehet rám bízni semmit.
Éjszaka biztosan válaszol valaki.
#13564 Delila_1 veterán ThaBoss #13562

Új Válasz 2012-04-24 19:10:53 #13564
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz ThaBoss #13562 üzenetére

Ez majd működik!
#13560 Delila_1 veterán ThaBoss #13558

Új Válasz 2012-04-24 18:28:26 #13560
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz ThaBoss #13558 üzenetére

Teljesen más a két feladat, még ha ugyanazokkal az adatokkal dolgozol is. Mit akarsz összegyúrni?
Nálam prímán működött a makró, anélkül nem tettem volna ki. Mondanám, hogy küldd el a füzetet, de mostanság nem nagyon van időm.
#13557 Delila_1 veterán ThaBoss #13556

Új Válasz 2012-04-24 14:54:35 #13557
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz ThaBoss #13556 üzenetére

Óhajod parancs.
Sub Valami_1() Dim sor%, sor1%, WS1 As Worksheet, WS2 As Worksheet Dim info, képlet, usor, kezd Set WS1 = Sheets(1): Set WS2 = Sheets(2) sor% = 2: sor1% = 2 usor = WS1.Cells(sor%, "A").SpecialCells(xlLastCell).Row info = WS1.Cells(sor%, "C"): képlet = WS1.Cells(sor%, "D") kezd = WS1.Cells(sor%, "A") For sor% = 2 To usor If WS1.Cells(sor% + 1, "D") <> képlet Then WS2.Cells(sor1%, "A") = kezd WS2.Cells(sor1%, "B") = WS1.Cells(sor%, "B") WS2.Cells(sor1%, "C") = WS1.Cells(sor%, "C") WS2.Cells(sor1%, "D") = WS1.Cells(sor%, "D") sor1% = sor1% + 1 kezd = WS1.Cells(sor% + 1, "A") képlet = WS1.Cells(sor% + 1, "D") End If Next End Sub
#13473 Delila_1 veterán ThaBoss #13472

Új Válasz 2012-04-19 14:05:26 #13473
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz ThaBoss #13472 üzenetére

Kapcsold be a bővítmények közül a két Analyzis kezdetűt!
#13470 Delila_1 veterán ThaBoss #13468

Új Válasz 2012-04-19 13:51:43 #13470
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz ThaBoss #13468 üzenetére

Ebben az esetben a lenti makróval oldd meg.
Sub Valami() Dim sor%, sor1%, WS1 As Worksheet, WS2 As Worksheet Set WS1 = Sheets(1) Set WS2 = Sheets(2) sor% = 2: sor1% = 2 WS2.Cells(sor1%, "N") = WS1.Cells(sor%, "N") WS2.Cells(sor1%, "O") = WS1.Cells(sor%, "N") Do While WS1.Cells(sor%, "N") <> "" If WS2.Cells(sor1%, "N") < WS1.Cells(sor%, "O") Then WS2.Cells(sor1% + 1, "N") = WS2.Cells(sor1%, "N") + 1 WS2.Cells(sor1% + 1, "O") = WS2.Cells(sor1%, "N") + 1 sor1% = sor1% + 1 Else sor1% = sor1% + 1: sor% = sor% + 1 WS2.Cells(sor1%, "N") = WS1.Cells(sor%, "N") WS2.Cells(sor1%, "O") = WS1.Cells(sor%, "N") End If Loop End Sub
#13467 Delila_1 veterán ThaBoss #13466

Új Válasz 2012-04-19 13:14:27 #13467
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz ThaBoss #13466 üzenetére

Szívesen.
#13465 Delila_1 veterán ThaBoss #13464

Új Válasz 2012-04-19 13:11:12 #13465
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz ThaBoss #13464 üzenetére

Munka2!N2 -> =Munka1!N2
Munka2!N3 -> =HA(N2+1<=Munka1!$O$2;N2+1;"")
Munka2!O2 -> =HA(Munka1!$O$2>=N2;N2;"")
A két utóbbit kell másolnod.
#13463 Delila_1 veterán ThaBoss #13462

Új Válasz 2012-04-19 12:43:14 #13463
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz ThaBoss #13462 üzenetére

Az O2 képlete =INDEX(Munka1!N:N;DARAB2(Munka1!N:N)).
#13461 Fire/SOUL/CD félisten ThaBoss #13460

Új Válasz 2012-04-19 12:20:57 #13461
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fire/SOUL/CD

félisten

válasz ThaBoss #13460 üzenetére

"Valami ilyesmit szeretnék elérni, csak az én adatbázisomban ezek a számok mind 9 jegyűek."
Na erre mutass példát és hogy mit jelent a "...Excel kiszámolja a 2 tartomány közötti értéket" (nem világos mit is kell kiszámolni) és akkor megoldható lehet a feladat.