-
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
-
#6493
Delila_1
veterán
WildBoarTeam
#6491
Delila_1
veterán
válasz
WildBoarTeam
#6491
üzenetére
=darabteli(tartomány;">0")
-
#6488
Delila_1
veterán
WildBoarTeam
#6485
Delila_1
veterán
válasz
WildBoarTeam
#6485
üzenetére
Köszönöm a figyelmességet és a szép virágot, a többi hölgy nevében is.
-
Delila_1
veterán
Ez a makró pontosan ezt csinálja.
Ha pl. a listádban szerepel Béla, Balázs, Bernadett, Boglárka, Berta, Borisz, és Brigitta, és ezek közül Bernadett sorát akarod látni, akkor a C1-be ezt írd: bern. Szóval annyi karaktert írj be, ami már egyértelműen azonosítja azt az adatot, amelyiknek a sorára szeretnél szűrni. A kezdőbetű az összes B-vel kezdődő sorra szűr.
-
#6468
Delila_1
veterán
Fehér Mancs
#6467
Delila_1
veterán
válasz
Fehér Mancs
#6467
üzenetére
Fire jól felkavarta az állóvizet!
-
Delila_1
veterán
A laphoz rendeld ezt a makrót – lapfülön jobb klikk, Kód megjelenítése. A jobboldalon kapott üres lapra másold be.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$1" Then
Selection.AutoFilter Field:=1, Criteria1:=Cells(1, 3) & "*", Operator:=xlAnd
End If
End SubA $C$1 helyett annak a cellának a címét add meg, ahol a kezdő betű(ke)t akarod megadni.
-
-
#6442
Delila_1
veterán
WildBoarTeam
#6441
Delila_1
veterán
válasz
WildBoarTeam
#6441
üzenetére
Kicsit többet kellene tudni a feladatodról. Mi a lapok neve, hol helyezkednek el az adatok.
Írtam egy rövid kis makrót. Az egyik lap neve Készenlét. Ennek az A oszlopában vannak a nevek, mellettük a B oszlopban a dátum, mikor készenlétben voltak. Egy-egy név többször is szerepel.
A Nevek lap csakis a dolgozók nevét tartalmazza, az A oszlopban. Mindkét lapon az első a címsor, az adatok a 2. sorban kezdődnek.
A makró a Nevek lapon mindenki neve mellé beírja a dátumokat (mindig a következő oszlopba), amikor készenlétben voltak.Sub Datumok()
Dim sor, sor_k, usor_k, oszlop As Integer
usor_k = Sheets("Készenlét").Range("A65000").End(xlUp).Row
Sheets("Nevek").Select
For sor = 2 To ActiveSheet.UsedRange.Rows.Count
For sor_k = 2 To usor_k
If Sheets("Készenlét").Cells(sor_k, 1) = Cells(sor, 1) Then
oszlop = Range("IV" & sor).End(xlToLeft).Column + 1
Cells(sor, oszlop) = Sheets("Készenlét").Cells(sor_k, 2)
End If
Next
Next
End Sub"bü" beírásakor nem is kell színezni.
-
#6440
Delila_1
veterán
Fire/SOUL/CD
#6436
Delila_1
veterán
válasz
Fire/SOUL/CD
#6436
üzenetére
Minden tiszteletem azé az emberé, aki kitalálta ezt a feladatot.
-
Delila_1
veterán
válasz
ulrik19
#6435
üzenetére
Példaként: ha A1-be a „bük” karaktersorozatot írjuk, akkor B1-ben jelenjen meg Bük neve, míg Bükkösdhöz csak legalább négy karakter beírásával juthatunk („bükk”).
"bü" beírására nem is kell azonosítania Bük községet. A fenti két karakterrel kezdődik Bük, és Bükkösd neve is.
-
#6431
Delila_1
veterán
WildBoarTeam
#6409
Delila_1
veterán
válasz
WildBoarTeam
#6409
üzenetére
Megjöttem, itt van a kastély linkje.
-
#6410
Delila_1
veterán
WildBoarTeam
#6409
Delila_1
veterán
válasz
WildBoarTeam
#6409
üzenetére
Most nem azon a gépen vagyok, ahol kész van a megoldás. Később belinkelem.
-
#6398
Delila_1
veterán
lakatosturbo
#6375
Delila_1
veterán
válasz
lakatosturbo
#6375
üzenetére
Az animáció eltüntetése
Egyik módszer:
Vezérlőpult -> Megjelenítés -> Megjelenítés fül ->Hatások
Vedd ki a pipát a Menük és eszközleírások áttűnése előtti négyzetből.Másik módszer:
Futtasd a Regedit-et, menj a HKEY_CURRENT_USER \ Control Panel \ Desktop \ WindowsMetrics mappába. A Szerkesztés -> Új -> Karakterlánc menüt választva vigyél be új objektumot. Nevezd ezt el MinAnimate-nek, kattints rá kétszer az objektumra, és írd be a 0 értéket. Lépj ki a regisztrációs adatbázis-szerkesztőből, és indítsd újra a gépet. A lekicsinyítés és felnagyítás ettől kezdve gyors lesz, mint a villám. -
#6372
Delila_1
veterán
Fire/SOUL/CD
#6370
Delila_1
veterán
válasz
Fire/SOUL/CD
#6370
üzenetére
Az A1:B1 tartományra 4 szabályt ad, az A4:D129-re másikat.
Igen, xls-ben tetted fel, de nem volt benne semmi, ami a 2003-ban nem lenne értelmezhető.
Cuci, csak töltsd le a linket a #6313-ról, ne olvasd el a sok hozzászólást. Legalább lesz ugyannak a szövegnek, feladatnak egy újabb értelmezése.
-
#6369
Delila_1
veterán
Fire/SOUL/CD
#6368
Delila_1
veterán
válasz
Fire/SOUL/CD
#6368
üzenetére
A módosított B1 képlettel (2-3 hozzászólással ezelőtt) már az is megy.
Érdekelne, mennyi a teljes feladatsor max. pontszáma, ha ez az 5. számú 31 pontot ér. -
#6367
Delila_1
veterán
Fire/SOUL/CD
#6366
Delila_1
veterán
válasz
Fire/SOUL/CD
#6366
üzenetére
Az utolsó mondatod nem szerepel a kiírásban.
![;]](//cdn.rios.hu/dl/s/v1.gif)
Szerintem jobb, ha több választási lehetőség esetén üres marad a B1, míg nem teszi a felhasználó egyértelművé a dolgot.
-
#6365
Delila_1
veterán
Fire/SOUL/CD
#6364
Delila_1
veterán
válasz
Fire/SOUL/CD
#6364
üzenetére
Nem vagyok biztos az értelmezésben. Ha ez igaz, akkor az előző változat a jó.
A B1 képletén annyit módosítottam most, hogy bük, vagy eger beírásakor jelenjen meg Bük, vagy Eger.
=HA(HIBÁS(HOL.VAN($A$1&"*";$A$4:$A$129;0));"Nincs";HA(VAGY(DARABTELI(A4:A129;A1)>0;DARABTELI($A$4:$A$129;$A$1&"*")=DARABTELI($A$4:$A$129;INDEX($A$4:$A$129;HOL.VAN((BAL($A$1;HOSSZ($A$1)) & "*");$A$4:$A$129;0);1)));INDEX($A$4:$A$129;HOL.VAN($A$1&"*";$A$4:$A$129;0));""))
-
#6363
Delila_1
veterán
Fire/SOUL/CD
#6361
Delila_1
veterán
válasz
Fire/SOUL/CD
#6361
üzenetére
bük-nél nem is jelenhet meg, mert az lehet Bük, és Bükkösd.
Az as-nál, vagy bélm-nél már megjelenik.Zöld is csak akkor lesz az A4:D129 tartomány, ha sikerült konkrét helységet kiválasztanod a megfelelő számú karakterrel.
-
Delila_1
veterán
Sikerült úgy megoldani, hogy a B1-be csak akkor írja be a helység nevét, ha az A1-be bevitt érték alapján csak ez az egy lehet igaz.
[link]A sárga hátterű tartomány feltételes formázásán is kellett módosítani.
Egy dolog nem stimmel: ha az A1 üres, a formátum nem lesz alapbeállítású. 2007-ben meg lehetne adni ezt is, a 2003-ban csak 3 feltétel adható meg.
-
#6354
Delila_1
veterán
Fire/SOUL/CD
#6346
Delila_1
veterán
válasz
Fire/SOUL/CD
#6346
üzenetére
A1-ben a bük lehetne Bükkösd is a B1-ben.
-
#6348
Delila_1
veterán
Fire/SOUL/CD
#6346
Delila_1
veterán
válasz
Fire/SOUL/CD
#6346
üzenetére
Nem vagyok biztos benne.
"Elvárjuk azt is, hogy egyértelmű azonosítás esetén a B1 cellában jelenjen meg a község eredeti (teljes) neve, mégpedig pontosan abban a formában, ahogyan az A oszlopban szerepel (pl. kis- és nagybetűkre helyesen)."Vagyis a bü beírása után a B1-ben ne jelenjen meg semmi.
-
#6344
Delila_1
veterán
Fire/SOUL/CD
#6343
Delila_1
veterán
válasz
Fire/SOUL/CD
#6343
üzenetére
Akkor mi nem jó a másodjára feltett fájlban?
-
#6339
Delila_1
veterán
Fire/SOUL/CD
#6338
Delila_1
veterán
válasz
Fire/SOUL/CD
#6338
üzenetére
Szerinted az A1 bü értékénél mi jelenjen meg a B1-ben?
-
Delila_1
veterán
válasz
ulrik19
#6317
üzenetére
Lehet, hogy másként értelmezzük a feladatot?
Buda azért szerepel kétszer, mert a listában is kétszer található meg, két kastély is létezik ott.
A bo-val kezdődő település pontos kereséséhez több karaktert kell megadni.
»Feladatunkat nehezíti, hogy a községek között vannak olyanok, amelyek közül az egyiknek a neve teljes egészében tartalmazza a másikét (pl. Egervár – Eger). Ilyen esetben azt várjuk a táblázattól, hogy azt is fogadja el, ha a rövidebb nevet pontosan beírtuk (zöld betűk), és a hosszabb nevet csak (legalább) egy további helyes karakter esetén azonosítsa. Példaként: ha A1-be a „bük” karaktersorozatot írjuk, akkor B1-ben jelenjen meg Bük neve, míg Bükkösdhöz csak legalább négy karakter beírásával juthatunk („bükk”).« -
#6314
Delila_1
veterán
Fire/SOUL/CD
#6313
Delila_1
veterán
válasz
Fire/SOUL/CD
#6313
üzenetére
Hol kell jelentkezni a plusz pontért?
[Itt van a megoldás] -
#6304
Delila_1
veterán
Fire/SOUL/CD
#6303
Delila_1
veterán
válasz
Fire/SOUL/CD
#6303
üzenetére
Akkor jól sejtettem, hogy ott is működik. Köszönöm.
-
#6302
Delila_1
veterán
Fire/SOUL/CD
#6301
Delila_1
veterán
válasz
Fire/SOUL/CD
#6301
üzenetére
Tudom, hogy azt használod, csak a minta nem kimutatásban készült.
-
#6300
Delila_1
veterán
Fire/SOUL/CD
#6299
Delila_1
veterán
válasz
Fire/SOUL/CD
#6299
üzenetére
Köszönöm.
Lusta voltam visszalapozni, megkeresni, hogy Mr.Nagy melyik verziót használja, ezért 2003-ban próbáltam ki.
Nézd már meg, hogy egy kimutatáson belül is működik-e. Én abban próbáltam. -
#6279
Delila_1
veterán
Fire/SOUL/CD
#6278
Delila_1
veterán
válasz
Fire/SOUL/CD
#6278
üzenetére
A második a helyes megoldás.
A súgó ezt írja másik lapon szereplő lista alkalmazásáról az érvényesítésnél:
"Ha másik munkalapot szeretne használni, írja be a listaelemeket a kívánt munkalapra, majd adjon nevet a listának."Amennyiben a név megadása egy teljes oszlopra vonatkozik (pl. A:A), akkor az érvényesítésben megjelenő adatok követik az idővel bővülő listát. Csökkenésre ez nem igaz, a törölt elemek helyén üres sor jelenik meg. Ehelyett a névadásnál érdemes egy OFSZET függvénnyel kijelölni a megjelenítendő adatokat.
-
Delila_1
veterán
válasz
Surfym@n
#6251
üzenetére
Idézet a súgóból:
"Ha az egyezés_típus értéke -1, akkor a HOL.VAN azt a legkisebb értéket keresi meg, amely egyenlő vagy nagyobb, mint a keresési_érték. A táblának csökkenő sorrendben rendezettnek kell lennie: IGAZ, HAMIS, Z-A, ..., 2, 1, 0, -1, -2,... stb."
A HOL.VAN függvény azt a sorszámot adja vissza, ahol a (minta szerint A1:A10) tartományban megtalálta a keresett értéket.
Az =INDIREKT(C10) függvény a C10 cella értékét adja vissza, az =INDIREKT(A3) az A3 celláét. A #6250-ben leírt függvényben az "A" adja az oszlop betűjelét, a HOL.VAN függvény a sorszámot. -
Delila_1
veterán
-
Delila_1
veterán
Tömbnél hosszan lehet legírni a folyamatot, de néhány kattintással megoldható.
Elkészítettem 3 oszlopra egyenként a 3 kimutatást, mindenhol 2 oszlopom lett, ahol az első magát a számot, a másik a hozzá tartozó darabszámot tartalmazza.
A 3 kimutatás 2-2 oszlopát egymás alá másoltam értékként egy lap D-E oszlopába, D2-től kezdődően (az első sorba címet írtam), rendeztem az adatokat a D oszlop szerint emelkedő sorrendbe. F2 képlete: =D2, F3 képlete: =HA(D3=D2;F2+E3;E3). Ezt lemásoltam, a képletek helyére bemásoltam az értéküket (irányított beillesztés).
Rendeztem az adatokat. Első kulcs a D oszlop emelkedő, második az F oszlop, csökkenő sorrend.
Tettem a D oszlopra egy irányított szűrőt, más helyre, csak az egyedi rekordokat jelenítse meg, más helyre másolja, nálam a H1-be. Az I2 képlete: =FKERES(H2;D:F;3;0)
Most már csak a H:I területet kell rendezni az I szerint csökkenő sorrendbe. -
Delila_1
veterán
Ez a leggyorsabb, mert az Excel saját, beépített függvényét alkalmazzuk.
Lehetne egy ciklusban egyenként kikeresni az E oszlop értékeihez tartozó adatokat a másik lapon, eltenni egy változóba, és beírni az U oszlopba, de ez lassítaná a futást. A kitöltés - képlettel - és az érték beillesztése gyors művelet. -
Delila_1
veterán
Sub Keres()
Dim usor As Integer
usor = Sheets("IDE_MÁSOLD").Range("E65536").End(xlUp).Row
Sheets("IDE_MÁSOLD").Range("U1").Select
Selection.Formula = "=VLOOKUP(E1,PN!A:B,2,0)"
Selection.AutoFill Destination:=Range("U1:U" & usor), Type:=xlFillDefault
Columns(2).Copy
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Range("A1").Select
End SubÁtírtam az utolsó sor (usor) értékét, most az IDE_MÁSOLD lap E oszlopában lévő adatok alsó sorának számát veszi fel a változó.
A Range("A1").Select sorban írd az A1 helyére azt a cellát, ahonnan kényelmesen folytathatod a munkát. -
Delila_1
veterán
Azt nem írtad, hogy ezt a képletet melyik oszlopba akarod tenni. Én a Munka1 lapon a B oszlopba vittem fel.
Sub képlet()
Dim usor As Integer
usor = Sheets("PN").Range("A65536").End(xlUp).Row
Sheets("Munka1").Range("B1").Select
Selection.Formula = "=VLOOKUP(E1,PN!A:B,2,0)"
Selection.AutoFill Destination:=Range("B1:B" & usor), Type:=xlFillDefault
End SubAz usor=Sheets("PN" ... lekérdezi a PN lap A oszlop utolsó kitöltött sorának sorszámát. A következő sor a Munka1 lap B1 cellájára lép, az ezt követő beírja a képletet. A képlet másolását az utolsó sor végzi el kitöltéssel.
-
-
#6149
Delila_1
veterán
Fire/SOUL/CD
#6148
Delila_1
veterán
válasz
Fire/SOUL/CD
#6148
üzenetére
Úgy gondolom, ez a normális felfogás, azért egyforma a véleményünk.
A munkáltatóval elég annyit közölni, hogy ha útilaput köt egy alkalmazottja talpára, az feljelenti a törvénytelen bérelszámolások miatt. Akkor esetleg többel köti be. -
Delila_1
veterán
válasz
ulrik19
#6145
üzenetére
Nagy példát adtál a türelemre.
Szerintem felháborító, hogy bár 10 órán át dolgoztatják az embereket, igyekeznek ott megvágni őket, ahol csak tudják.
Ha valaki 13:00-kor kezd, és 10 órát dolgozik, akkor 1 óra délelőtt, 8 óra délután (délutános pótlék), és 1 óra éjszaka (éjszakás pótlék) számolandó el.
A délelőtt 6-14-ig, délután 14-22-ig, éjszaka 22-6-ig tart, az 5-kor kezdő melósnak 1 óra éjszakai pótlék jár.
A szüneteket sem a legnagyobb pótlékos időszakból, hanem arányosan kell levonni, nyilván nem az utolsó időszakban ebédel. Megkockáztatom, hogy a 8 órán túl dolgozó embernek több szünet jár(na).
Az sem normális dolog, hogy egy alkalmazottat kényszerítenek egy olyan elszámoló program elkészítésére (elkészíttetésére), ami kizsigereli a többi alkalmazottat. Hasonló módon akartak régebben velem is összeállíttatni egy elszámolást, de csak a törvényest voltam hajlandó megcsinálni. Beletörődtek...
1;"A")+DARABTELI(A1
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Új hozzászólás Aktív témák
Fferi50- Bittorrent topik
- MWC 2026: Úgy kell ide az aktív hűtés, mint kígyónak a sportcipő
- ASUS routerek
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Pécs és környéke adok-veszek-beszélgetek
- Ilyen olcsó sem volt még egy Apple notebook
- Sweet.tv - internetes TV
- gban: Ingyen kellene, de tegnapra
- Autós topik
- Amit látnod kell 80’ – 90’ évek, egész estét betöltő mozi filmjei.
- További aktív témák...
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- Vírusirtó, Antivirus, VPN kulcsok GARANCIÁVAL!
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- CÉGEK FIGYELEM!! iPhone 11 64GB Black -1 ÉV GARANCIA - 27% ÁFA-S SZÁMLA Kártyafüggetlen, 100% Akksi
- HIBÁTLAN iPhone SE 2020 64GB Black-1 ÉV GARANCIA - Kártyafüggetlen, MS4001
- BESZÁMÍTÁS! ASRock A520M R5 3600 16GB DDR4 512GB SSD RX 6600 8GB Rampage SHIVA Cooler Master 600W
- Azonnali készpénzes INTEL CPU NVIDIA VGA számítógép felvásárlás személyesen / postával korrekt áron
- MSI Prestige A16 AI+ Ryzen AI 9, 32GB DDR5 7500, QHD+ 165Hz csúcskategóriás ultralaptop!
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest