Hirdetés
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- eBay-es kütyük kis pénzért
- GoodSpeed: Márkaváltás sok-sok év után
- D@reeo: Pi-hole és a Telekom Sagemcom F@st 5670 DNS beállítása
- N€T0X|N: Poloskahegy
- bb0t: Ikea PAX gardrób és a pokol logisztikája
-
LOGOUT
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
-
#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... -
#6061
Delila_1
veterán
Fire/SOUL/CD
#6060
Delila_1
veterán
válasz
Fire/SOUL/CD
#6060
üzenetére
Nem egyformán értelmezzük a feladatot.
az "AAA" munkalap "C" oszlop bármelyik cellájába kattintva, abban megjelenik a legördülő lista, és ott kiválasztva egy értéket, maradjon az a cellában.
Ez nekem azt jelenti, hogy a C oszlopban egy halom cellába vitt be Bicé legördülőket. Ha ezt úgy csinálta, hogy bevitte az első cellába, megadta a bemeneti tartományt és a cellacsatolást, majd az lemásolta a többi cellába, akkor a cellacsatolás azonos az összesnél, és az utoljára kiválasztott adat mindegyik legördülő értékét felülírja.
Meg lehet adni minden sorban más-más csatolással, de (szerintem) sokkal egyszerűbb az érvényesítés, azt egy kijelölt területre egyszerre be lehet vinni.
-
Delila_1
veterán
Valószínű, hogy a választható listát az Űrlap eszköztárról vett kombi panellel, vagy a Vezérlők eszköztáráról a beviteli lista segítségével akartad megoldani.
Ne ezeket alkalmazd, hanem adj nevet az elemeket tartalmazó területnek (Beszúrás/Név/Név megadása), és a másik lapon a választható listát az Adatok/Érvényesítésnél add meg. A Megengedve mezőben Lista legyen, a Forrás pedig
=Adott_név
Ezt akárhány cellába (egyszerre is) beviheted, mindegyikben az ott kiválasztott érték marad meg.
Ha azonos lapon vannak a választható elemek és az érvényesítés, még elnevezni sem kell a tartományt, csak beírni pl. =$A$5:$A$15
Ha a tartomány A:A, akkor a teljes oszlopban szereplő elnevezések szerepelnek majd az érvényesítésben, követi az értékek számának bővülését, de a csökkenést nem, azok helyére üres sort ad. A csökkenés követéséhez érdemes az OFSZET függvény bevetése. -
Delila_1
veterán
A C1:C15 terület képleteinek értékét illeszti be a cellákhoz rendelt megjegyzésekbe.
Sub IrBeillMegjegyzbe()
Dim CV, Comment As Object
Dim Cellák As Range
Set Cellák = Range("C1:C15")
For Each CV In Cellák
If CV.Value > "" Then
CV.AddComment
CV.Comment.Text Text:=CV.Value & ""
'CV.Value = "" 'Cella képletének törlése
End If
Next
End Sub -
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Új hozzászólás Aktív témák
Fferi50- Stratégiai biztonsággal védekeznek a dráguló memóriák ellen a gyártók
- Melyik tápegységet vegyem?
- A Vivo S50 Pro mini is beáll a sorba
- Konzolokról KULTURÁLT módon
- Mibe tegyem a megtakarításaimat?
- Víz- gáz- és fűtésszerelés
- Soundbar, soundplate, hangprojektor
- Kivégezheti a kisebb VGA-gyártókat az NVIDIA döntése
- Lakáshitel, lakásvásárlás
- Formula-1
- További aktív témák...
- Árváltozás+játék!The Witcher 2 Assassins of Kings Collector's Edition
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most Ünnepi áron! :)
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Árváltozás + játék DVD: Watch Dogs Deadsec Edititon
- GYÖNYÖRŰ iPhone 13 128GB Pink -1 ÉV GARANCIA - Kártyafüggetlen, MS3431, 100% Akkumulátor
- iking - Apple iPhone 14 Pro Graphite ProMotion 120 Hz, 48 MP kamera, Dynamic Island 128 GB
- GYÖNYÖRŰ iPhone 13 mini 128GB Green -1 ÉV GARANCIA -Kártyafüggetlen, MS3899, 100% Akkumulátor
- BESZÁMÍTÁS! ASUS B560 i7 11700 32GB DDR4 512GB SSD RTX 4060Ti 16GB RAMPAGE Shiva A-Data 650W
- Bomba Ár! HP ProBook 650 G1 - i5-4GEN I 8GB I 128-256SSD I 15,6" HD I Cam I W10 I Garancia!
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: BroadBit Hungary Kft.
Város: Budakeszi