Hirdetés
-
10 éve nem változott ekkorát a Netflix tévés appja
it A Netflix útnak indította a megújult tévés appját, amely az első nagy felújítást jelenti az utóbbi 10 évben.
-
Spyra: nagynyomású, akkus, automata vízipuska
lo Type-C port, egy töltéssel 2200 lövés, több, mint 2 kg-os súly, automata víz felszívás... Start the epic! :)
-
Ingyen osztogatja a Samsung a Galaxy Watch FE-t
ma Pedig még nem is létezik. Közben befutott a szuperfényes Watch Ultra specifikációja.
-
PROHARDVER!
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
-
Delila_1
Topikgazda
válasz motinka #10390 üzenetére
A kérdéses laphoz rendelted a makrót?
Lapfülön jobb klikk, Kód megjelenítése. Bejutottál a VB szerkesztőbe, a jobb oldalon kapott üres területre másold be a makrót.Ha nem megy, küldd el a fájlt.
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 motinka #12610 üzenetére
A kérdéses laphoz rendeld a makrót.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sor As Integer, usorH As Integer
Dim WS2 As Worksheet, sorH, f As Boolean
Application.EnableEvents = False
Set WS2 = Sheets("HÓNAP")
usorH = WS2.Range("A1").End(xlDown).Row
sor = 1
f = False
If Target.Address = "$A$1" Then
If Target = "" Then
Rows("1:5000").Delete
Else
Rows("2:5000").Delete
For sorH = 2 To usorH
If WS2.Cells(sorH, "A") = Target Then
Cells(sor, "B") = WS2.Cells(sorH, "E")
Cells(sor, "C") = WS2.Cells(sorH, "J")
Cells(sor, "D") = WS2.Cells(sorH, "AI")
sor = sor + 1
f = True
End If
Next
If f = False Then
Range("B1") = "Nincs adat erre a napra"
Range("C1:IV1").Delete
End If
End If
End If
Application.EnableEvents = True
End SubProgramozó: 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 motinka #12627 üzenetére
Valószínű, hogy a két lapodon nem egyformák a dátumokat tartalmazó oszlopok. Elképzelhető, hogy az egyiken szövegként adtad meg az értékeket, nem dátumként.
A "kigyűjtős" laphoz kell rendelned a makrót. Az elején értékadások vannak.
If Target.Address = "$A$1" Then 'ha az A1 cella változik...
If Target = "" Then 'és ez üres (törölted a tartalmát)
Rows("1:5000").Delete 'akkor törli a sorok előző tartalmát
Else 'ha értéket vittél az A1-be...
Rows("2:5000").Delete 'akkor a 2. sortól törli a régi adatokat
For sorH = 2 To usorH 'végig megy a Hónap lap A oszlopán
If WS2.Cells(sorH, "A") = Target Then 'ha ez azonos az 1. lapra bevitt értékkel ...
Cells(sor, "B") = WS2.Cells(sorH, "E") 'az 1. lap akt. sorába másol
Cells(sor, "C") = WS2.Cells(sorH, "J")
Cells(sor, "D") = WS2.Cells(sorH, "AI")
sor = sor + 1
f = True 'ez egy figyelő, ha volt egyezés, True-ra vált
End If
Next
If f = False Then 'ha nem volt egyezés,
Range("B1") = "Nincs adat erre a napra" 'ezt írja az 1. lap B1-be
Range("C1:IV1").Delete 'törli az előző C1:IV1 tartomány tartalmát
End If
End If
End IfProgramozó: 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 motinka #12635 üzenetére
Szívesen.
A For sorH = 2 To usorH kettesét írd át 1-re.
If Target.Address = "$A$1" Then helyett If Target.Address = "$A$2" Then
Rows("1:5000").Delete helyett Rows("2:5000").Delete
Rows("2:5000").Delete helyett Rows("3:5000").DeleteA lekérdezendő dátumot az A2 cellába írd be.
[ 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 motinka #12641 üzenetére
Jobb, ha a teljes átírtat megint berajzolom ide.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sor As Integer, usorH As Integer
Dim WS2 As Worksheet, sorH, f As Boolean
Application.EnableEvents = False
Set WS2 = Sheets("HÓNAP")
usorH = WS2.Range("A1").End(xlDown).Row
sor = 2
f = False
If Target.Address = "$A$2" Then
If Target = "" Then
Range("A2:D5000") = ""
Else
Range("A3:D5000") = ""
For sorH = 2 To usorH
If WS2.Cells(sorH, "A") = Target Then
Cells(sor, "B") = WS2.Cells(sorH, "E")
Cells(sor, "C") = WS2.Cells(sorH, "J")
Cells(sor, "D") = WS2.Cells(sorH, "AI")
sor = sor + 1
f = True
End If
Next
If f = False Then
Range("B2") = "Nincs adat erre a napra"
Range("A2:D5000") = ""
End If
End If
End If
Application.EnableEvents = True
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
félisten
válasz motinka #13525 üzenetére
"a feladat első körben, állapítsam meg melyik az az első 4 hibakód ami az adott időszakban legtöbbször szerepel."
Eddig értem a feladatot. A függvény a NAGY() névre hallgat"miután ez megvan e 4 illetve az összes többi (mint egyéb) heti bontásban a az adott hét összes százalékában..."
Na itt elvesztettem a fonalat, szóval készíts egy táblázatot manuálisan, tetszőleges adatokkal és arról egy képet, hogy hogy is kellene ennek kinéznie. Az A/B/C/D oszlopok kamu adatokat is tartalmazhatnak, csak azon adatokból minek kellene lenni az eredménynek, azt add meg, akkor érthetőbb lesz (számomra legalábbis)[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Delila_1
Topikgazda
válasz motinka #13525 üzenetére
Én sem értem teljesen, de úgy gondolom, hogy az "adott időszak" az adott hét lehet.
Heti bontásban készítettem egy táblázatot az egyes hibakódoknak megfelelő százalékos eloszlásról. Hogy ebből hogy lesz grafikon, azt még nem tudom, de a kérdés sem egészen fehér.Az F oszlopba a C-ből speciális szűréssel (Adatok | Rendezés és szűrés | Speciális) írattam át az egyedi értékeket.
A G2 képlete:
=HAHIBA(DARABHATÖBB($A:$A;G$1;$C:$C;$F2)/DARABHATÖBB($C:$C;$F2);0)Ezt másolhatod jobbra, és le.
Ugyanígy készíthetsz összefoglaló táblázatot a Hibakód 2-ről.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 motinka #13529 üzenetére
Az L2-be tedd be a =DARABTELI(G2:K2;">" & 0) képletet, ezt másold le a többi mellé, majd az F1:L10 táblázatot eszerint rendezd csökkenő sorrendbe.
Szerk.: ez most 2007-ben készült.
[ 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.
-
motinka
tag
válasz motinka #13532 üzenetére
tehát először is meg kellene állapítani, azaz felállítani egy erő sorrendet, mind a hibakód, mind a lezárókód tekintetében, hogy melyikből mennyi van ( előbb a legtöbb alatta a kevesebb és így tovább).
aztán ha ez megvan akkor az első "nyerő" 4-et kellene heti bontásban darab vagy/és százalékosan megjeleníteni számszerűleg és grafikusan is
MoTiNka
-
Delila_1
Topikgazda
válasz motinka #13533 üzenetére
A "többi"-t kihagyhatod a táblázatból, és a diagramból is.
Szerk.: ész nélkül vittem be a "többit"-t. A helyes képlet az I6 cellában =100%-SZUM(I2:I5), ezt másold jobbra X6-ig.
[ 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 motinka #13537 üzenetére
Írtam a csatolt fájlban, hogy a nagy(E:E, 2), sőt a nagy(E:E, 171) is 171-et ad eredményül, mert az első 171 db szám mindegyike "legnagyobb". Leírtam, hogyan kerestem ki a szűrő segítségével az ez alatti legnagyobbat.
Meg lehetne oldani makróval, csak kissé lassú lenne a futása, és Neked nem lenne semmi dolgod.
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 motinka #13549 üzenetére
Van 5 db számod: 1; 2; 3; 3; 3. A Nagy(tartomány;1) függvény megadja a legnagyobbat, ez a 3.
A Nagy(tartomány;2) a második legnagyobbat, 3-at ad.
A Nagy(tartomány;3) a harmadik legnagyobbat, szintén 3-at.
A Nagy(tartomány;4) eredménye 2, végül a Nagy(tartomány;5)-é 1.A C oszlopodban 171-szer szerepelt az iad hibakód. Az E oszlop darabteli függvénye pontosan ennyiszer hozza ki a 171-es eredményt. Ez azt jelenti, hogy a 171 után második legnagyobb számot, a 136-ot majd csak a Nagy(tartomány,172) függvény tudná produkálni.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
félisten
válasz motinka #14410 üzenetére
Ha 2003-as Excel-t használsz
Ha 2003_asnál újabb az Excel, akkor =SZUMHATÖBB(C1:C8;A1:A8;"a";B1:B8;"c")UI: DARATELI függvénnyel nem lehet összeadni.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
válasz motinka #14412 üzenetére
Erre való a SZUMHATÖBB függvény, csak azt amit leírtál: "...és a C sorban az O4-nek...", ezt nem lehet kivitelezni, mert nincs olyan, hogy C sor. Olyan lehet, hogy pl a 3. (vagy egyéb) sorban ($3:$3)
Ezért is írtam egy sima példát a SZUMHATÖBB-re, aztán majd saját igényed szerint módosítod.(Látom megtörtént időközben)Szerk
Ha kódot szúrsz be a hozzászólás írásakor, akkor használd a Programkód gombot, mert különben smiley-kkal tüzdelt, mint most, meg korábban is a képlet.[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Excelbarat
tag
válasz motinka #16300 üzenetére
Esetleg nem arra gondolsz hogy egy másik munkalapon egy másik tartomány? (Névkezelőben el tudsz nevezni tartományokat, Képletek - Névkezelő menüpont alatt) Névtartományra pedig a következők szerint hivatkozhatsz például egy függvénynél: =Excelfájlneve.xlsx!névtartomány de egy képletben meg simán beírod magát a névtartomány nevét.
-
Excelbarat
tag
válasz motinka #16302 üzenetére
[Itt] egy link elvileg mindjárt az első képlet és abból csak le kell vágni a lapnevet (a leírás szerint. Igazság szerint megpróbáltam de nálam nem működik.... bár lehet ha angol az office akkor angolul kell beírni.
Igen közben kipróbáltam az ha magyar nem működik angol menni fog!!!
magyar: =CELLA("fájlnév")
angol: =CELLA("filename")
Kipróbálod melyik működik és utána beteszed egy Jobb nevű függvénybe beírod hány karaktert vágjon le és azt fűzöd hozzá amihez szeretnéd![ Szerkesztve ]
-
Delila_1
Topikgazda
válasz motinka #16302 üzenetére
A lapnév ezzel az összetett képlettel nyerhető ki, de csakis egy már mentett fájlnál, mert a fájlnévből indul ki.
=KÖZÉP(CELLA("filename";$A$1);SZÖVEG.KERES("]";CELLA("filename";$A$1))+1;100)
U.i.: magyar nyelvű Excelben is a "filename" szükséges hozzá, bár a súgó nem ezt mondja.
[ 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.
-
m.zmrzlina
senior tag
válasz motinka #17208 üzenetére
Itt értekeztünk hasonló dolgokról.
Annyi különbséggel, hogy ott a betűszín volt az összegzés kritériuma nem a háttérszín, és nem a cellák számát határozta meg hanem a tartalmukat összegezte.
Az alábbi fv ennek a módosítása:
Function SZINESÖSSZEG(minta As Range, tartomany As Range)
Dim cella As Range, osszeg As Double
szin = minta.Interior.ColorIndex
For Each cella In tartomany
If cella.Interior.ColorIndex = szin Then
osszeg = osszeg + 1
End If
Next cella
SZINESÖSSZEG = osszeg
End Function[ Szerkesztve ]
-
m.zmrzlina
senior tag
válasz motinka #17220 üzenetére
Lehet az a gond, hogy makróként szeretnéd használni. Ez ugyanis egy függvény amit az Excel egyéb függvényeihez hasonlóan kell használni. Nyitsz egy modult a munkafüzetben, bemásolod oda a függvényt és ezután a munkalapon tudod használni ahogyan az Excel beépített függvényeit.
Ha adsz egy címet küldök egy munkafüzetet.
-
lappy
őstag
válasz motinka #17255 üzenetére
Szerintem a táblázatban át kellene állítani hogy ne vasárnappal kezdődjön a hét, mert nem tudok én sem olyat hogy valahol be lehet ezt állítani.
ezt találtam csak[ Szerkesztve ]
Bámulatos hol tart már a tudomány!
-
whatnot
őstag
válasz motinka #17263 üzenetére
Naptárprogramokban pl. be lehet. Én Reminderfox-ot használok, ott át lehet állítani.
Excelben az bonyolíthatja a dolgot, hogy a napra hivatkozás történhet függvénnyel is és lehet, nem megoldható, hogy a függvény számolásakor a beállításokat is nézegesse (bár csak egy objektum paraméterét kéne megnéznie).
Passz -
Caipi
tag
válasz motinka #17463 üzenetére
Szia,
ha jól értelmeztem:
A @kezdet a kezdet névvel ellátott cellákra hivatkozik (van egy olyan oszlopod?). Nekem akkor adott ilyet, amikor az excel beépített táblázat formáit használva formáztam meg egy táblázatot.A képlet maga megvizsgálja, hogy a @kezdet hogyan viszonyul az eredmény fülön az F4 és D4 cellához.
A @kezdetben szereplő időpont órája nagyobb, vagy egyenlő, mint eredmény fül F4 és kisebb, mint eredmény fül D4, tehát a két időtartam között van (pl. 8-16.30-ig), akkor a függvény végeredménye 0, különben 1.
Túlórát számol esetleg?Üdv,
Caipi -
Excelbarat
tag
válasz motinka #17463 üzenetére
Hi
[@kezdet] ilyen formában azt jelenti hogy ez egy táblázatban lévő fejlécnek a megnevezése
Tehát az adatok táblázatként vannak formázva (stílusok - formázás táblázatként) és ilyenkor a hivatkozásokat nem A1, C1 ... ként jelöli hanem @fejrovat-tal.
Itt egy minta, talán így jobban megérted. (hozzáteszem ilyenkor a beírt képletet automatikusan végigmásolja a soron )
üdv
szerkesztve: közben már befutott egy megoldás[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz motinka #17501 üzenetére
A neveket tartalmazó oszlopról készíts egy irányított (speciális) szűrést, ami csak az egyedi rekordokat tartalmazza. A mellette lévő oszlopba a DARABTELI függvénnyel kiíratod, hogy az egyes nevek hányszor szerepelnek az eredeti oszlopban, majd ezt a két oszlopot rendezed a második szerint, csökkenő sorrendbe.
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 motinka #17503 üzenetére
Szívesen.
Írd meg az ötletet Microsoftéknak!
Egyébként van egy NAGY függvény, ami hasonló eredményt ad, nézd meg.Ahhoz egy kicsit variálni kell, mert előfordulhat, hogy több név is szerepel pl. 3-szor. Vegyük, hogy a DARABTELI függvény az F oszlopban van. A G oszlopba teszel egy ilyen képletet: =F2+SOR()*0,00001.
Ez az F2 cella feltételezett 3-as értékéből 3,00002-t képez, az F3 cella 3-asa 3,00003 lesz.
A NAGY függvény a G oszlopra hivatkozzon. A SOR() szorzója nagyon kicsi szám legyen, akkora, hogy az egész részt ne növelje a sokadik sorban sem. Mikor ez megvan, az INDEX és HOL.VAN függvény segítségével a megtalált helyezések mellé írathatod a neveket.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
-
m.zmrzlina
senior tag
válasz motinka #18135 üzenetére
Arra gondol, hogy ha tudod, hogy miből mit szeretnél csinálni akkor elindítod a makrórögzítést itt: (Excel2007 vagy újabb esetén)
Adsz neki egy nevet és végigcsinálod amit szeretnél majd leállítod. Ezután ha bármikor el szeretnéd végezni ugyanezt a feladatot csak kiválasztod az előbb rögzített makródat itt:
és lefuttatod.
De írd le pontosan mit szeretnél (esetleg képpel), hátha tudunk ötletet adni!
[ Szerkesztve ]
-
Mutt
aktív tag
válasz motinka #18132 üzenetére
Hello,
...egy rengeteg adatból álló adat tábla, ami naponta frissül.
Ebből kellene nekem oszlopokat kiszedni rendezni, sorba rakni...Több megoldás is lehetséges, de esetleg egy mintát meg tudsz osztani velünk?
1. Makró létrehozása (egy Worksheet.Change eseménnyel teljesen automatikus lesz).
2. Ha a sorbarendezés oszlopa EGYEDI SZÁMOKAT tartalmaz (nincs ismétlődés és nem szám), akkor a Kimutatás (Pivot) is segít és a többi oszlopot FKERES-sel mellé lehet tenni. A kimutatást be lehet állítani, hogy a fájl minden megnyitásakor automatikusan frissüljön.
3. Végső megoldás pedig segédoszlop és a KICSI + FKERES függvények használata.üdv.
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
Új hozzászólás Aktív témák
- Politika
- Tombol az AI-láz: az NVIDIA már értékesebb, mint az Apple
- XGS24 - Bemutatkozott a DOOM - The Dark Ages
- Kínai, és egyéb olcsó órák topikja
- Kormányok / autós szimulátorok topicja
- Projektor topic
- Trollok komolyan
- Azonnali VGA-s kérdések órája
- Diablo IV
- galaxy55: Mi történt deviantart-on?
- További aktív témák...
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Új, bontatlan World of Warcraft gyűjtői kiadások
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- AKCIÓ! - STEAM kulcsok / Punch Club, Oddworld: Soulstorm, Children of Morta, stb. - 2024.05.16.
- Canva Pro előfizetés - 1 éves
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen