-
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
-
-
GAbre
veterán
Sziasztok!
Szótáraznék excelben.
Olyan gondban vagyok,hogy ha elrejtem a helyes válaszokat tartalmazó oszlopot,és félrekattintottam többet nem tudom felfedni,hiába jobb klikk,vagy formátum menüsor.
Kis önellenőrzést akarok beiktatni.
Nekem úgy is jó lenne,ha felhívná a figyelmet milyen betűk,szavak voltak hibásak,lehetőleg a legvégén.
De nem találtam megoldást,függvényt rá
Kérnék 1 kis segítséget.Köszönöm.Avatar
-
Baliii87
újonc
Sziasztok!
Épp a napokban kezdtem el az excel tudásom felelevenítését, és szeretném fejleszteni magam a témában.Tudnátok segíteni abban,hogy honnan tudnék letölteni mintafeladatokat megoldással vagy ha tudnátok küldeni, annak is nagyon örülnék.
Üdv,
Balázs
-
Sam Lowry
újonc
Sziasztok!
Abban szeretném kérni a segítségetek, hogy az excelben, van e olyan funkció, amivel meg tudom oldani, hogy az alábbi képen látható oszlopomban lévő számok, utolsó három számjegyét törölje. Több mint ezer sor van ebben az oszlopban, egyesével törölgetni nem lenne túl kellemes.
Az office verzió :excel 2007. SP3, magyar nyelvű
Előre is köszönöm ha valaki tud segíteni.
[ Szerkesztve ]
-
föccer
nagyúr
Szép napot!
Úgy néz ki, hogy céges környezetbe fogok tudni makrót futtatni. Hallelúja.
Van egy tábla, amely soronként tartalmazza a releváns információkat. Az értékelést úgy végzem, hogy autószűrővel leválogatom a szükséges sorokat, és összesít függvénnyel keresem az min, max, átlag és szórás értékeket:
=ÖSSZESÍT(5;3;Z22:Z1048576)
Ezek mellett szükségem lenne a leszürt táblázatból olyan adatokra is, amelyek szöveges adatok, amellyel nem boldogulok föggvénnyel. Hogyan tudom makróval átellenőrízni, hogy egy adott sort az autószűrő kivett-e vagy sem?
Példa:
A oszlopban szűrök 1 szöveges értékre. Adatok A22:A10000 tartományban. Elvileg a szürt adatok közül minden esetben ki van véve az üres cellák, így elég A22-től addig keresni, amíg nem talál üres cellát. Az A18-as cellába kellene kiíratni a leszürt szöveges értéket.
Ha megy függvénnyel az még jobb lenne, de ha csak makróüval megy az sem gond.
régebben volt már egy ilyen kérdésem, de nem találom
Köszi szépen a segítséget.
üdv, föccer
Építésztechnikus. Építőmérnök.
-
Fferi50
őstag
válasz föccer #35861 üzenetére
Szia!
Bármily meglepő legyen is, de elsőre nem értem, mit szeretnél... Próbálok következtetni.
Tehát van egy táblád, amit leszűrtél valamilyen szempont szerint.
Ebben a táblában szeretnél megkeresni egy másik értéket valamelyik oszlopban, olyat, amelyik nem képezi a szűrés tárgyát? De akkor mit kellene kiírni az A18 cellába, hiszen a keresett értéket elvileg ismered...
Az, hogy egy cella benne van-e a szűrésben vagy nincs, a sor hidden tulajdonsága mutatja meg:
Activecell.Entirerow.Hidden ha False, akkor látható a sor, ha True, akkor nem látható.
A szűrésben levő látható tartományt a SpecialCells alkalmazásával lehet megkapni:Set latszik=ActiveSheet.UsedRange.SpecialCells(xlCelltypeVisible)
hozzárendeli a latszik változóhoz a látható cellákat. Figyelem: ez általában nem összefüggő tartomány, hanem területek(Areas) összessége és természetesen benne van a fejléc is. Ezt figyelembe kell venni, amikor használod a változót.
Ebben a tartományban természetesen lehet keresni a Find metódussal, vagy megtudni, hogy egy adott cella szerepel-e a tartományban az Intersect metódussal.Sajnos munkalap függvények szerintem nem jöhetnek szóba, mivel azok nem érzékenyek a láthatóságra (kivétel a részösszeg...).
Ha kicsit pontosabb a kérdésed, akkor többet tudnánk segíteni.
Üdv.
-
föccer
nagyúr
válasz Fferi50 #35862 üzenetére
A keresett értéket ismerem, de nem tudom/akarom kézzel begépelni.
Tehát leszűrük egy több feltétel szerint egy adattáblát, és a szűrt táblázat első érvényes sorában szereplő, szöveg értékeket akarom kinyerni. A szám adatokkal megbírkózok az összesít függvénnyel el tudom végezni az elemzést, illetve átlagolással ki tudom nyerni az infót. A szöveggel van bajom.
Tehát a leszüt lista első sorából kellene a felső részre átpaterolni az adatokat, ahonnan egy mozdulattal tovább tudom tolni érték másolással.
Köszi
Építésztechnikus. Építőmérnök.
-
Delila_1
Topikgazda
válasz föccer #35863 üzenetére
Szűrés után futtathatod a modulba másolt makrót.
Sub sorszam()
Dim sor As Long, oszlop As Integer
For sor = 23 To 1000
If Rows(sor).Hidden = False Then
For oszlop = 1 To 5
Cells(1, oszlop) = Cells(sor, oszlop)
Next
For oszlop = 15 To 24
Cells(1, oszlop) = Cells(sor, oszlop)
Next
Exit Sub
End If
Next
End Sub[ 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.
-
Fferi50
őstag
válasz föccer #35863 üzenetére
Szia!
Ezt a makrót is megpróbálhatod:
Sub masol()
Dim rrange As Range
Set rrange = Range(Range("A22"), Cells(Range("A22").End(xlDown).Row, Range("A22").End(xlToRight).Column)).SpecialCells(xlCellTypeVisible) ' a szűrés után látható cellák
If rrange.Areas.Count = 1 Then 'ha egybefüggő a tartomány
Set rrange = rrange.Rows(2) 'a második sor kell nekünk
Else
If rrange.Areas(1).Rows.Count >= 2 Then 'ha az első terület legalább 2 sorból áll
Set rrange = rrange.Areas(1).Rows(2) 'a második sora kell nekünk
Else
Set rrange = rrange.Areas(2).Rows(1) 'az első terület egy sorból állt, ezért a második terület első sora kell nekünk
End If
End If
With Rows(18) ' a 18. sorba átírjuk az értékeket.
.Cells(1).Value = rrange.Cells(1).Value
.Cells(5).Value = rrange.Cells(5).Value
Range(.Cells(1, "o"), .Cells(1, "x")).Value = Range(rrange.Cells(1, "o"), rrange.Cells(1, "x")).Value
End With
End SubEz akkor működik hibátlanul, ha a szűrősorodban és az adattábládban mindenütt van adat, a tartomány végéig, nincsenek üres cellák közben.
Üdv.
[ Szerkesztve ]
-
Jani321
újonc
Sziasztok! A segítségeteket kérem az alábbi témában:
Excelben szeretném egy trendvonal képletét használni... azt amit ki lehet íratni magára a trendre... pl. egy lineáris trend esetén y=2,0417x+340,96.
Vagyis: adott 3 pont, ami alapján szükségem lenne egy képletre, ami további olyan pontokat határoz meg, amelyek egy adott trendvonal elemei. Nem tudom, hogy jól fogalmaztam-e meg a kérdést -
csferke
senior tag
Sziasztok!
Makróban hogyan lehet kiolvastatni és egy változóba tenni a megnyitott/futó munkafüzet nevét?köszi
-
Fferi50
őstag
válasz csferke #35870 üzenetére
Szia!
A Name, illetve a FullName tulajdonságot kell használni.
Az aktív munkafüzet neve: nev=ActiveWorkbook.Name
elérési úttal: teljesnev=ActiveWorkbook.FullName
Ha nem tudod, hogy melyik munkafüzetről van szó és keresed azt, ami neked kell, akkor a WorkBooks gyűjtemény tud segíteni:
For Each wb in WorkBooks
neve = wb.Name
if neve="neked kell" Then Exit For
Next
Vagy
For i=1 to WorkBooks.Count
neve=WorkBooks(i).Name
if neve="neked kell" Then Exit For
Next
Üdv. -
Delila_1
Topikgazda
válasz föccer #35873 üzenetére
Itt is meg van törve a feltételnél. Ha nem rejtett a sorod, akkor – a másolások elvégzése után – kilép. Igaz, itt a teljes Sub-ból, de az Exit For utasítás csak a ciklusból léptetne ki.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
updog
senior tag
Sziasztok,
Egy A4-es, 3x7-es osztású etikettre szeretnék címkéket nyomtatni, pontos beosztással. Excelben hogy tudok margó nélkül, pont 3x7 cellára osztani egy A4-es lapot? Google alapján tökre nem triviális Köszi!
"Bocs, főnök, de én csak két emberben bízom. Az egyik én vagyok. Nem maga a másik." || "Hóhahó, mégis van graffaló!"
-
tzimash
őstag
sziasztok,
hogyan lehetne optimalizálni egy raktárkészletet?
kb így néz ki:
feltettem ide is.A cél az lenne, hogy az azonos termékeket, amelyek szétszórva helyezkednek el a polcokon, tárhelyfelszabadítás céljából összerendezzük. Figyelembe véve hogy mindig a kevesebbet mozgassuk a többhöz.
Pl a képen látható 1122-es termék három különböző polcon van (az 1002-es polcon 3db, a 4000-esen 2db, az 1003-ason 1db), leggazdaságosabb módon, az 1002-esre helyeznénk át a termékeket a két másik polcról.Kapacitás szempontjából 3 féle polc létezik, 6, 4, és 1db termék tárolására alkalmas.
- A 4db-os polcok elnevezése mindig 4xxx formátumú (4000, 4001...)
- Az 1db-os polcok 6xxx formátumúakHa olyan helyzet állna elő, hogy 2-2db (vagy 1-3, 3-1) termék van egy 6 és egy 4 tárhelyes polcon, akkor a 4 tárhelyes polcon lenne célszerű összegyűjteni őket.
Ha van üres 6xxx-es (tehát 1db kapacitású) polc, akkor az olyan termékek, amelyekből pl. 1db van, egy 6db-os polcon, akkor gazdaságosabb lenne ilyen, 6xxx-es polcon tárolni. (a képen az 1008-as polcon lévő 2233-as termék ilyen).
Ha egy termék, a képen a 1133-as számú olyan módon helyezkedik el, hogy nem tudunk tárhelyet felszabadítani, akkor ne bolygassa a program.
típus: arra az esetre, ha nem a teljes raktárkészlet optimalizálása a cél, hanem csak az egyes típusokon belül akarunk rendet tenni (6 terméktípus van). A program a futás kezdetekor kínálja fel a választás lehetőségét.
az output lehetne egy useform amelyen a fenti példa alapján valami hasonló szöveg lenne:
"A 1122-es termékből tegyél át a 3db-ot a(z) 4000-es és a(z) 1003-as polc(ok)ról a(z) 1002-es polcra" Plusz még egy gomb, amire kattintva a tényleges áttárolás végrehajtódik SAP-ban, de ez a könnyebbik része, ezt megoldom.
A rendező algoritmussal nem boldogulok. Valaki tud segíteni? -
föccer
nagyúr
Jó reggelt!
Gombnyomásra kellene kimásolnom az A18:AD21 tartományt értékben, és formázásban, képletek nélkül. Nehezíti a helyzetet, hogy AD18:AD21 cellák egyesített cellák. Ha probléma, akkor megoldom egyesítés nélkül is, de így jobb lenne.
A beillesztés egy másik munkalapon lenne. A beillesztés nehézsége, hogy egymás után több beillesztést kell elvégezni, egymás alá. Tehát az első gombnyomsára bemásol az 5. sortól kezdődően, egy sort kihagyok, majd következő gombnyomásra megismételni a beillesztést alá. Így össze tudok állítani pár gombnyomással egy teljes dokumetációt.
Köszi
FG
Építésztechnikus. Építőmérnök.
-
Delila_1
Topikgazda
válasz föccer #35879 üzenetére
Rossz hírem van. A másolandó tartománynak először a formátumát másolom a másik lapra, hogy azonosak legyenek a cellaegyesítések. Ennek ellenére az azonos formátumú másolandó területet nem képes az Excel beilleszteni. A lenti makróban kihagyhatod a csillagokkal jelzett sort, mert ott megbukik. Meg kell szüntetned az egyesítéseket, akkor jó lesz.
Sub Masolas()
Dim sor As Long
If Sheets(2).Range("A5") = "" Then
sor = 5
Else
sor = Sheets(2).Range("A" & Rows.Count).End(xlUp).Row + 2
End If
Sheets(1).Range("AD18:AD21").Copy
Sheets(2).Range("A" & sor).PasteSpecial xlPasteFormats '***
Sheets(2).Range("A" & sor).PasteSpecial xlPasteValues
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.
-
veterán
Sziasztok!
QAT-ba, hogyan tudok berakni konkrét kitöltő színeket? (A vállalati színeket szeretném egyesével berakni, hogy ne kelljen minden egyes alkalommal kiválasztani, és külön beállítani a színkódokat.)
Köszi
Addig gyorsítottuk a világot míg mi magunk maradtunk le...
-
-
Delila_1
Topikgazda
válasz Fferi50 #35884 üzenetére
Igazad van. A módosított makró
Sub Masolas()
Dim sor As Long
If Sheets(2).Range("A5") = "" Then
sor = 5
Else
sor = Sheets(2).Range("A" & Rows.Count).End(xlUp).Row + 2
End If
Sheets(1).Range("AD18:AD21").Copy
Sheets(2).Range("A" & sor).PasteSpecial xlPasteAll
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.
-
DeFranco
nagyúr
válasz adamssss #35885 üzenetére
elvileg ha csinálsz egy books.xltx filet és ezt lemented valamelyik speciális könyvtárba (nem tudom ez melyik office verzió esetén melyik) úgy hogy abban már megtalálható az adott sablon és nyomsz rá egy egységesítést mentés előtt, akkor azt viszi magával az új munkafüzetekbe is.
a gyakorlatban ezt nem sikerült kiviteleznem eddig.
-
veterán
válasz Illusion1010 #35888 üzenetére
Egy sima jobb/right függvénnyel?
Addig gyorsítottuk a világot míg mi magunk maradtunk le...
-
Fferi50
őstag
válasz Illusion1010 #35888 üzenetére
Szia!
Próbáld meg az adatok- szövegből oszlopok menüpontot egy másik munkalapon. Nézd meg, mi választja el a szöveget a számtól (a szám előtti egy karaktert kimásolod és azt teszed meg elválasztójelnek). A két oszlopot természetesen külön-külön kell szétszedni, utána már csak másolás kérdése.
Üdv.
-
Fferi50
őstag
válasz Illusion1010 #35891 üzenetére
Szia!
Valaminek pedig kell ott lennie, mivel magától nem tesz új sort az Excel - csak láthatatlan a karakter. A KÓD függvénnyel menj végig egyesével a karaktereken és ki fog derülni, hogy van-e valami a k és a 4 között.
Ha nem titkos, fel is teheted valahova, hogy ránézzünk.Üdv.
-
veterán
válasz Illusion1010 #35891 üzenetére
De ha a szamok ugyanakkorak akkor a jobb fuggvenynel jobbrol kezd el szamolni es azokat masolja.
Addig gyorsítottuk a világot míg mi magunk maradtunk le...
-
Illusion1010
senior tag
válasz Fferi50 #35892 üzenetére
Ez egy weboldalról származó táblázat, (http://zcodesystem.com/scorespredictor/) soccer fülről próbálok egy kezelhető adatbázist csinálni, lehetőleg minél kevesebb munkával, csak erősen korlátoz az excelhez nem értésem
ha célformátumra alakítva illesztem be, akkor külön sorokba rakja az odds-okat.
[ Szerkesztve ]
-
Fferi50
őstag
válasz Illusion1010 #35894 üzenetére
Szia!
Ez most akkor jó neked így, vagy nem? Szerintem ebből már össze lehet hozni, amit szeretnél.
A és B után külön külön üres oszlop beszúrása.B1 be a képlet =HA(ÜRES(A2);"";A2), D1 be a képlet =HA(ÜRES(C2);"";C2)
Ezeket végighúzod a 2 oszlopon.
B oszlop kijelöl - másolás - irányított beillesztés értéket. D oszlop ugyanígy.
Ráteszed a szűrőt az adatokra.
A oszlop szűrés tartalmaz pontot. Ami fennmarad törlöd.
Így megmarad az üres sor a tételek között.Üdv.
-
ancsa1233
újonc
Egy függvényre lenne szükségem.
A lényege az lenne, hogy le kellene szűrnie egy szót, ha az benne van a cellában, akkor másik kettőből kellene egy osztást végrehajtania, ha nincs benne, akkor írjon bele egy 0-t.
A célja az lenne, hogy lássam mennyi zsákra lesz szükségem.pl.: A szó, hogy (A1)”zsák” ; mondjuk legyen (B1) 2000 (kg-> mennyiség); (C1) 30 (kg-> kiszerelése)
Ha benne van a cellában a zsák szó, akkor mondjuk lássam a függvénnyel, hogy mennyi kell belőle, ha nincs a cellában, akkor pedig ne zavarjon be.Remélem nem túl zavarosan írtam le.
válaszokat előre is köszönöm
-
Fferi50
őstag
válasz ancsa1233 #35899 üzenetére
Szia!
Akkor most annyi a kérdés, hogy hova írja az eredményt. Ha így gondolod, hogy az A1 cellába, azaz legyen az értéke x zsák, akkor az nem nagyon fog menni.
Ha másik cellába kell az eredmény, akkor mihez hasonlítsa, mit keressen benne. Azaz, honnan tudjuk, hogy melyik "szót" kell keresni?
Egyébként ha más szöveg is van a cellában, akkor a SZÖVEG.KERES függvény használható a HA függvénnyel kombinálva, ha egyedül van a szó, akkor sima egyenlőséget is lehet vizsgálni.=HA(HIBÁS(SZÖVEG.KERES("zsák";A1));"";B1/C1)
Üdv.
[ Szerkesztve ]