Sziasztok. Az lenne a gondom, hogy nem vagyok túlzottan otthon az excel-ben de amennyit kitudtam deríteni az egyik problémámat csak macro-val lehet megoldani amihez semennyire sem értek:S 1: Azt szeretném megvalósítani hogy ha a második sorom celláiban van egy érték (pl.: 1) akkor rejtse el az oszlopot amúgy pedig ne tegyen semmit és ezt a cellát minden oszlopban ellenõrizze és rejtse el az oszlopokat ha kell. 2: A másik kérdésem pedig az hogy, hogy tudok egy bizonyos cellára ugrani. pl. egy sorban a dátumok vannak felsorolva és van 1 keresõ cellám amibe ha beírom a dátumot és enter-t ütök a cursor a megfelelõ cellára ugrik a dátum soromban. elõre is nagyon köszi a helpet.
A 10 a J oszlop sorszáma (A=1, B=2, ... J=10). A 20, ami most 37-re módosult, az utolsó sor száma.
Az If Target.Column = 10 And Target.Row < 37 Then sor azt teszi, hogy akkor hajtódjon végre a számolás, ha a lapon a 10. oszlopban áll be változás, ott is alacsonyabb, mint a 37. sorban.
A Range("H1") = Cells(36, 10) - Cells(35, 10) a H1 cellába beírja a J36-J35 értéket, mikor a J35-ben talál értéket.
Ha nincs a J35-ben szám, akkor a Range("H1") = Cells(36, 10) - Cells(Range("J36").End(xlUp).Row, 10) sor hajtódik végre. Itt a Cells(Range("J36").End(xlUp).Row, 10) rész annak a mûveletnek a VB-s leírása, mikor a J36-on állva egy Ctrl+fel nyilat nyomsz, ami a fölötte lévõ elsõ, értéket tartalmazó sorra áll, ezzel választom ki a kivonandó cella helyét.
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 10 And Target.Row < 37 Then If Range("J36") = "" Then Range("H1") = "": Exit Sub If Range("J35") > "" Then Range("H1") = Cells(36, 10) - Cells(35, 10) Else Range("H1") = Cells(36, 10) - Cells(Range("J36").End(xlUp).Row, 10) End If End If End Sub
Ahhoz a laphoz kell rendelned az alábbi makrót, amelyiken a számítást végre akarod hajtani (lapfülön jobb klikk, Kód megjelenítése, a VB szerkesztõbe jutottál, a jobb oldali üres lapra másold be).
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 10 And Target.Row < 20 Then If Range("J19") = "" Then Range("H1") = "": Exit Sub If Range("J18") > "" Then Range("H1") = Cells(19, 10) - Cells(18, 10) Else Range("H1") = Cells(19, 10) - Cells(Range("J19").End(xlUp).Row, 10) End If End If End Sub
Ez a makró figyeli a J1:J19 tartomány változását. Mikor erre a területre viszel be egy új összeget, a H1 cellába beírja az eredményt. A makróban 3 helyen szerepel a H1, ezeket kell átírnod a saját cellád címére.
Sziasztok =HA(J19>="";"";J19-(HA(J18="";J17;J18))) Abban kérném a segítségeteket, hogy ha a J17 is üres cella akkor addig menjen felfelé az oszlop celláiban amíg talál olyan cellát amiben szám van és végezze el a mûveletet. Kösz
Sziasztok!
Egy függvényt tartalmazó cellából hogyan lehet lekérdezni, hogy hány darab cella szerepel a függvényben? Pl. A3 cella függvénye =SUM(A1:A2) Ebbõl én az A5 cellába szeretném kiíratni azt, hogy "2".
A segítségeteket elõre is köszönöm.
Sziasztok, valószínûleg megoldhatatlan, de megkérdezem: Adatok/Érvényesítés... Megengedve: Lista Legördülõ lista kipipálva
Na... itt jön az, hogy lehetséges valahogy megoldani hogy ne csak a görgetõsávval, hanem egérrel scroll-ozni is lehessen?
És azt valahogy esetleg, hogy elkezdje beírni a szöveget, és a lista az adott pontra ugorjon? (nevén nevezve a listám magyarország települései, és praktikus lenne, ha amikor elkezdem írni, hogy "BUD" akkor a bud kezdetû településeknél állna már.)
Eleo
Azt akarod elérni, hogy választható legyen a figyelmeztetés az egyes sorok hiányáról? Az Msgboxba nem tudsz ilyent betenni, de külön igen, és a futtatás elõtt választhatsz. A ComboBox csatolását (LinkedCell) a J2 cellába tettem – ezt eltakarja a fölé rajzolt ComboBox –, a két szöveget (Kérek figyelmeztetést, és Nem kérek figyelmeztetést) az L1:L2 cellákba, ez a ComboBox bemeneti (ListFillRange) tartománya.
A kibõvített makró:
Sub Osszevet() Dim sorA As Integer, usorA As Integer Dim sorD As Integer, usorD As Integer Dim talal, keres Dim sz As String, figy As String
Application.ScreenUpdating = False
usorA = Range("A1").End(xlDown).Row usorD = Range("D1").End(xlDown).Row figy = Left(Cells(2, 10), 3) sz = ". sorban nem kapott megfelelõ értéket... "
For sorA = 2 To usorA 'A keresése D-ben Cells(sorA, 1).Select talal = 0 For sorD = 2 To usorD keres = Cells(sorA, 1) If Cells(sorD, 4) = keres Then talal = 1 Exit For End If Next If talal = 0 Then If figy = "Kér" Then MsgBox "Az elsõ táblázat a másodikból a(z) " & sorA & sz Cells(usorD + 1, 4) = Cells(sorA, 1) Cells(usorD + 1, 5) = Cells(sorA, 2) Cells(usorD + 1, 6) = Cells(sorA, 3) usorD = usorD + 1 End If Next
For sorD = 2 To usorD 'D keresése A-ban Cells(sorD, 4).Select talal = 0 For sorA = 2 To usorA keres = Cells(sorD, 4) If Cells(sorA, 1) = keres Then talal = 1 Exit For End If Next If talal = 0 Then If figy = "Kér" Then MsgBox "A második táblázat az elsõbõl a(z) " & sorD & sz Cells(usorA + 1, 1) = Cells(sorD, 4) Cells(usorA + 1, 2) = Cells(sorD, 5) Cells(usorA + 1, 3) = Cells(sorD, 6) usorA = usorA + 1 End If Next
Ja igen értem, mert nem az activecellre hívatkoztál a ciklusokban hanem direkt a cellákra. Ok kivettem, de van egy olyan kérdésem, hogy bettem egy msgbox "A(z) elsõ táblázat" & sorA & "ban nem kapott megfelelõ értéket a második táblázatból.... " Meg tudok-e adni egy CheckBox ot ebben a standard msgbox ban, azzal az opcióval, hogy ne jelenjen meg a következõkben ez a figyelmeztetés?
Két sort, amit a próbához írtam be, de kifejezetten lassítja a futást, ki kellene törölnöd. Ez a két külsõ for-next ciklus elsõ sora, a cells(sorA,1).select, és a cells(sor_D,4).select.
Az msgboxot a frissítés engedélyezése után tedd be. Sokat adattal számoló makróknál érdemes még a futás idejére letiltani az automatikus számolást (Application.Calculation = xlCalculationManual), a végén pedig vissza kell állítani (Application.Calculation = xlCalculationAutomatic)
Delila köszönöm. Még fel sem ébredtem, épp neki akarok fogni, hogy agyaljak ki valamit s hát már itt is a megoldás. Te vagy a fórum mindent járó malmocskája, vagy terülj terülj asztalkája. :)) Mégegyszer köszönöm, tetszik az a képernyõ letíltás ezt fogom használni máshol is csak próbáljam ki, a msgboxokat megjeleníti-e? Elnora ez a függvény sokszor kellett volna és még sokszor hasznát vehetem, ha tudom, hogy van akkor talán neki sem fogok a makróírásnak. Tulajdonképpen két függvény van amelyeket itt a fórumon ismertem meg, az egyik ez HOL.VAN a másik meg az INDIREKT köszi.
Lassúbb, de hibátlan mûködést biztosít, ha az A oszlop minden tagját összehasonlítjuk a D minden tagjával, és fordítva is. A makró elején a futás gyorsítása érdekében letiltottam a képernyõ frissítését, a végén engedélyeztem. Az új makró végére betettem a rendezést.
MATCH angolul tudtommal és "A HOL.VAN függvény egy adott elemet keres egy cellatartományban (tartomány: Két vagy több cella egy lapon. Az adott tartományban lehetnek szomszédos és nem szomszédos cellák is.), majd visszaadja az elem tartománybeli relatív pozícióját. "
Köszonom mindenkinek, Delila, ez jól müködik, csak ha van ez aprobléma akkor gondolom, hogy a Set talal = .Find(Cells(sor, 1).Value, LookIn:=xlValues) If talal Is Nothing Then úgy hasonlítja össze az értékeket, mintha stringek lennének? Akkor ez helyett (amit nem nagyon értek, mármint a szintaktikát) használok egy olyasmit usor1=Range("D1").End(xlDown).Row kontr=0 for j=2 to usor1 if cells(sor,1)<>cells(j,4)
Cells( na ebbe belegabalyodtam, reggel átgondolom, de ezt sejtem a megoldásnak, hogy minden poziciót az A oszlopból összehasonlít monden pozicióval a D oszlopban Az irány az tetszik köszi Elnora sajnos ki kell valahonnan a HOL.VAN fügvényt?, mert angol excelem van s ezt kapásból nem ismerem de, ha ez az amit sejtek akkor hasznos lesz
Sziasztok,
csak fél megoldás, mert nem rendezi, de ellenõrzésnek jó lehet...
Létrehozol egy kontroll-oszlopot, amiben minden szám benne van (A oszlop minden számlát és D oszlop minden számát bemásolod, majd az ismétlõdéseket kiszeded a duplikálódásokat, aztán abc-be rendezés) /nekem ez a G:G oszlop lett - a képletben látod majd/ Ezek után egy oszlopba (ami az A-B-C tömbödet fogja vizsgálni, az alábbi képletet A1 cellába beírod és lehúzod: =HA(HOL.VAN(A:A;G:G)=SOR(A1);"OK";SOR(A1)-HOL.VAN(A:A;G:G)) Ez OK-t ír, ha jó helyen van a sorrendben, ha nem, megadja negatív értékben, hány sorral lejjebb kellene lennie. Ugyanezt a D oszlopra is megcsinálod.
De rendezni nem tudom ezzel ugye. A lenne a nem létezõ makró-programozói képességem. XD
Sub Osszevet() Dim sor As Integer, usor As Integer, usor_1 As Integer Dim talal
usor = Range("A1").End(xlDown).Row For sor = 2 To usor With Columns("D:D") Set talal = .Find(Cells(sor, 1).Value, LookIn:=xlValues) If talal Is Nothing Then Cells(usor + 1, 4) = Cells(sor, 1) Cells(usor + 1, 5) = Cells(sor, 2) Cells(usor + 1, 6) = Cells(sor, 3) usor = usor + 1 End If End With Next
usor_1 = Range("A1").End(xlDown).Row For sor = 2 To usor With Columns("A:A") Set talal = .Find(Cells(sor, 4), LookIn:=xlValues) If talal Is Nothing Then Cells(usor_1 + 1, 1) = Cells(sor, 4) Cells(usor_1 + 1, 2) = Cells(sor, 5) Cells(usor_1 + 1, 3) = Cells(sor, 6) usor_1 = usor_1 + 1 End If End With Next End Sub
A lenti makró beírja az A:C adatait a D:F tartomány aljára, ha ott nem találta meg, a D:F tartomány többletét pedig az A:C aljára. Hibája: ha pl. az A oszlopban szerepel egy 54-es szám, ami nincs meg a D oszlopban, viszont a D-ben van egy 254-es érték, azt találatnak veszi.
Sziasztok Megint kérdések, igazából, egyelõre az egyikkel foglalkozom most. Van két táblázatom amelyek elvileg egyformák kellene legyenek. Gyakorlatilag nem azok.Mindkét táblázat 3 oszlopos (A,B,C) és (D,E,F) Az A és D oszlopokban számok vannak csökkenõ sorrendben, amelyek egyenlõek de van valamenyi sor amelyek hianyoznak vagy az egyik vagy a násik táblázatból. Azt kellene, hogy ahol nincs meg a másik sorban a megfelelõje, ott betegyen abba a sorba egy üres sort, a többit nyomja lefele egy sorral. Egy ötlet, hogy induljak, vagy mire építsem fel az egészet? Ti hogy csinálnátok?
Összeállítottam egy füzetet, aminél nem kell az adatokat levélben küldözgetni. Új cégnév felvitelekor bekéri a címet és az adószámot, beírja ezeket az adatokat a rejtett adatlap elsõ üres sorába. Ugyanakkor rendezi is a rejtett adatokat a cégnév szerint, hogy könnyebben lehessen kiválasztani az érvényesítésben. Ha érdekel, elküldöm.
Adatok/Érvényesítés/Hibajelzés fülön kivettem a pipát arról, hogy "Érvénytelen adatok beírásakor hibaüzenet jelenlejen meg". Lényegében csak a legördülõ lista miatt van érvényesítve a cella.
Eredetileg hasonlóan volt, ahogy te mondod, de sajnos az életben nem mûködött. A vevõk tartomány rejtett fül - isten ments, hogy hozzá nyúljanak - egy figyelmeztetõ párbeszédpanel arról jelezett, hogy nekem e-mailben küldjék az adatokat. De ez nagyban lassította a folyamatot. Ez egy számlakérõ form, és ha új partner esetén muszáj, hogy a formot kitöltõ személy be tudja írni az új adatokat, és mivel nem számítógépes emberek, ezt lehetõleg úgy tehessék, hogy a gép semmit nem akar velük kommunikálni. (o:
Hogy csinálod, hogy érvényesítést tartalmazó cellába az elõre megadott Vevõk-ön kívül egyebet is be lehet vinni? Úgy tudom, éppen arra való az érvényesítés, hogy ilyent ne lehessen tenni. A figyelmeztetést az érvényesítés párbeszéd ablak Hibajelzés fülén a Hibaüzenethez írnám. Be sem engedi írni az új adatot a (C8) cellába, jön a figyelmeztetés, hogy a Vevõk tartományba írja az adatokat, majd akkor kiválaszthatja.
a cégneveknél az utolsó után volt két üres sor, majd még egy adatsor (ezt akartam alapesetben, kvázi instrukciókat tartalmazott volna, és azért két sor kihagyás után, hogy a C8as cellában a legördülõ listában ne el legyen szeparálva). Na, ezt az adatsort kitöröltem, és megoldódott az egész. A probléma csak az, hogy nem értem, hogy miért. Miért a 64-sortól adott hibás választ, ha változtattam az adatok sorrendjén, akkor miért máshonnan, és egyáltalán, miért adott hibás mûködést!?
A HIBÁS függvény egyébként valóban elegánsabb, köszönöm, átírom.
Viszont a #1263-as nem stimmel, mert pont abból lett a kavarodás, hogy cégnének nem csak az elõre bevitt adatokból választhat, hanem bármit beírhat, és akkor kell egy figyelmeztetés a C9be, hogy töltse ki mindenképp.Viszont ha jól értelmezem, te úgy gondolod, hogy a C8as cella csak az listából érvényesített adatokat engedélyezni.
Bõven elegendõ az =FKERES(C8;vevõk;1;0), mivel az érvényesítésben csak a már bevitt adatok választhatók ki. Az "Új partner..." szöveg nem is jelenhet meg, csak akkor, mikor a C8-ra bevitted az érvényesítést. Az elsõ cég kiválasztása után már csakis a C8-ban aktuálisan meglévõ cég címe lehet.
még mindig ugyanaz a problémám: "táblázat egyik fülén találhatóak adatok (cégnév, cím, adószám, stb.), ez az egész tartomány (a használt oszlopok)a "vevõk" tartományom.
A másik fülön a C8-as cella érvényesítve van, hogy a "vevõk" tartomány elsõ oszlopából lehessen legördülõ listából választani (külön vevõk_név tartomány ugye, de most lényegtelen), de újat is tudjon felvinni. Az alatta lévõ cellába képlettel automatikusa a C8 cella alapján bekerül a "cím", az alábbi képlettel: =HA(C8=FKERES(C8;vevõk;1);HA(C8>"";FKERES(C8;vevõk;2;0);"");"Új partner esetés kérlek add meg!") Azért kell így, hogy ha új partnert vesz fel, akkor figyelmeztesse a felvivõt, hogy meg kell adnia.
És tök jól is mûködik a "vevõk" tartomány elsõ 63 tételére. A C8as cellába a továbbiakat is ki tudom választani a legördülõ listából, de a címre a képelt azt adja, mintha új partner lenne."
A probléma még midig fenn áll, pedig már azt is megcsináltam, hogy a céhnév, cím, stb. oszlopokat újra kijelöltem, és elneveztem "vevok" tartománynak, az FKERES képleteket pedig átírtam erre... de így is ugyanaz a hiba.
Office 2007 a file, de 2010ben megnyitva is ugyanaz a jelenség. ))o:
a 1248-as függõ kérdésem mellett felmerült még egy - valószínûleg sokkal egyszerûbb kérdés: milyen képlettel tudok 5000-re kerekíteni, de mindig felfelé? Megpróbáltam a függvényeket végignyálazni, de nem találtam ilyet, ami mindenképp felfelé kerekít, és paraméterezhetõ, hogy mennyivel. Vagy csak összetett függvény lehetne?
Köszi, Eleo
Nem a cellákba, hanem a megjegyzésekbe írja a neve(ke)t:
Sub Térkép() Dim x As Integer, y As Integer, sor As Integer, usor As Integer Dim wsc As Object, sz Sheets("Munka1").Select usor = Range("A1").End(xlDown).Row
For sor = 2 To usor x = Cells(sor, 7): y = Cells(sor, 8) Set wsc = Sheets("Munka2").Cells(y, x) With wsc On Error Resume Next .Interior.ColorIndex = 3 .AddComment sz = Cells(sor, 1) If .Comment.Text = "" Then .Comment.Text Text:=sz Else .Comment.Text Text:=.Comment.Text & Chr(10) & sz End If .Comment.Visible = False End With Next End Sub
Sziasztok Nem tudom eldönteni, hogyan jobb, a táblázatokat kezelni, és müvket végezni, ha így használom, hogy pl. Cells(x,y)=sheets("sheet2").Cells(i,j)*K vagy ha a sheet2 ben levõ táblát beolvastatom egy változóba, Us=sheets("sheet2").range("A1").End(xlDown).Row Uo=sheets("sheet2").range("A1").End(xlRight).Column ReDim S2(Us,Uo) as Variant Cells(x,y)=S2(i,j)*K ? Mi a különbség a Cells(x,y) es a cells(x,y).value között?
Az 1233 kérdésre nincs senkinek ötlete? Vagyis a második kérdés második részét megoldottam egy if el, de az nem tetszik, de ha nincs más akkor jó lesz így is
akkor nem tudom mi lehet! hozd létre újra egy másik excelben. lehet csak valahol leakad. ez a régebbi (xp elõttieknél) elõfordul állítólag)
Szia, én is erre gondoltam, de egész oszlopok vannak a tartománynak kijelölve. (a legördülõ listának külön létrehoztam a vevõk_név tartományt, de nem releváns, az is oszlop... és ott látszik is az összes cégnév. Csak a képlet, ami a címet venné, az nem mûködik az utolsóknál.)
Adatbázis... ó igen, az álmom, de a cég ragaszkodik az excelhez még.
szerintem itt a legördülõ fül definiálásával van a bibi! szerintem amikor ez készült csak addig lett kijelölve. legalábbis elsõ olvasásra, nem látva az excelt ez jut eszembe. ám ha már adatbázisnak használjátok akkor mért nem adatbázis kezelõvel csináljátok? sokkal egyszerûbb lenne szvsz!
az alábbi nagyon fura jelenséget tapasztalom, és nem értem mi történik:
táblázat egyik fülén találhatóak adatok (cégnév, cím, adószám, stb.), ez az egész tartomány (a használt oszlopok)a "vevõk" tartományom.
A másik fülön a c8-as cella érvényesítve van, hogy a "vevõk" tartomány elsõ oszlopából lehessen legördülõ listából választani, de újat is tudjon felvinni. Az alatta lévõ cellába képlettel automatikusa a C8 cella alapján bekerül a "cím", az alábbi képlettel: =HA(C8=FKERES(C8;vevõk;1);HA(C8>"";FKERES(C8;vevõk;2;0);"");"Új partner esetés kérlek add meg!") Azért kell így, hogy ha új partnert vesz fel, akkor figyelmeztesse a felvivõt, hogy meg kell adnia.
És tök jól is mûködik a "vevõk" tartomány elsõ 63 tételére. A C8as cellába a továbbiakat is ki tudom választani a legördülõ listából, de a címre a képelt azt adja, mintha új partner lenne.
Ebben tudtok segíteni nekem?
Köszönöm, ELeo
Delila, így volt jó, mert még extra dolgok nem kerültek bele. Most azon gondolkodom, hogy a kiszínezett cellákba történt adatokat hogyan tudnám buboréktipp szerûen megjeleníteni.
ha kell szerintem tudok átküldeni ebookokat. majd megnézem milyenek vannak fent :-) de nem ígérem, hogy ma megkapod, mert igen sok dolgom van :-(
Van esetleg ahol bõvebb ismeretek vannak leírva EXEL-bõl, szájbarágós, esetleg példás módszerrel? Szerintem ez egy igen jó dolog és szeretnék többet foglalkozni vele.
Üdv!
Nem akarok ingyenélõ lenni, de amit felajánlottál angolt_tanulo.xls már nem van ott ahol, és nem tudom leszedni:( Oldjuk meg! Kérlek!
Delila, ez nagyon jó lett. Köszönöm, erre gondoltam.
Majd kiderül, jó-e ez a megoldás. A Munka1 lapon vannak az adatok, a Munka2-n lesznek a piros cellák, bennük a nevekkel. Ha több embernek ugyanazok a "koordinátái", akkor mindegyik nevet beírja a makró a cellába.
Sub Térkép() Dim x As Integer, y As Integer, sor As Integer, usor As Integer
For sor = 2 To usor x = Cells(sor, 7): y = Cells(sor, 8) Sheets("Munka2").Cells(y, x).Interior.ColorIndex = 3 If Sheets("Munka2").Cells(y, x) = "" Then Sheets("Munka2").Cells(y, x) = Cells(sor, 1) Else Sheets("Munka2").Cells(y, x) = Sheets("Munka2").Cells(y, x) & Chr(10) & Cells(sor, 1) End If Next Sheets("Munka2").Rows("1:99").EntireRow.AutoFit
Olyan táblázatot szeretnék létrehozni, ahol az elsõ cellában legörítõben kiválasztom a cég nevét és ennek hatására a jobb oldali cellákba kiírja a céghez tartozó adatokat. Szûrõ, vagy FKERES nem jó, mert olyan embernek lesz aki nem ért hozzá (igaz én se, de valakinek meg kell csinálnia :) ). Odáig eljutottam hogy legördítõt hogy kell csinálni, csak cellacsatolást nem tudok. Segítene valaki? 2007-es excel van. Ha lehet ne ûrlap legyen, mert megõrjít, vagy akkor részletesen magyarázzátok el. Elõre is köszönöm. Üdv: Twicky
Sziasztok!
Adott egy munkalap, minden sorban több adattal (kb 250db), ami egy-egy személyhez köthetõ. Van a G oszlopban egy X koordináta, a H oszlopban egy Y koordináta hozzá. Ezek a koordináták mindig 1-99 között vannak. Hogyan tudok létrehozni ez mellé egy olyan munkalapot, ami kirajzolná (2D térkép szerûen) mondjuk piros kockákkal, hogy ki hol van a térképen egy. Tehát ha pl valaki az X:1 Y:1 en van, azt a másik munkafüzetben a legelsõ kockába kéne berajzolnia. Ehhez kérek segítséget. Köszönöm.
Egy táblázt értékeinek meghatározásához, a táblázatban levõ kódok szerint kell keressek egy másik munkalapon levõ táblázatban. A gyorsabb keresésért "deklaráltam"(mondj egy jobb szót) egy matrix(tömb) típusú változót amely beolvassa a második táblázatot következõ képpen: Us = Range("A1").End(xlDown).Row ReDim prodpro(Us, 4) As Variant az elsõ kérdésem az, hogy a prodpro(x,y) mekkorára nyújtható, vagyis mi lehet az Us maximális értéke, vagyis max. hány soros táblázatot kezelhetek vele? A második kérdésem az, hogy ha egy üres oldalon futtatom akkor Az Us a fenti képlettel milyen értéket vesz fel? Vagyis lehet-e valamit megadni, hogy akkor 0(zéró) leyen?
Morgó és Szundi adatsorában Hófehérke növekménye fals "üres cella" - s ezt szeretném helyettesíteni tulajdonképpen 0 értékkel...
Nekem nem müködik irányított szûrõre
Kell a makró mert ez csak egy része lesz egy nagyobb makrónak. Megnéztem a RÉSZÖSSZEG függvényt és tulajdonképpen azt is meghívhatom makróból. ráadásul 101-111-ig függvényszámmal figyelmen kívül hagyja a rejtett cellákat. Tehát pont az ami nekem kell.
Még a C1 segédcella sem kell. A kritérium legyen =">" & átlag(A:A)
Egy cellában az =ÁTLAG(A:A) kiszámolja az A oszlop átlagát. Legyen ez a cella pl. a C1. A kritérium tartományban a cím alatti cellába ezt írd: =">" & C1
Bézé2: Köszi, hogy foglalkoztál vele - végszükség esetén + oszloppal ok, de ha lehetne anélkül oldanám meg...
Egy favágó módszert ajánlhatok a #2. kérdésre, egy plusz oszlobba tegyél be 1 et ha az érték nagyobb és zérót ha az érték kisebb, és szürjél az szerint. Pl. =IF(AVERAGE(R:R)>R1;1;0)
Kérdéseim lennének - amelyre még nem kaptam választ...
#1 Halmozott oszlopdiagramot kell ábrázolnom, ahol az egyik oszlop három komponensû, a másik pedig csak egy. Hogyan lehet azt megvalósítani, hogy az értékbevitelnél - a második oszlopnál a növekménynél - nullát adhassak meg, ne egy fals (0 értékkel rendelkezõ cellahivatkozást...)
#2 Itt még nem kérdeztem, de Hogyan lehet Irányított szûrésnél megadni, hogy az átlagnál nagyobb értékekkel rendelkezõ sorokra lenne szükség...
Elsõ kérdésedre: A szavakat tartalmazó oszlop mellé véletlenszámokat viszel be [pl. =INT(VÉL()*100)], másolod az új oszlopot, és ugyanoda irányítottan, értékként beilleszted, majd e szerint az oszlop szerint rendezed az adataidat.
Második kérdésre: A laphoz rendeled az alábbi makrót (lapfülön jobb klikk, Kód megjelenítése, a VB szerkesztõben jobb oldalon kapott üres lapra másold be).
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 50 Then Cells(1, Target.Column + 1).Select End Sub
én írtam már egy tanulós excelt ha kell odaadom kicsit összetettebb mint amit Te kérsz de ha kell odaadom! tartalma: angol magyar szótanuló (10 szó)véletlenszarû magyar - angol szótanuló (10 szó) véletlenszerû
saját adatbázis szótár: angol - magyar magyar angol