- Garmin Forerunner 970 - fogd a pénzt, és fuss!
- A sógorokhoz érkezik a kompakt Vivo X200 FE
- Samsung Galaxy S25 - végre van kicsi!
- Magisk
- Hivatalos a OnePlus 13 startdátuma
- Mi nincs, grafén akku van: itt a Xiaomi 11T és 11T Pro
- Samsung Galaxy Watch6 Classic - tekerd!
- Milyen okostelefont vegyek?
- Csak semmi szimmetria: flegma dizájnnal készül a Nothing Phone (3)
- Fotók, videók mobillal
-
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
-
-
#4216
Delila_1
veterán
bagyulajuve
#4215
Delila_1
veterán
válasz
bagyulajuve
#4215
üzenetére
Erre gondoltál?
-
#4209
Delila_1
veterán
Fehér Mancs
#4208
Delila_1
veterán
válasz
Fehér Mancs
#4208
üzenetére
Igazad van. Amiket próbaképp beírtam, azoknál jól működött. Nem gondoltam végig a dolgot.
-
#4207
Delila_1
veterán
mimi_bacsi
#4206
Delila_1
veterán
válasz
mimi_bacsi
#4206
üzenetére
Szívesen. Remélem, ez már jó lesz.
-
#4205
Delila_1
veterán
mimi_bacsi
#4204
Delila_1
veterán
válasz
mimi_bacsi
#4204
üzenetére
A1-be (30 mínusz F1 nevezője):
=HA(KÖZÉP(F1;SZÖVEG.KERES("/";F1)+1;20)>"30";"";30-KÖZÉP(F1;SZÖVEG.KERES("/";F1)+1;20)*1)B1-be (30 mínusz F1 számlálója):
=HA(BAL(F1;SZÖVEG.KERES("/";F1)-1)>"30";"";30-BAL(F1;SZÖVEG.KERES("/";F1)-1)*1) -
#4203
Delila_1
veterán
mimi_bacsi
#4202
Delila_1
veterán
válasz
mimi_bacsi
#4202
üzenetére
Szia Mimi_bácsi!
Te is rendesen belekavarodtál!
A #4199-es kérdésedben 60-ig kellett volna kiírni a különbséget, most meg 30-ig.A két lenti képlet eredménye A1-ben: ha az F1-ben szereplő tört számlálójában vagy nevezőjében szereplő érték nagyobb 30-nál, akkor az A1-ben üres string (látszólag semmi) jelenik meg. Amennyiben mindkét érték kisebb 30-nál, akkor 60 mínusz a nevező szerepel itt.
A B1 cellában üres string lesz, ha az F1 bármelyik értéke nagyobb, mint 30. Ha mindegyik kisebb 30-nál, akkor 60 mínusz a számláló lesz az eredmény.
Ha a mostani kérdésed az igazi, mindkét képletben írd át a 60-at 30-ra.
A1-be:
=HA(VAGY(BAL($F$1;SZÖVEG.KERES("/";$F$1)-1)>"30";KÖZÉP($F$1;SZÖVEG.KERES("/";$F$1)+1;20)>"30");"";60-KÖZÉP($F$1;SZÖVEG.KERES("/";$F$1)+1;20)*1)B1-be:
=HA(VAGY(BAL($F$1;SZÖVEG.KERES("/";$F$1)-1)>"30";KÖZÉP($F$1;SZÖVEG.KERES("/";$F$1)+1;20)>"30");"";60-BAL($F$1;SZÖVEG.KERES("/";$F$1)-1)*1) -
#4201
Delila_1
veterán
mimi_bacsi
#4199
Delila_1
veterán
válasz
mimi_bacsi
#4199
üzenetére
Láttam a kérdést, de nem tudtam kihámozni, melyik esetben miből kell levonni a két szám összegét. A 32/31-nél mindkét szám nagyobb 30-nál, a 822/2 esetében csak a 822.
Szóval pontosítsd a kérdést.Igaza van Fire-nek, a képleteket Ctrl+c, és Ctrl+v segítségével vidd be az Excelbe. A kézi beírásnál lemaradhatott a képletek végéről a dupla idézőjel.
-
#4196
Delila_1
veterán
mimi_bacsi
#4195
Delila_1
veterán
válasz
mimi_bacsi
#4195
üzenetére
=HA(F2<30;F2;"")
A HA függvénynél első paraméter a feltétel (F2<30), másodikban adod meg, hogy mit csináljon, ha a feltétel igaz (F2, vagyis írja ki az F2 értékét), harmadikban az szerepel, amit hamis érték esetén kell kiírni ("", üres string).
Ha az F2 cella 30-as értékét is ki kellene íratni, akkor =HA(F2<=30;F2;"") a képlet. A feltétel ebben az esetben azt mutatja, hogy egyenlő, vagy kisebb mint 30.
-
#4191
Delila_1
veterán
mimi_bacsi
#4190
Delila_1
veterán
válasz
mimi_bacsi
#4190
üzenetére
Magyarra fordítva Fehér Mancs képletét:
B1 -> =bal(a1;szöveg.keres("/";a1)-1)
C1 -> =közép(a1;szöveg.keres("/";a1)+1;20)Nem alakítottam az értékeket számokká.
-
Delila_1
veterán
válasz
Gabcsika
#4169
üzenetére
A sorokat kellett volna törölnöd, nem az adatokat. Egy szűrés üresre, vagy rendezés után megteheted.
A vlookup csak a kritériumnak megfelelő első sort adja, használd az irányított szűrést. Angolban nem tudom, magyarban Adatok/Szűrő/Irányított szűrő. A súgóban megtalálod a leírását. -
Delila_1
veterán
A T lapodon egy üres sort (pl. a 100-ast) szöveg formátumúra alakítasz.
A D100 cellába jön a 01, ezt jobbra húzod az E100-ig. A szöveg formátumba írt számjegyeket a kitöltés automatikusan növeli eggyel. (Ctrl lenyomása mellett nem növeli az értéket, míg szám-, vagy általános formátumnál éppen fordítva hat a Ctrl használata).D6-ba:
=indirekt(D$100&"!"&"A44")Ezzel a képlettel kitöltöd áthúzással AH6-ig a sort.
A 100 elé azért tettem $ jelet, mert a 31 lapról valószínűleg nem csak a 44-es sorra akarsz hivatkozni, és így a T lap 6-os sorát másolhatod oda, ahova még kellenek a hivatkozások, csak az "A44"-et kell átírni. -
Delila_1
veterán
Tud tovább számolni, ha egy képletet tartalmazó cellára hivatkozol egy másikban.
Nem változik meg a cella képlete, ha áthúzod a cellát egy másik helyre.
A B2 tartalmat a Szerekesztés/Keresés funkcióval tudod leghamarabb megtalálni.
Az Eszközök/Munkalapvizsgálatnál találod az Elődök- és az Utódok mutatását, próbáld ki.
Még egy mód a keresésre:
Kijelölöd a táblázatodat (a táblában állva Ctrl+t), Szerkesztés/Ugrás/Irányított/Képletek.
Ez kijelöli táblázatban az összes képletet tartalmazó cellát. -
Delila_1
veterán
válasz
cortez25
#4116
üzenetére
Igen, de csak egyenként (ha nincs hozzá külön makró).
Adatok/Sorba rendezés/Egyebek/Balról jobbra.
Mire jutott a FŐNÖK?
Szerk.:
Az első sort kijelölöd, a fentiek szerint rendezed.
Kijelölöd a következő sort, F4 ismétli az előző műveletet. Következő sor, F4, és így tovább.
Az F4 sokszor használható az előző művelet ismétlésére, pl. formátum megadásánál. -
Delila_1
veterán
válasz
cortez25
#4106
üzenetére
Akkor a feltételes formázást tudom ajánlani.
Kijelölöd a teljes táblázatot (a táblában állva Ctrl+t -vel). Formátum/Feltételes formázás.
Az első legördülőből "A cella értéke", a másodikból "egyenlő".
A harmadikba beírod: =T1 (ha történetesen a T1-be akarja beírni a FŐNÖK a keresendő számot.
A formátum gomb segítségével választasz neki piros, félkövér karaktert, hupikék hátteret, és püspöklila keretet.Imádom az ilyen titokzatos főnököket...
-
Delila_1
veterán
válasz
Bubu maci
#4099
üzenetére
A kérdésre:
Sub torl()
Rows("41:49").Select
Selection.EntireRow.Delete
End SubA makró, amit írtam, végigmegy a sorokon. Amelyik sor A oszlopában betűt talál, vagy üres stringet, azt a sort kitörli. Vagyis nem kell végignézned, hogy a 41:49, 81:89 sorok üresek-e. Ha már megnézed, egyből ki is törölhetnéd.
Ezt a gyalogos módszert küszöböli ki a makró. -
-
Delila_1
veterán
válasz
Bubu maci
#4095
üzenetére
Tegyél be egy autoszűrőt a címsorba (Adatok/Szűrő/Autoszűrő), és ott atokat szűrd ki az Egyéni kategóriában, amik nagyobbak vagy egyenlőek A-val. Ezeket aztán egyszerre törölheted.
Azért gondolom, hogy így ki tudod választani a törlésre szánt sorokat, mert a többi adatodat már számmá alakítottad, és ezek a sorok valószínűleg nem számok. -
Delila_1
veterán
Beszúrás/Hiperhivatkozás.
A "Hivatkozott cím"-nél a "Létező fájl vagy weblap" legyen érvényes. A Fájl... gomb segítségével kikeresed a képedet - figyeld a kiterjesztést -, aminek az elérési útja és a neve bekerül a "Megjelenő szöveg"- és az "Írja be a fájl vagy weblap nevét:" rovatba.
Az előbbiben átírhatod egy rövidebb, jellemző névre.Formázhatod is a szöveget, de nem úgy, hogy a cellára kattintasz, mert akkor behívja a képet (ez volt a cél), hanem a kurzor billentyűkkel lépsz oda.
-
-
#4079
Delila_1
veterán
Fire/SOUL/CD
#4076
Delila_1
veterán
válasz
Fire/SOUL/CD
#4076
üzenetére
Nekem Calendar vezérlőm van, annál elég a
Private Sub Calendar1_Click()
Selection = Calendar1.Value
End SubEz az aktív cellába, és a kijelölt területre egyaránt beviszi a kiválaszott dátumot.
Az előző kérdésedre: magam tanulgatok, és egy ideje különböző fórumokon járva ismerkedem az Excel rejtelmeivel.
Jó, hogy most megjelentél, mert a régebbi "válaszadók" valahogy eltűntek. Pedig nem árt a kontroll, pl. hiányolom Lúzert, aki az én bonyolult válaszaimat sokkal egyszerűbbre konvertálta. -
#4073
Delila_1
veterán
Fire/SOUL/CD
#4070
Delila_1
veterán
válasz
Fire/SOUL/CD
#4070
üzenetére
Megihletett a makród, írtam egy egyszerű színátmenetet. Persze semmi értelme, mert lefogja a memóriát. A Szincsere makrón változtattam egy keveset.
Sub Szincsere()
If Range("A1") = "ok" Then
For a = 235 To 50 Step -1
Range("A1").Interior.Color = RGB(a, 0, 0)
Range("A1").Font.Color = RGB(a + 20, a + 20, a + 20)
Next
End If
Idozites = Now + TimeSerial(0, 0, 1)
Application.OnTime Idozites, "Szincsere", , True
End Sub -
#4071
Delila_1
veterán
Fire/SOUL/CD
#4070
Delila_1
veterán
válasz
Fire/SOUL/CD
#4070
üzenetére
Klassz!
-
Delila_1
veterán
válasz
Gabcsika
#4062
üzenetére
Az, hogy miben tér el a két oszlop, a tartalmuktól függ. A Ha függvénnyel kérheted az egyenlőség, ill. a NEM egyenlőség megmutatását.
=HA(A1=B1;"Azonosak";"Eltérnek")
Ha összegek vannak a két oszlopban, akkor
=Ha(A1>B1;"'A' nagyobb";ha(B1>A1;"'B' nagyobb";"Egyenlőek"))
Ez tulajdonképpen szövegek összehasonlítására is jó, ott a "nagyobb" azt jelenti, hogy az ABC rendben később szerepel.
-
Delila_1
veterán
Még a szűrés előtt a taretományod alá beírod
=részösszeg(2;tartomány)
A 2 egy függvényszám, ami azt mondja meg a függvénynek, hogy a kijelölt tartomány darabszámát kéred. Ez azután mindig a szűrésnek megfelelő tartomány darabszámát adja.
Nézd meg a súgóban a részösszeg leírását, más függvényszámokkal más adatokat ad meg a ugyanarról a tartományról. -
Delila_1
veterán
A $-os adatoknál egy üres oszlopba beviszed a lenti képletet, és lemásolod az adataid mellé:
=ÉRTÉK(JOBB(A1;HOSSZ(A1)-1))
Ezt már tudod összegezni, és irányítottan, értékként rá is illesztheted az eredeti, $ jeleket tartalmazó oszlopodra.Az 1,804.00 típusú adatokat 3 lépésben, cserékkel állíthatod magyar formátumúra.
1. Mit cserélhez pont, mire cserélihez pl. &
2. Mit cserélhez vessző, a mire cseréli rubrikát üresen hagyod.
3. Mit cserélhez &, mire cserélihez vessző -
-
Delila_1
veterán
Szia!
Beállíthatod a nyomtatási képnél, a Beállítások Oldal fülén, hogy x oldal széles, és y oldal magas legyen, azt valószínűleg a másik printer is respektálja.
Szintén a nyomtatási képnél bekapcsolhatod a margókat, ahol az egyes oszlopok szélességén is könnyen állíthatsz.
-
Delila_1
veterán
Másik printerhez más beállítások lehetnek szükségesek (pl. a fej nem egyforma mértékben tud oldalra mozdulni).
A szaggatott vonalakat akkor is megkapod, ha a Nézet menüben az Oldaltörés megtekintését választod, nem kell előbb a Nyomtatási kép menübe sétálnod. Ebben a nézetben még feltűnőbbek is az oldal határok, vastag kék szaggatott vonallal vannak jelölve. Ezeket az egérrel áthúzhatod máshova, akkor folyamatosak lesznek, jelölve, hogy kézzel beállított törésvonalak. A Beszúrás/Oldaltörés menüponttal is tudsz új törésvonalat bevinni.
A kézi törést úgy tudod megszüntetni, hogy alá (vagy függőlegesnél mögé) állsz, és a Beszúrás menüből az Oldaltörés eltávolítását választod.
-
Delila_1
veterán
válasz
glutamin
#4035
üzenetére
Más lapra úgy vihettél fel listát, hogy nevet adtál neki a Beszúrás/Név/Név megadása párbeszéd ablakban. Ugyanitt módosíthatod a tartományt.
Törölni az érvényesítést legkönnyebben az Adatok/Érvényesítésnél teheted meg a bal alsó sarokban található "Törli mind" gombbal. -
Delila_1
veterán
Azt már értem, hogy az I és T megváltozott N-re és D-re. A többi viszont kissé zavaros. A csatolt képen nem látszanak a képletek, a felső szövegdobozban pedig szerepel egy KV oszlop, ami valószínűleg K:V akart lenni.
Legjobb lesz, ha elküldöd a fájlt az email címemre, persze csak ha valaki nem válaszol a fórumon. -
Delila_1
veterán
A lapfülön jobb klikk, Kód megjelenítése. Bejutottál a VB szerkesztőbe. Jobb oldalon kaptál 1 üres lapot, oda másold be a makrót.
Az I, vagy T betűt a Q oszlopba írd. Jó az i és a t is.Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 17 And (Target.Value = "I" Or Target.Value = "i") Then
Cells(Target.Row, 16) = Cells(Target.Row, 6)
Cells(Target.Row, Target.Column) = ""
End If
If Target.Column = 17 And (Target.Value = "T" Or Target.Value = "t") Then _
Cells(Target.Row, 17) = Cells(Target.Row + 1, 6)
End SubHa lenne egy külön oszlop, amibe beviszed a két betűd valamelyikét, akkor az ssrobi által említett HA függvénnyel simán meg lehetne oldani.
-
Delila_1
veterán
Meg kell alkudnod a körülményekkel, más (pl. C) oszlopba kell beíratnod az összeget. A targetnek az a dolga, hogy új számítással reagáljon a hivatkozott oszlopban történő változásra.
Sub Worksheet_Change(ByVal Target As Excel.Range)
If (Target.Column = 2) Then
sor = Target.Row
Cells(sor, 3) = Cells(sor, 1) + Cells(sor, 2) / 60 / 24
End If
End Sub -
-
Delila_1
veterán
válasz
Hosssszu
#3997
üzenetére
Vigyázz! a makró írásánál feltételeztem, hogy a D oszlopod üres. Ideiglenesen oda helyezek adatokat.
Ha nem szabad az oszlop, két helyen kell átírni a makrót. A
Selection.Cut Destination:=Cells(sor_a, 4) sorban a 4-et mondjuk 30-ra,
és ennek megfelelően a
Range("D2: D" & usor).Select sort Range("AD2:AD" & usor).Select-re.Mód.: ez a fránya átírta. A fenti sor elején a kettőspont után a D elé be kellett tennem egy szóközt, hogy ne egy vigyori fej
(ilyen) jelenjen meg. -
Delila_1
veterán
válasz
Hosssszu
#3997
üzenetére
Nem is annyira egyszerű a dolog, de azért itt a makrós megoldás:
Sub rendez()
usor = Range("A65536").End(xlUp).Row
For sor_a = 2 To usor
adat = Cells(sor_a, 1)
For sor_b = 2 To Range("B65536").End(xlUp).Row
If Cells(sor_b, 2) = adat Then
Cells(sor_b, 2).Select
Selection.Cut Destination:=Cells(sor_a, 4)
End If
Next
Next
also = usor
For sor_b = 2 To usor
adat = Cells(sor_b, 2)
If adat > "" Then
also = also + 1
Cells(sor_b, 2).Select
Selection.Cut Destination:=Cells(also, 2)
End If
Next
Range("D2:D" & usor).Select
Selection.Cut Destination:=Range("B2:B" & usor)
Range("B2:B21").Select
End Sub -
Delila_1
veterán
http://www.mnb.hu/engine.aspx?page=arfolyamlekerdezes
Erről az oldalról naponta letöltheted az aktuális árfolyamokat xls-ben. Elméletileg választhatsz időintervallumot, de úgy látom, a választás ellenére visszamenőleg 1 hónap adatait adja 67 pénznemre. Alapértelmezésben arfolyam2008.xls címen mentheted a fájlt - jelenleg.
Lehetne makrót írni rá, ami kikeresi az alsó sort, és az általad meghatározott oszlopból ezt az adatot illeszti be a táblázatodba, de mivel csak 3 értékre van szükséged, azt kézzel is könnyen átteheted. -
Delila_1
veterán
válasz
Gabcsika
#3971
üzenetére
Húzd át Excelbe. Az egészet beteszi az A oszlopba.
Jelöld ki az oszlopot, Csere.
Mit kereshez írj egy szóközt, Mire cserélihez semmit. Mindet cserélje.
Marad a kijelölés, a cserénél a Ft-ot cseréld semmire.
Adatok/Szövegből oszlopok/Tagolt, a következő oldalon a határolójel Más, mellé írd be a / jelet. Kész.
A B oszlop adatait ezután formázhatod úgy, hogy mögötte legyen minden sorban Ft. -
#3970
Delila_1
veterán
SystemRoot
#3969
Delila_1
veterán
válasz
SystemRoot
#3969
üzenetére
Igen, PMT.
-
Delila_1
veterán
Ez sokkal összetettebb annál, hogy egy fórumon el lehessen mesélni.
Nekiláttam csinálni egy 3 adatot tartalmazó förmedvényt mintának. Mikor majdnem a végére jutottam, elszállt a gépem, és vele a lelkierőm.
UserFormot kell készíteni hozzá, annak nézz utána.
Hány adatod van egy-egy rekordban?Szerk.: ne ijedj meg, nem nehéz, csak babrás munka.
-
-
#3951
Delila_1
veterán
mimi_bacsi
#3950
Delila_1
veterán
válasz
mimi_bacsi
#3950
üzenetére
Szívesen.
-
#3948
Delila_1
veterán
mimi_bacsi
#3947
Delila_1
veterán
válasz
mimi_bacsi
#3947
üzenetére
Megkaptam. Most egy ideig nem tudok foglalkozni vele, de ha sikerül megoldani, azonnal visszaküldöm.
-
#3945
Delila_1
veterán
mimi_bacsi
#3944
Delila_1
veterán
válasz
mimi_bacsi
#3944
üzenetére
Nosza!
A #4199-es kérdésedben 60-ig kellett volna kiírni a különbséget, most meg 30-ig.
(ilyen) jelenjen meg.
Új hozzászólás Aktív témák
Hirdetés
Fferi50- Garmin Forerunner 970 - fogd a pénzt, és fuss!
- Spórolós topik
- HDD probléma (nem adatmentés)
- A sógorokhoz érkezik a kompakt Vivo X200 FE
- Nintendo Switch 2
- Samsung Galaxy S25 - végre van kicsi!
- Horgász topik
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- EAFC 25
- Luck Dragon: Asszociációs játék. :)
- További aktív témák...
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Antivírus szoftverek, VPN
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- ROBUX ÁRON ALUL - VÁSÁROLJ ROBLOX ROBUXOT MÉG MA, ELKÉPESZTŐ KEDVEZMÉNNYEL (Bármilyen platformra)
- ÁRGARANCIA! Épített KomPhone Intel i7 14700KF 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- ÁRGARANCIA!Épített KomPhone Ryzen 7 5700X3D 32/64GB RAM RX 7800 XT 16GB GAMER PC termékbeszámítással
- Több mint 70.000 eladott szoftverlicenc
- Telefon felvásárlás!! iPhone 13 Mini/iPhone 13/iPhone 13 Pro/iPhone 13 Pro Max
- Több Lenovo Thinkpad x1 carbon gen 4 / 5 / 6 / 7 X1 Yoga gen3 6-9. gen i7, i5 procik
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: Promenade Publishing House Kft.
Város: Budapest