-
IT café
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
-
tgumis
tag
Sziasztok
Van arra valami megoldás hogyha elkezdek begépelni valamit a cellába akkor az felkínáljon egy listából értékeket amik tartalmazzák azt a betűkombinációt amit elkezdtem begépelni.
PL:
van egy listám a következő értékekkel:
ez a lista a CR1 : CR21 tartományba vancroissain csokoládés vaniliás min. 70 g 3 db
burkifli mákos 95-100gr 3 db
pizzás csiga 100 g 3 db
zsemle 3 db
kifli 3 db
zöld paprika 10 dkg
tv paprika 10 dkg
paradicsom 10 dkg
zöld paprika 7 dkg
tv paprika 7 dkg
paradicsom 7 dkg
alma
narancs
tej 0,5 l-es
minimargarin 1 db
minimargarin 2 db
minimargarin 3 db
gyümölcsjoghurt
gyümölcsös tejberizs
túró rudi 1 dbAz A1 cellába begépelem mondjuk, hogy min egy legördülő listában már csak a minimargarin jelenjen meg, hogy kiválasszam melyiket akarom a 3 ból. vagy beírom, hogy TV lés már csak a 2 TV paprikából választhassak.
Remélem érthető
[ Szerkesztve ]
-
Fferi50
őstag
válasz tgumis #23102 üzenetére
Szia!
Segítséget jelenthet az adatbevitelben az adatok érvényesítés - lista - lista forrása CR1:CR21
Ezután amelyik cellára ezt megadtad, ott egy legördülő listából választhatsz, nem kell beírnod semmit. Ha a forrást rendezed, akkor könnyebb lesz a keresés.
Üdv.
[ Szerkesztve ]
-
Fferi50
őstag
válasz tgumis #23104 üzenetére
Szia!
Tervező módban:
Tegyél fel egy combobox activexvezérlőt a munkalapra, a listfillrange a listát címe.
A matchentry tulajdonságot állítsd 1-fmmatchentrycomplete értékre
Így amint elkezded begépelni az értéket, a mejelenő lista szűkülni fog.
Hozzákötheted egy cellához (linked cell), ahonnan kimásolhatod az értéket.
Ha kilépsz a tervező módból látod a listádat és választhatsz belőle, amint rákattintottál, megjelenik az értéke a hozzákötött cellában.Üdv.
-
Szilard7
csendes tag
Sziasztok!
Remélem nem okozok nagy fejtörést, egy képletet keresnék, ami jócskán megkönnyíti munkám, ugyanis kb. 3 ezer sorról lenne szó, amit ki kell töltenem. Ezen a képen próbálom bemutatni a dolog lényegét. Adott a "H" oszlopom mindig változó értékekkel, de kb 10 féle variáció van csak belőlük, és mindig ugyanaz tartozik hozzájuk a "J" oszlopban. Ehez kérnék segítséget, hogy az üres részekhez a "J" oszlopba automatikusan bekerüljenek az oda tartozó adatok. A 3 ezer sorban végig meg van a "H" oszlopom, csak a "J"-ben van "üresedés"
Ezer köszönet annak, aki tud segíteni. -
tgumis
tag
Èn ùgy csinàlnàm,hogy először csinàlnèk egy szűkitett listàt az ismètlődő sorok eltàvolítàsàval. Módjuk a L oszlopba a h oszlop értékeiből mellette M oszlopba a hozzà tartozó j oszlop elemeivel.
Majd leszűröm a j oszlopot 0 vagy üres értékre.aztàn =index(M:M;hol.van(H1;L;0))
Szerintem ennyi. -
Fferi50
őstag
válasz Szilard7 #23107 üzenetére
Szia!
Ha biztos, hogy minden H oszlopbeli értékre van J oszlopbeli érték és az első H előfordulás mellett van a J oszlopban érték, akkor fkeres a barátod. Ha nem így lenne, akkor kapsz hibaértéket, amit az első előfordulásnál átírsz a helyesre és a többi kijavul (persze ezt H értékenként kellene megtenni).
Ha J11-től kezdődnek az üres cellák:
J11 képlete =fkeres(H11;$H$5:$H10;3;0)
Ezután húzd végig a J oszlopon a képletet.Vagy:
Csinálsz egy irányított (speciális) szűrést a H:J tartományodból átmásolva egy másik tartományba, bejelölve, hogy csak az egyedi értéket másolja át.
Ezután az fkeres kereső tartománya az új, kimásolt tartomány lesz, képlet mint fent, csak a $H$5:$H10 helyett az új tartomány $-os címét kell beírnod ($X$2:$Z$30).
Üdv.
[ Szerkesztve ]
-
Fferi50
őstag
válasz tgumis #23112 üzenetére
Szia!
Tettem fel ide egy kis példát. A combobox forrása az A2:A48 cellákban található. Hozzá van kapcsolva az F1 cellához.
Amikor elkezdesz gépelni valamit, akkor a megfelelő értékek automatikusan töltődnek, ha lehúzod a legördülő listát, onnan kezdődnek a választható értékek. Kiválasztod enterrel, majd kijelölsz egy cellát és rákattintasz. Ebbe a cellába automatikusan beíródik a combo (és az F1 cella) értéke.Remélem, segít neked ez a dolog.
Van még egy kikommentelt része is, ott a B oszlopot tölti folyamatosan, függetlenül attól, hogy hova kattintottál el a comboboxról.
Üdv.
[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz #02644736 #23056 üzenetére
Szia!
Nem voltam net közelében.
Mindkét lapon össze kell fűznöd az A és B oszlop adatait, közöttük pl. szóközzel.
A képen a Munka1 lap C2 cellájának a képletét láthatod a státuszsorban.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
tomi4506
csendes tag
válasz Delila_1 #23114 üzenetére
Helló Sürgős segítségre lenne szükségem...
Egy excelben munkafüzetben van több beillesztet nagy felbontású kép. Hogy tudom pdf-ként lementeni, úgy hogy ne csorbuljon a minősége a képeknek. A beállításokban a speciális fülön természetesen nincs bepipálva, hogy tömörítsen, szóval elvileg nem tömörít. Meg nagy 220ppi-re van állítva. De gondolom ezek csak excel formátumban lévő mentésre vonatkoznak. Próbáltam pdf nyomtatóval is, de akkor is rossz minőségű lettek a képek.Szóval, hogy tudom megtartani pdf-be való mentésnél az excelben lévő nagy felbontású képek minőségét?
-
botond187
csendes tag
Sziasztok,
Olyan kérdésem lenne, hogy milyen képlettel lehet beilleszteni 2 karaktert már létező cellákba úgy, hogy mindegyiknél a legelejére kerüljön ez a két karakter?
Köszönöm a válaszokat
-
Fferi50
őstag
válasz botond187 #23116 üzenetére
Szia!
Képlettel nem lehet módosítani az adott cella tartalmát, mert az körkörös hivatkozás hibát ad.
Vagy makrót írsz, vagy a mellette levő cellába beírod a következő képletet:
B1-be pl. ="XY" & A1 ahol XY a két új karakter. Ezután a cellát kijelölve másol, beilleszt értéket és ezt teszed át az eredeti cellába.Üdv.
-
botond187
csendes tag
Köszönöm a gyors választ, nemsokára kipróbálom.
[ Szerkesztve ]
-
Dolphine
addikt
Sziasztok!
Van olyan lehetőség az Excelben, hogy egy cellában ne egyesével kelljen kiválasztani a beírt érték színét?
Hogy pontosan mire gondolok:
Adott három különböző érdemjegy: szóbeli, írásbeli, témazáró - mind a három különböző színű.
Valami olyasmi kellene nekem, hogyha egy cellába beírok egy jegyet, akkor azonnal ki tudjam választani, hogy az érdemjegy milyen színű legyen. Az a baj, hogy az Érvényesítés nem jó. Hiába hozok létre egy listát, a cellába beírt szöveg mindig fekete lesz, ráadásul a legördülő menüben sem látszanak a színek.
Érthető egyáltalán, hogy mit szeretnék?Nem egyenlőre, hanem egyelőre! Nem ez miatt, hanem emiatt, vagy ez által!
-
Dolphine
addikt
válasz slashing #23122 üzenetére
Azt is próbáltam, de az sem az igazi, vagy csak rosszul csináltam.
Szóval az a lényeg, hogy amikor egy érdemjegy (jelen esetben egy szám) rögzítésre kerül, már akkor ki tudjam választani az adott színt, ne később kelljen választanom, mivel előfordul, hogy több tanuló jegyét is rögzítenem.
Így érthetőbb?Ha feltételes formázás, akkor milyen beállítással kellene kezdenem?
Nem egyenlőre, hanem egyelőre! Nem ez miatt, hanem emiatt, vagy ez által!
-
Fferi50
őstag
válasz Dolphine #23123 üzenetére
Szia!
Szinválasztásra ott a jobb egérgomb, cellaformázás, kitöltés. A három szined gyorsan ott lesz a kiválasztható szinek elején.
Vagyis beírod a jegyet, enter. Utána egérrel visszaállsz a cellára és végigcsinálod a fenti műveletet.De szerintem ennél sokkal jobb lenne, ha a három különböző eredményt 3 külön oszlopba írnád az adott tanulónál. Máris megvan oldva a probléma, még az oszlopot is színezheted, ha akarod.
Üdv.
-
slashing
senior tag
válasz Dolphine #23123 üzenetére
Szerk:
Jah érték színről van szó, kicsit figyelmetlen voltam (1-es hehe) akkor ugyan ez csak nem háttérszínt definiál az ember hanem szövegszínt...Nem tudom mit értesz azon hogy "kiválasztani a színt"
itt van két variáció:
itt megadtam egyesével a színeket minden érdemjegyhez..[ Szerkesztve ]
-
Dolphine
addikt
válasz slashing #23125 üzenetére
Azt hiszem, nem tudom elmagyarázni!
Nekem olyan kellene, hogy a számok színe aszerint legyen más, hogy milyen típusú!
Pl. Az összes témazáró jegye piros, vagy a szóbeli felelet száma kék, stb.Fferi50
De szerintem ennél sokkal jobb lenne, ha a három különböző eredményt 3 külön oszlopba írnád az adott tanulónál. Máris megvan oldva a probléma, még az oszlopot is színezheted, ha akarod.Ezt nem egészen értem!
[ Szerkesztve ]
Nem egyenlőre, hanem egyelőre! Nem ez miatt, hanem emiatt, vagy ez által!
-
Fferi50
őstag
válasz Dolphine #23138 üzenetére
Szia!
Javaslatom következő: (kicsit módosítva a már korábban leírtakat).
Beírod a számot a cellába,kijelölöd a számot, benne maradsz a cellában, jobb egérgomb - cella formázás, betűszint kiválasztod, ok. Utána enter.
Ki sem kell lépned a cellából a betűszínezéshez.Üdv.
[ Szerkesztve ]
-
maestro87
őstag
Üdv!
Van egy táblázat tele számokkal, és kiszeretnék emelni közülük párat. A probléma csak annyi, hogy ha rákeresek pl. a 6-os számra akkor a 16-os, 26-os stb. számokat is találatnak veszi. Hogy lehetne ezt kiszűrni?
-
Fferi50
őstag
válasz botond187 #23141 üzenetére
Szia!
Két dolog okozta a hibát:
1. Az első sortól indítottad a ciklust és így a cikkszámot is kereste, ami persze nem volt.
Ezért ezt a sort: For sor = 1 To usor át kell javítani erre: For sor = 2 To usor
2. Az A oszlopban vannak üres cellát, ami szintén hibát okoz. Vagy "eltünteted" az üres cellákat, vagy beírod a következő feltételt a makróba:
ehhez = Cells(sor, "A")
If ehhez <> "" Then
sorS = Application.Match(ehhez, Range("D:D"), 1)valamint a lezárását:
Next
End If
NextA félkövérrel szedett sorokat kell beszúrnod a másik kettő közé.
Üdv.
[ Szerkesztve ]
-
Xenon86
újonc
Sziasztok!
Szeretnék segítséget kérni egy makróhoz. A feladathoz mellékeltem egy kis képecskét is. 2007-es Excelem van. Tehát a feladat, amelyhez a makró kell, a következő lenne:
Az adathalmazban (például B2: F22) számolja meg, hogy a megadott számhármasokból (például a H2:J2, aztán H3:J3 és így tovább) hány darab van? És a darabszámot írja ki a megfelelő számhármas melletti mezőbe (K3 és így tovább)?A segítséget előre is köszönöm!
[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz Xenon86 #23146 üzenetére
A makró a futás idején segédoszlopként használja az L1:M22 tartományt, majd törli ezeket az adatokat.
Abba a sorba, ahol egyezést talál, a G oszlopba X-et ír.Sub HolVan()
Dim sor As Integer, sor1 As Integer
Range("L1") = "_"
Range("L2:L22") = "=B2 & L$1 & C2 & L$1 & D2 & L$1 & E2 & L$1 & F2"
Range("M2:M5") = "=H2 & L$1 & I2 & L$1 & J2"
For sor = 2 To 22
For sor1 = 2 To 5
If InStr(Cells(sor, "L"), Cells(sor1, "M")) Then
Cells(sor, "G") = "X"
Exit For
End If
Next
Next
Range("L1:M22").ClearContents
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.
-
Fferi50
őstag
válasz botond187 #23145 üzenetére
Szia!
A makró elejére írd be egy uj sorba:
Dim szamol as integerIde szúrd be a félkövér sort:
sorS = Application.Match(ehhez, Range("D:D"), 1)
szamol = 0
For sorK = 1 To usorIde szintén:
If Cells(sorK, "A") >= tol$ And Cells(sorK, "A") <= ig$ Then
If szamol = 6 Then Exit For
If Cells(sor, "B") = "" Then
És még ide:
End If
szamol = szamol + 1
End IfÜdv.
-
Delila_1
Topikgazda
válasz Xenon86 #23146 üzenetére
Figyelmesebben olvasva a kérdést átírtam a makrót.
Ez a K oszlopba írja be a darabszámokat.Sub HolVan()
Dim sor As Integer, sor1 As Integer
Range("L1") = "_"
Range("L2:L22") = "=B2 & L$1 & C2 & L$1 & D2 & L$1 & E2 & L$1 & F2"
Range("M2:M5") = "=H2 & L$1 & I2 & L$1 & J2"
For sor = 2 To 22
For sor1 = 2 To 5
If InStr(Cells(sor, "L"), Cells(sor1, "M")) Then
Cells(sor1, "K") = Cells(sor1, "K") + 1
End If
Next
Next
Range("L1:M22").ClearContents
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.
-
slashing
senior tag
talán képlettel is menne, eddig jutottam:
=DARABHATÖBB($B$2:$B$8;"="&$H2;$C$2:$C$8;"="&$I2;$D$2:$D$8;"="&$J2)
ha a tartomány ahol keresni kell csak 3 cellás akkor már jól működik. Kicsit tovább kéne gondolni, de nincs erőm hozzá és a macro is kész úgyhogy passzolom a dolgot.
Új hozzászólás Aktív témák
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Canva Pro előfizetés - 1 éves
- Eredeti Windows, telepítéssel! Digital Doctor Számítógép Szerviz
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office