Jobb ötlet, ha az M oszlopba f-et írsz, ha ki van fizetve, és n-et, ha még nincs. O2-be: =HA(ÉS(E2<MA()+2;M2="n");1;0) A kritérium tábla elsõ esetben: R4-be az O oszlop címe, R5-be 1, S4-be az M oszlop címe, S5-be n. A szûrõ párbeszéd dobozában a Szûrõtartomány legyen R4:S5. A második szûrésnél csak az R4:R5 tartományt kell módosítanod, R4-be jön a P oszlop címe, R5-be =WEEKNUM(MA();2).
Irányított szûrõvel lehet megoldani a kigyûjtéseket. A leírásodban N az utolsó oszlop, ezután tettem be még kettõt. Persze ezen változtatsz majd, ha nem felel meg. Feltételezve, hogy az M oszlopban jelölöd valami módon, hogy ki van egyenlítve a tartozás (errõl nem írtál), az O2 képlete: =HA(ÉS(E2<MA()+2;M2="");1;0), a P2-é: =WEEKNUM(E2;2). Az O oszlopban 1 lesz az érték, ha esedékes a fizetés, a P oszlop beírja, hogy az E oszlop dátuma az év hányadik hetére esik.
Az elsõ esetben azokat a tételeket akarod kigyûjteni, ahol a dátum <ma()+2, és nincs kiegyenlítve, holott régebbi a dátum. Az R4-be beírtam az O1 címét, R5-be 1-et. Ez a kritérium tábla. R8-ba az A oszlop címe, S8-ba az N-é, T8-ba at I-é, U8-ba a B-é, és V8-ba az E-é, vagyis felsoroltam az oszlopok címét, amikhez az adatokat akarom rendelni. Kijelöltem az A:P tartományt az elsõtõl az utolsó sorig, ahol a szûrendõ adatok vannak. Adatok menü, Szûrõ, Irányított szûrõ. A párbeszéd doboz kiállítása: Más helyre másolja, a Listatartományt automatikusan beírta, Szûrõtartománynak kijelölöd az R4:R5 területet, a Hova másolja rovatban pedig az R8:V8 tartományt. Leokézva R9-tõl megkapod a kért adatokat. Ezeket simán átmásolod egy másik lapra, ahol tovább dolgozol velük.
A második kigyûjtésnél csak a kritérium táblát kell módosítani. R4-be a P oszlop címe kerül, R5-be =WEEKNUM(MA();2)
Igen bele futottam :) Eredetileg a stringben lévõ pontokat én is kicseréltem vesszõre (mer hogy így jó, gondoltam), de ez valóban nem volt jó ötlet. Így utólag látom, hogy ha pontként hagyom akkor viszont 2003 excel szépen megeszi. Bár nem értem, hogy így miért jobb neki. :) A lényeg, hogy ez is megvan. még 1x köszöi!
Nem a negatív számokkal, hanem a tizedes törtekkel nem állt szóba a makró, mégpedig a tizedes vesszõk miatt. Sikerült kiküszöbölni a hibát úgy, hogy a cellába írás [cells(15,1)=szov] sor elé betettem egy ciklust:
For b = 1 To Len(szov) If Mid(szov, b, 1) = "," Then szov = Left(szov, b - 1) & "." & Right(szov, Len(szov) - b) Next
Ha be van állítva az Option Explicit, a b változót is dimenzionálni kell Integerként.
Sub Szum() Dim ter As Range Dim CV As Object Dim szov As String
Set ter = Application.InputBox("Jelöld ki a tartományt", "Tartomány kijelölése", Type:=8) For Each CV In ter If CV.Value >= 0 Then szov = szov & "+" & CV.Value Else szov = szov & CV.Value End If Next Cells(15, 1).Formula = "=" & szov End Sub
A tartomány különálló cellákból is összeállhat. Azt nem szereti, ha az elsõ összeadandó cella értéke negatív.
Köszönöm a segítséget. Sajnos én is idáig jutottam. Vagy szum, vagy string megjelenítés. Nekem igaziból csak az a mûvelet kellene amit excel akkor csinál amikor a te makród futtatása után az A16 cellába kétszer kattintok és fogja magát és felismrei képletként a benne lévõ stringet. pl: ha az A16 cellában ez +5+6+8-5-6 str volt taláható és kétszer bele kattintok akkor felismeri formátumot és képletet csinál belõle. De nem árulja el, hogy hogyan :(
Elnézést, hogy foglalom itt a sok helyet, figyelmetlenül olvastam a kérdést, nem írtam bele az összegzendõ értékek kiírását.
Sub Szum() Dim sor, oszlop As Integer Dim ter As Range Dim sz As Double Dim CV As Object Dim szov As String Set ter = Application.InputBox(prompt:="Kérem a tartományt", Type:=8) For Each CV In ter sz = sz + CV.Value If CV.Value > 0 Then szov = szov & "+" & CV.Value Else szov = szov & CV.Value End If Next Cells(15, 1) = sz Cells(16, 1).Formula = szov End Sub
Az elõzõ makróban a Dim sor, oszlop As Integer felesleges, hagyd ki. Itt egy másik makró, ahova fixen beírhatod az összegzendõ tartományt, ami nálam most A1:B10. Az eredményt az A15 cellába írja ki.
Sub másik() Dim sz As Double Dim ter As String Dim CV As Object
Nem megy nekem ez a képfeltöltés, bemásolom ide a makrót, csak csúnyán összerántja, nem látszanak a tagolások.
Sub Szum() Dim sor, oszlop As Integer Dim ter As Range Dim sz As Double Dim CV As Object
Set ter = Application.InputBox(prompt:="Kérem a tartományt", Type:=8)
For Each CV In ter sz = sz + CV.Value Next
MsgBox sz End Sub
A makró bekéri az összegzendõ területet, amit egérrel kijelölve adhatsz meg. Üzenetdobozban kiírja az eredményt (MsgBox sz), de ehelyett adhatsz egy cellacímet, ahova beírja, pl. Range("C30")=sz
Egy kérdés hátha .... Készítettem egy makrót, ami egy tömbben lévõ szám értékekekt stringbe összefûz és mûveleti jeleket is tesz elé. pl: str = +45+46-48. Ezt be is illesztem egy cellába. Egyetlen gond van vele, hogy képletként szeretném használni, de erre nem találtam semmilyen megoldást. Az a baj hogy látnom kellene, hogy az érték mibõl jön ki és nem elég ha az eredményt kapom meg, így csak stringént tudtam a makróban megoldani. Jelenleg kiborít, hogy ha bele kattintok a cellába akkor felismeri képletet az excel, de makróból ezt nem tudom megoldani. Van valakinek ötlete?
Sziasztok! Új feladattal bíztak meg a mu.helyemen: vevõ és szállító számlákat kell nyilvántartanom és figyelnem mit mikor kell fizetni v. mikor várható a fizetés. Külön fülön tartom nyilván a szállítókat és a vevõket A oszlop mindig a cégnév, B a számla száma, N oszlop a bruttó számlaérték; devizanem I oszlop (HUF v. EUR). A segítségetekre lenne szükségem. KÉRDÉSEK (excel 2003): Szállítók: 1. egy adott napon esedékes fizetnivalókat hogyan tudom kigyûjtetni automatikusan (a ma elküldendõ fizetnivalók=eddig ki nem fizetettek és a holnap esedékesek MA()+1) 2. e héten esedékesek (ez pillanatnyilag feb.22-ig esedékesek és a ki nem fizetettek) VÁRT EREDMÉNY- külön fülön: cégnév; összeg(ek), devizanem; szlaszám cégenként is kellene összesíteni
Vevõ oldalon uez. csak ott mint várhatóként jelenik meg.
A dolgot bonyolítja, hogy van amikor ugyanaz a cég vevõ is meg szállító is (más árut adunk, mint kapunk) ezeket külön kellene vevõként és szálíltóként egymás mellé tenni és a különbözetet egy harmadik oszlopban megmutatni - "szaldó"
Eddig listába írtam a számlákat és egy másik fülön kimuatás varázslóval kínlódtam, de ott a dátumok nem jönnek sorba hogy kipipálhassam (mivel minden egyes új szlámla felvitelekor összekeverednek a dátumok... Elõre is köszi Samu
Szívesen. Persze, hogy feltedeted az újabb kérdésedet, azért van a fórum, hogy segítsünk egymásnak.
A 2 azt jelenti, hogy az F:G tartomány 2. oszlopából adja vissza azt az értéket, amelyiket az 1. oszlopában megtalált. A súgóban keress rá az FKERES függvényre, ott megtalálod az utolsó paraméter leírását, jobban, mintha itt leírnám. Az 1 helyett IGAZ paramétert is írhatsz, azonos értékûek.
Köszi szépen! Mûködik! Az lenne a kérdésem hogy a 2;1 Mit jelent?[=FKERES(A1;F:G;2;1 )]
Sziasztok! A fenti képen láthatjátok meddig jutottam el a feladatban!A feladat arról szól hogy az A oszlopba 0-tól 100-ig feltöltsük véletlen százalékos számokkal, a G oszlopba pedig megvannak adva a százalékhatárok az F oszlopba pedig hogy mely százalékok között hányas érdemjegy lenne!
És a B oszlopba pedig ki kellene kiírnia az A oszlop mindegyik százalékához hogy az hányas jegy lenne úgy hogy az F És G táblából olvassa ki ezeket!
Ehhez kellene nekem egy függvény(képlet)! Remélem tudtok segíteni elõre is köszi!
pl B1-be azt kellene kiírnia hogy 5.(tehát ötös mert 80 és 100% között van)
Akkor töröld az elõbbit. Alt+F11-re bejön a VB szerkesztõ. Bal oldalon állj a füzeted nevére. Insert menü, Module. A most kapott üres lapra ezt másold be:
Sub Valami() Range("A1:B1").Select Selection.Insert Shift:=xlDown Cells(1) = Cells(3) Cells(2) = Cells(4) Cells(3).Select End Sub
Értelmesebb címet is adhatsz neki :) Tegyél ki egy gombot az Ûrlap eszköztárból, és rendeld hozzá a makrót.
Kitünõen mûködik! :) Köszönöm szépen! És hogyha azt szeretném hogy csak akkor írja be a1-be és b1-be ha rá klikkelek egy vezérlõ gombra? akkor mit kell még csinálnom? :)
Rendeld a lapodhoz a makrót (lapfülön jobb klikk, Kód megjelenítése, a jobb oldalon kapott üres lapra másold be):
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$D$1" And Cells(3) > "" Then Range("A1:B1").Select Selection.Insert Shift:=xlDown Cells(1) = Cells(3) Cells(2) = Cells(4) Cells(3).Select End If End Sub
Vidd be a C1-be a dátumot, és amint a D1-be is bevitted az értéket, a makró lecsúsztatja az A:B tartományt, és beírja az aktuális adatokat az A1-be és a B1-be, majd a C1-re áll, hogy írhatsd a következõ adatot.
Sziasztok! Azt hogy lehet megoldani, hogy van egy beviteli mezõm, kettõ cella. Pl.:c1(ez dátumot tartalmaz), d1(ez egy összeget tartalmaz) Szeretném ha az ide beírt értékeket, átírná a1,b1-re. Aztán ha új értéket írok a c1-d1 cellákba, akkor ami elõzõleg az a1-b1-ben volt az 1 sorral lejjebb csúsztassa, és az új értéket írja a helyére... Remélem kivitelezhetõ valahogy... Ha nem, akkor egy olyan megoldás is jó ha mindíg a sor végére írja az új értéket. Elõre is köszönöm a segítséget! :)
Ez nagyon jó :) Köszönöm szépen, mûködik is. A cellákat manuálisan színezem az elõtte lévõ oszlopok szûréseibõl. Csak a 3-as piros kód helyett kellett keresnem egy 40-es barackot, hogy látható is legyen a szám. Még egyszer köszönm szépen a segítséget.
Nem bíztam benne, hogy sikerül feltenni a képet. Kishitû vagyok.
Összeállítod a táblázatot a kép szerint. A G2 és a H2 érvényesítés, a valutanemeket tartalmazzák. Kiválasztod a jelenlegit, és azt, amire át akarod váltani. A makróban egy ciklussal végig haladsz az árakat tartalmazó területeken, és az értékeket felszorzod az I2-vel.
Egy kis segítséget kérnék tõletek Excel (2003) témakörben. Több fórumot bejártam - fõleg külföldi -, de nem tudtam választ kapni egy kisebb problémámra, ami a következõ: Egy beruházás megtérülési és cash-flow-elemzését készítettem el, kb. 12.000 képlettel (sok-sok összefûzött oldal + n. számú grafikon, kimutatás stb). A rendszer fordít magyarról angolra (ill. németre, franciára -igény szerint) és vissza, a számítások EUR-ban vannak, mert a megrendelõ külföldi. O.K.
Azonban egy kis többlet-igény merült fel a befejezés után: ne csupán EUR-ban, hanem USD-ben, CAD, ill. CHF-ben is tudja váltani (mutatni) a táblákat.
Erre létrehoztam egy árfolyamváltó-lapot, azonban rájöttem, hogy lesz egy kis gond. A származtatott oldalak, illetve cellák átkonvertálása nem akkora gond, ám azokon a lapokon, ahol input adatokat viszünk fel, ezeknél körkörös hivatkozást végez az Excel. Ezt még ki lehet küszöbölni egy-egy oldaltükrözéssel (vagy éppen pl. indirekt() függvénnyel), ám a származtatott cellákat leszámítva is kb. 8.000 képletet kellene átdolgoznom.
Tud valaki egy szép kis makro ötletet adni arra, hogyan lehetne leegyszerûsíteni az életet úgy, hogy a fõlapon kiválasztott pénznemnek megfelelõen (egy oldalon elõre definiált - tehát nem kell on-line update-elni az MS Money Currency-vel - árfolyammal) minden oldalon átváltsa az aktuális EUR összegeket a választott pénznemre? Minden segítséget nagyon köszönök.
Meg lehet oldani. A lapfülön jobb klikk, Kód megjelenítése. Bejutottál a VB szerkesztõbe. A jobb oldalon kapott üres lapra másold be:
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then 'Itt írd át az 1-et a saját oszlopod sorszámára If Range(Target.Address).Interior.ColorIndex = 3 Then _ Target.Value = Target.Value * -1 End If End Sub
A megjelölt sorban írd át az 1-et annyira, ahányadik oszlopodban akarod végrehajtani a cserét. Egy kis villogás után a beírt szám elé negatív elõjelet tesz.
Ez csak akkor mûködik, ha a cellák hátterét NEM feltételes formázással pirosítottad ki. Ha igen, akkor ismernem kell a feltételt.
Tegnap este se jutottam gépközlebe, szóval most tudtam csak megnézni a javaslatokat.
Az egynél több feltételre való szûris mûködik. Köszönöm szépen.
A második példával vannak gondjaim, de némi átalakítás után személyemre szabható. Ezt is köszönöm szépen.
Lenne még egy kérdésem, de ez lehet eleve butaság :) Lehet-e olyasmit csinálni, hogy ha pl. van egy adott oszlopom, ami teljesen üres és elkezdem felvinni az adatokat, akkor ha elõre megjelöltem mondjuk piros háttérszínnel pár cellát, akkor a bevitt pozitív számokat, a pirosan megjelölt cellákban negatív számként írja be?
hy excel-ben irok egy sorba hogy "1 P", és automatán átváltja "1:00 du"-ra vagy mi a rák. ezt hol lehet kikapcsolni? az új excel van nékem....
Elnézést, nem voltam net közelben azóta. Most is csak 1 percre tudtam beugrani megnézni, hogy tudott-e vki segíteni. Este érek majd csak rá megnézni, hogy jó-e nekem így, de bíztatóan hangzik :) Köszönöm szépen a válaszokat.
Nem jeleztél vissza, de a 2-nél több feltételes szûréshez adok két ötletet. Az elsõ esetben az A oszlopban számok vannak. Egy másik oszlopban egészen vad feltételeket adhatsz meg. Pl.: =VAGY(ÉS(MARADÉK(A2;2)=0;MARADÉK(A2;3)=0);A2>350;GYÖK(A2)<10) IGAZ értéket kapsz, ha az A oszlopban a szám maradéktalanul osztható 2-vel ÉS 3-mal, VAGY a szám nagyobb, mint 350, VAGY a szám gyöke kisebb 10-nél. Minden más esetben HAMIS az érték.
A második esetben szövegek vannak az A-ban, itt a képlet: =ÉS(A2>"m";BAL(A2;1)<>"t";BAL(A2;2)<>"me";BAL(A2;2)<>"mu") Itt akkor kapsz IGAZ értéket, ha a hivatkozott szöveg kezdete m, vagy annál nagyobb, de nem "t", ÉS a szöveg kezdete nem "me", ÉS nem "mu". Nem tesz különbséget a kis- és nagybetûk között.
Mindkét esetben a képletet tartalmazó oszlopra kell szûrnöd.
A 2. pontnál a feltétel az legyen, amit a feltételes formázásnál adtál meg.
1. Az A oszlopba írtam vegyesen szöveget, és számokat. B2 -> =HA(NEM(SZÁM(A2));1;HA(A2<200;2;HA(A2>300;3;4))) Ez 1 és 4 közötti értékeket ad. Ezt az oszlopot szûrd. Pl. 4-re szûrve a 200 és 300 közötti értékeket mutatja meg.
2. Egy másik oszlopba: =ha(feltétel;hivatkozott_cella*-1;hivatkozott_cella)
2; Ha csak azt szeretnéd hogy csak "megjelenítse" de ne úgy számolja ki(abban az esetben ez a tipp nem alkalmazható) akkor cellák kijelölése> jobb gomb> cellaformázás menüpont >szám fülön a Kategóriáknál kiválasztod az egyénit majd a formátum kód beviteli mezõjébe begépeled a : -# karaktereket.Még egyszer mondom, hogy ez számolásra nem alkalmas!!!
megköszönném, ha vki tudna segíteni pár kérdésben (2003-as verzió)
1; Lehet-e az autószûrõvel (egyedi...) 2-nél több feltételt megadni? Ha igen, hogyan? Ha nem, akkor hogyan lehet máshogyan megoldani?
2; Meg lehet-e oldani olyasmit, hogy pl. egy adott oszlop elõre megjelölt celláiba a beírt számértékeket negatív számként jelenítse meg, ha igen, akkor hogyan? Pl. a kérdéses oszlop egymás alatt lévõ számai, mondjuk 43,44,49,13,42,20,8,49,stb. És én azt szeretném elérni, hogy mondjuk az elsõ 3 szám -43,-44,-49-két szerepeljen. Ha pl az üres oszlop celláit beszínezném elõre (mert az korábban kiderül már az elõtte lévõ cellák tulajdonságaiból, hogy melyek lesznek azok és azt autószûrõvel leszûrve a kérdéses oszlopot már egyszerûen lehet színezni a megfelelõ helyeken)) és mikor töltöm föl a kérdséses oszlopot, akkor az elõre megjelölt cellákban pozitív helyett negatív számok lennének (akár már a begépelés során is).
Elõre is köszönöm szépen ha vki tud segíteni.
Ezt így nem lehet eldönteni. Küldd el a füzetet, privátban megadom a címet.
Még csak most sikerült kipróbálni a megoldást, amit mutattál az igazi értékeket tartalmazó táblázatban, de sajnos valószínûleg vmit rosszul csinálok, mert ott nem akar mûködni. Elõször megpróbáltam a saját elnevezéseimmel. A képletekben átírtam mindent, ezért gondoltam, hogy nem lesz gond, de aztán nem mûködött. Utána átírtam az elnevezéseimet azokra, amiket te is használsz (a munkalap nevét Munka1-re, a B1-t Adat_1-re stb.), de sajnos így sem jött össze.
Ezt a hibát írja ki, amikor az adatsort akarom szerkeszteni:
"A munkalapon lévõ valamely képlet érvénytelen hivatkozást tartalmaz.
Ellenõrizze, hogy a képletekben az elérési út, a munkafüzet, a tartománynév és a cellahivatkozás helyes-e."
Ellenõriztem, és nem találtam hibát, ezért szeretnélek téged megkérdezni, hogy hol követhettem el a hibát, ami ezt okozza.
Elõre is köszönöm!
Az mitõl van hogy a táblázat egyik fülén az oldalsó scrollt hiába mozgatom nem megy lejebb a táblázat?? a többi fülön rendesen mûködik, a scroll lock sincs bekapcsolva...
Egyszerûbb a SORSZÁM függvény, eddig nem ismertem. Én köszönöm.
Köszönöm a választ! :) De nem erre gondoltam. Valószinüleg rossz példát hoztam.. Egy pontrendszert vezetek, van kb. 50 ember, és a nevük mellett egy pont. Mindenki neve mellett külömbözõ, valakié magasabb érték, valakié alacsonyabb. Azt szeretném ha rangsorolná õket, akinek a legtöbb pontja van annak a neve mellé "1"-est tegyen.. stb..
Sziasztok! újabb kérdésem lenne! :) Van egy számsorom: Pl.: A B 11 1 22 2 24 4 23 3 Tehát azt szeretném hogy az "A"-oszlopban megadott számokat a "B" oszlopban osztályozza.
Kipróbáltam egy új munkafüzetben, ahova csak véletlenszerû adatokat írtam be, és tökéletesen mûködik :) Ez nagyon megkönnyíti a dolgomat, úgyhogy köszönöm még1szer is :)
Most nekiállok az igazi adatokat tartalmazó munkafüzetben is elkészíteni a diagrammokat. Ott több diagrammra is szükségem lesz, de a leírásod alapján könnyen fog menni az is szerintem :)
Írok, ha kész vagyok.
Blaster és Culram: szívesen.
Blaster, várom, mire jutottál.
Nagyon szépen köszi. Lehet még majd kérdezek, attól fögg hogy haladok a cumóval.
Kérlek nézd meg a táblát egyszerûen nem számol. Tehát azokat az értékeket számolja meg amik kívül esnek az LCLr-UCLr tartományon. Ezek az értékek odébb vannak pár oszloppal. És a teli pirossal kielemelt értékeket kellene megszámoltatni.Az excel file
Biztosan az R (18.) oszlopban vannak az adataid? A makró elején állíts be a lapot aktuálisnak, hogy biztosan arról a lapról vegye az adatokat.
A Dim és a For sor közé Sheets("Munkalap_neve").Select
Tehát ha azt szeretném hogy a határok -0.039 és 0.039 közé essenek, és egy másik lap B2-es mezejére szeretném íratni az eredményt, és csak azokat számolja össze amely értékek ezeken a határon kívül esnek akkor ez lesz a a kód?:
Sub OOCs() '-0.039 és 0.039 közöttiek összege Dim sor As Integer Dim ossz As Variant
For sor = 3 To 345 If Cells(sor, 18) <= -0.039 And Cells(sor, 18) >= 0.039 Then ossz = ossz + 1 End If Next
Range("Results!B2") = ossz
End Sub
És ha igen, akkor miért nem számol? Nem jelenít meg eredményt, pedig annak 43-nak kell lennie.
Elég ijesztõen fog hatni az alábbi leírás, de érdemes végrehajtani.
Gondolom, az A oszlopban vannak a dátumaid, mellettük az adatok, az elsõ a címsor. Két oszlopnyi értékre írom le, mit kell tenned. A példámban a $J$1 cellába kell beírni a kezdõ dátumot, írj oda egy olyan dátumot, ami szerepel az A oszlopodban. Nálam a Munka1 lapon vannak az adatok, a B1 Adat_1, a C1 Adat_2. A lenti képletekben a lap nevét, a címsort, és a dátum helyének címét írd át a saját értékeidre.
A Beszúrás/Név/Név megadása ablakban a Munkafüzetben lévõ nevek-hez beírod: Kategória. Lent, a Hivatkozáshoz bemásolod: =OFSZET(INDIREKT("Munka1!A" & HOL.VAN($J$1;Munka1!$A:$A;0));0;0;11;1)
A következõ név nálam Érték_1, ehelyett írhatod az elsõ adatoszlopod nevét. A hivatkozás: =OFSZET(INDIREKT("Munka1!A" & HOL.VAN($J$1;Munka1!$A:$A;0));0;1;11;1)
Harmadik név nálam Érték_2, oda is írhatod a saját oszlopod nevét. Hivatkozás: =OFSZET(INDIREKT("Munka1!A" & HOL.VAN($J$1;Munka1!$A:$A;0));0;2;11;1)
Ezután a szokásos módon létrehozod a grafikonodat. Kijelölöd az egyik adatsort, jobb klikk, Forrásadat. Az Adat_1 lesz kijelölve az Adatsoroknál. Az értékek rovatba ezt írod: =Munka1!Érték_1 (illetve az Munka1-nek és az Érték_1-nek megfelelõ neveket adod). Átváltasz az Adat_2-re. Az értékekhez =Munka1!Érték_2 jön. A kategóriatengelyhez =Munka1!Kategória kerül.
Figyeld meg, hogy az OFSZET függvényeknél csak 1 érték változik, jobbról a harmadik. Ez adja, hogy az A oszlopban megtalált dátumtól hány oszloppal jobbra lévõ értéket tegye a grafikonba. Ennek alapján több oszlopot is be tudsz vinni.
Kicsit macerás a dolog, de egyszer kell elkészíteni, és ettõl kezve csak a kezdõ dátumot írod a J1-be, és már mutatja is az 11 napot.
Még egyszerûbbé válik a grafikon használata, ha a J1-be érvényesítést teszel. Adatok/Érvényesítés. A Megengeve legördülõbõl a Listát választod, a Forráshoz =A:A kerül. Innen kezdve a J1-ben egy legördülõbõl választhatod ki a megfelelõ kezdõ dátumot.
Az ossz = ossz + cells(sor,18) változik úgy, ahogy írtad: ossz = ossz+1 – re. Az ossz változót úgy állítottam be, hogy tizedest is elfogadjon (Dim ossz As Variant). Ki is próbáltam, tudja a tizedeseket.
Köszi, valamennyire tudom használni. De ha jól értelmezem a kódot akkor ugye a cella értékét adja hozzá az össz-höz? Ha azt akarom hogy számolja azt mikor az állítások megvalósulnak, tehát 1,2,3... akkor a Cells(sor,18)-at átírhatom 1-re? És ha nem egész számok a kritáriumok akkor hogy adom meg azokat, mert a vesszõt ugye nem fogadja el, ha meg ponttal írom akkor nem számol velük.
Diagrammal kapcsolatos kérdésem lenne. Nem tudom, hogy megvalósítható-e, de gondolom kevés olyan dolog van, amit ne lehetne megoldani :) Létrehoztam egy vonaldiagramot, ami dátum szerint jelenít meg adatokat. Konkrétan, hogy melyik nap mennyi volt a bevétel. Betettem január 5-tõl 15-ig az adatokat. Azt szeretném elérni, hogy 16-án majd automatikusan ugorjon egy napot. Tehát ne január 5-tõl 15-ig mutassa az adatokat, hanem január 6-tól 16-ig, 17-én pedig 7-tõl 17-ig, és így tovább.
Tud valaki segíteni?
Elõre is köszönöm!
Szívesen. :)
okés bocsi az nem rám vonatkozik leesett, amikor vissza olvastam:))
Sub FeltOsszegzes() '-3 és 3 közöttiek összege Dim sor As Integer Dim ossz As Variant
For sor = 3 To 345 If Cells(sor, 18) >= -3 And Cells(sor, 18) <= 3 Then ossz = ossz + Cells(sor, 18) End If Next
Range("Q1") = ossz
End Sub
Sub FeltOsszegzes_1() '2 és 2 alattiak összege Dim sor As Integer Dim ossz As Variant
For sor = 3 To 345 If Cells(sor, 18) <= 2 Then ossz = ossz + Cells(sor, 18) End If Next
Range("Q1") = ossz
End Sub
Ez egy kicsit cseles lesz. Szúrj be egy sort az elsõ elé. Az EQ1 (147. oszlop, 1 sor) legyen 1, az EP1 146. Ezt a kettõr másold az A1-ig, ami ezután 147-et fog tartalmazni. Jelöld ki a megfordítandó területet. Adatok/Sorbarendezés, Sor 1 szerint rendezzen, nincs rovatfej. Az Egyebek ablakban Balról jobbra.