Hozzászólások
-
Szia!
Na, jól elbeszélgettél magaddal amíg meg nem oldottad.
Pont erre utaltam az elején, hogy rögzítővel nézted-e, mert a rögzítő a több feltételes autoszűrést úgy veszi fel, ahogy a megoldásodban szerepel, tehát egy tömbben definiálja a feltételeket.A három feltétel VAGY kapcsolata azért nem sikerült, mert nem lehet megcsinálni. Csak kettőnek van hely.
Imre
Szia!
Ez makróval oldható csak meg.
Eseménykezelőt kell írni ami akkor fut le, amikor egy adott oszlopban lévő cella tartalma megváltozik.1. A szóban forgó munkalap nevén jobb klikk -> Kód megjelenítése
2. A megjelenő ablak jobb oldalának tetején(General) helyett átváltod „Worksheet”-re, mellette válaszd ki a „Change” eseményt.
3. Megjelenik a Worksheet_Change eseménykezelő Subrutin üresen.
4. Egészítsd ki erre:
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then Application.EnableEvents = False Target.Offset(0, 1) = Date Target.Offset(0, 2) = Time Application.EnableEvents = True End If End Sub5. Ha sikerült, akkor azt fogod tapasztalni, hogy bármit beírsz vagy változtatsz az „A”, azaz az 1. oszlopban, mellé beírja a dátumot, amellé meg az időt.
Ha nem az „A” oszlopról lenne szó, akkor a kódban módosítsd a
If Target.Column = 1részt az annyiadik oszlopra, amit szeretnél.6. Mentsd a munkafüzetet makróbarát munkafüzetként (*.xlsm)
Szólj, hogy sikerült-e!
Imre
Szia!
Igen,a hiba abban van, hogy az időket nem kettősponttal írjátok be.
Úgy kellene.
Ezzel még nem vagy kész, de ez lenne az alap.Tudni kell még, hogy az Excel az időt a nap törtrészében értelmezi.
1 nap, azaz 24 óra, az 1 egész.
Tehát fél nap, az 0.5.Ha időket összeadsz vagy bármilyen műveletet végzek velük, akkor ezzel tisztában kell lenni.
Emiatt, ha rendes órában akarsz eredményt kapni, mert pl. órabérben akarsz elszámolást végezni, akkor át kell váltani az időértéket órára.
Mert ha valaki mondjuk dolgozik 8 órát, az valójában 1/3 nap, tehát az érték, amit tárolni fog, az 0.3333… nyilván nem ezt akarod szorozni az órabérével, hanem a 8-at.
Ezért el kell osztani 1/24-el, vagy szorozni 24-el, hogy rendes órát kapj.0,3333*24=8A javítás és további magyarázat a fájlban van.
Majd jelezz vissza, hogy rendben lett-e!
Imre
Szia!
Elég közel jársz a helyes megoldáshoz.
Talán el is olvastad a nemrég postolt anyagot az egyéni számformátumokról, ahol ott van, hoyg a nulla vagy a kettőskereszt egy, azaz 1 számjegyet képvisel.Tehát neked kettesével kell beállítani ezt. hat számjegy estén 3 pár számjegy lesz:
##" "##" "##Ha a formázandó szám több jegyű, akkor a bal oldalát nem fogja tagolni. emiatt a várható leghosszabb számot kell feltételezned, és azt kell hasonlóan kettesével megadnod.
A szóközt csak azért kell idézőjelbe tenni, mert máskülönben magyarországon ezres tagolónak gondolja.Jó így?
Imre
Kedves Krisztián!
Bár a fent leírt makró úgy tűnik, hogy jó lenne, de azért előtte érdemes kipróbálni ezt-azt.
Az Excelben ilyesmire találták ki a RÉSZÖSSZEG (SUBTOTAL) függvényt. Ennek speciális módon meg lehet adni, hogy a rejtett sorokat belevegye, vagy ne vegye bele az összegbe.
Használata:
=RÉSZÖSSZEG(109;Tartomány)Ezzel a függvénynel nem csak összegző, hanem más összesítéseket is lehet végezni(pl Átlag). Az első paraméterben dől el minden.
Olvasd el a FÜGGVÉNY SÚGÓJÁT!A 2010-es verziótól ugyanezt meg lehet csinálni az ÖSSZESÍT (AGGREGATE) függvénnyel. Erről már van egy bejegyzés a bázison:
http://excel-bazis.hu/tutorial/osszesit-aggregate-fuggveny-az-uj-reszosszeg-bajnokMajd jelezz vissza, hogy sikerült-e!
Imre
Igen, létezik, de azt nem FKERES-el, kell megoldani, hanem a HOL.VAN/INDEX páros tömbképletes megoldással, aminek az egyszerűbb verziója itt van a Bázison, ráadásul ez a legnépszerűbb, talán nem véletlenül:
http://excel-bazis.hu/tutorial/fkeres-vlookup-helyett-van-jobbA lényegét ott elolvashatod, a megoldást pedig visszatöltöm csatolva, várom a visszajelzésedet.
A képletet a rendszámnál Ctrl+Shift+Enter-rel kell lezárni, ha hozzányúlsz, vagy másolod az éles verzióba!Imre
Örülök, hogy megoldódott.
Meg lehetne csinálni, hogy a fehér helyett a „Nincs kitöltést” adnánk meg, de ha nem muszáj, akkor ezt már rátok bíznám…Ha megengedsz még egy megjegyzést.
Olyan táblázatokat, amiken intenzíven dolgozunk, szűrünk, keresünk, bármi, jobb ha nem formázzuk sehogy. Rengeteg kellemetlenségtől szabadulunk meg.
Legfeljebb a fejlécet, esetleg a számformátumot, hogy olvashatóbbak legyenek az adatok.Formázni csak a „Presentation” szinten javasolt.
A világban ez a trend, a „Best Practice”Minden jót a következő kérdésig,
Imre
P.S
Makróírást például nálunk is lehet tanulni.
http://pentaschool.hu/office/excel-makro-vba-tanfolyam.phpHa ez az időpont nem jó neked, ami most lesz, de különben érdekelne, akkor az oldal tetején lévő kis táblázat „Érdeklődés” gombjával tudsz érdeklődőként regisztrálni egy későbbi időpontra. A megjegyzésbe írd be, hogy nappali vagy inkább esti időpont lenne jó.
Szia!
Megcsináltam neked a makrót, csak a beillesztését kell megoldanod, a kódután leírom hogyan:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Const nofill As Double = 16777215 If Target.Column = 1 Then uo = Target.CurrentRegion.Cells(Target.CurrentRegion.Cells.Count).Column If Target.Interior.Color = nofill Then Range(Target, Cells(Target.Row, uo)).Interior.Color = RGB(252, 213, 180) Else Range(Target, Cells(Target.Row, uo)).Interior.Color = RGB(255, 255, 255) End If End If End SubBeillesztés
1. Annak a lapnak a nevén, ahová szeretnéd jobb klikk ->Kód megjelenítése vagy View Code
2. A jobb oldali ablak tetején az első legördülőt „General” helyett „Worksheet”-re állítod
3. A mellette lévő legördülőben megkeresed a „BeforeDoubleClick” eseményt.
Ezután kapsz egy üres eseménykezelő rutint, amit a fenti kóddal cserélj ki
4. KipróbálhatodHa az első (A) oszlopban duplán kattintasz egy cellán, akkor az egész sort a kódban látható RGB színre színezi, majd aktívvá teszi a cella szerkesztését. Ez utóbbit nem tudtam kiküszöbölni.
Ha egy már színezett sor első celláján kattintasz duplán, akkor leveszi a színt.5. ha tetszik, akkor a fájlt makróbarát munkafüzetnént (*.xlsm) formátumban kell mentened.
remélem sikerül, azért csatolok egy képet.
Imre
P.S
A másik kérdésben nem tudok segíteni sajnos.Szia!
Egyik probléma generálja a következőt! 🙂
Mindenesetre nagyon inspiráló kérdéseket teszel fel, de még állom a sarat! 🙂
Először el akartam passzolni, de végül ezzel is elvoltam egy darabig, és az egyik ötlet beválni látszik.
Most csak arra hozom a példát, hogy az A oszlopra akarsz hivatkozni INDIREKT-el.
Angol 2013 előtt ülök most, a magyar megfelelőket kell használnod.
Lépésenként megyünk:
1. B1-be írd ezt
=CHAR(34)&ADDRESS(ROW(A1);COLUMN(A1);4)&CHAR(34)
A KARAKTER(34) az idézőjel kódja. A CÍM függvény visszaadja egy cella címét. belül a SOR és OSZLOP függvényeket használtam a sor sé oszlop tényezőkhöz, a 4-es pedig azt kéri, hogy relatív, tehát A1 formában adja vissza.
ha ezt beírod a B’-be, akkor „A1” lesz az eredmény.
Húzd le az egész oszlopra.2. C1-be írd ezt:
="=INDIRECT("&B1&")"
Ez szövegesen képzi az INDIREKT függvényt, belefűzve az előbb összerakott címet. Az eredménye ez lesz: =INDIRECT(„A1”). Viszont nem számol, mert ez még csak szöveg.
Húzd le az egész oszlopra.
(Ha a képletnek még van további része, akkor azt szövegesen hozzáfűzheted még itt)3. A C oszlopot saját magára tedd vissza értékként.
Továbbra is szöveg marad, de már nem képlet, tulajdonképpen működnie kellene. Ezt ki tudod próbálni, ha a C1-en nyomsz egy F2-t, majd egy ENTERT, azonnal jó lesz. De ezt több ezer soron macerás lenne, ezért:4. jelöld ki a C oszlopot, majd nyomd meg az ALT-F11-et, hogy átlépj a Visual Basic szerkesztőbe.
Ezután nyomj Ctrl-G-t, hogy megnyíljon a parancssor. (Immediate Window). Rendezd úgy az ablakokat, hogy mögötte lásd az excel felületen még mindig kijelölt C oszlopot.5. Az Immediate ablakba írd be:
selection.formula=selection.formulaEz eljátssza, mintha minden cellán nyomtál volna egy F2+ENTER-t.
6. A segéd B oszlopot ezután törölheted.
Nekem ez így sikerült.
Csatolom a minta fájlt. Ebben először a D oszlopba lemásoltam a C oszlop képletét, és a 3. ponttól azon csináltam meg, hogy megmaradjon az eredeti.
Imre
Szia!
Tipikus alkalmazási lehetőség az INDIREKT függvényre.
Magyar verzióban INDIREKT, angolban pedig INDIRECT.
Tehát, ha pl. a B2-es cellára akarsz mindig hivatkozni, és nem szeretnéd, hogy a hivatkozás kövesse a B2 mozgását (vontatás, vagy sor/oszlop beszúrás, stb.), akkor így kell rá hivatkozni:=INDIREKT("B2")Az INDIREKT függvény argumentumában szövegesen adjuk meg a hivatkozott cella vagy tartomány címét. Ez az alkalmazás a lehető legegyszerűbb, de jelentősen bonyolultabb hivatkozások is összerakhatók szöveges összefűzésekkel.
Imre
Szia Feri!
Nem találkoztam még hasomló problémával. Egy gondolatom lenne magamtól:
Az a kérdés, hogy tudsz-e Active-X vezérlőt (Gombot vagy bármilyet) betenni egy teljesen új munkafüzetbe?
Ha igen, akkor valószínűleg megsérült a jelenlegi fájl. Pakolj át mindent egy újba.Más lehetőségek:
Rákerestem, ezeket találtam, remélem segíthet valamelyik. majd írd meg, ha esetleg.
http://www.experts-exchange.com/Software/Office_Productivity/Office_Suites/MS_Office/Excel/Q_27664527.htmlSzia Csilla!
Még nem csináltam ilyet, de utánanéztem.
Csak arra találtam megoldást, hogy másik munkalapról hogy lehet választani, illetve kijelölni. Úgy tűnik, hogy másik munkafüzetből nem enged választani, állandóan visszadob az aktuális munkafüzetbe.Egy kicsit módosítottam, hogy ne legyen benne goto, és ha semmit nem választunk, akkorne történjen semmi.
Sub proba() Dim ThisArea As Range On Error Resume Next Set ThisArea = Application.InputBox(prompt:="Select a range...", _ Title:="Select a range in a different worksheet", Type:=8) If Not ThisArea Is Nothing Then 'ide jon, amit akkor kell csinalni, ha valasztott valamit ThisArea.Parent.Parent.Activate ThisArea.Parent.Activate ThisArea.Select End If On Error GoTo 0 End SubAhol találtam:
http://www.vbaexpress.com/forum/showthread.php?21137-Solved-Inputbox-method-to-pick-a-range-in-another-workbookMit csinál:
– A ThisArea az Inputbox-al kijelölt terület
– ThisArea.parent a kijelölt terület munkalapjának (szülője) neve
– ThisArea.Parent.Parent A munkafüzet, ahonnan választottad.Tehát belép a kijelölt tartomány munkafüzetébe és munkalapjába, és kijelöli a kiválasztott tartományt.
Másik munkafüzet
Ehhez egy speciális UserForm-ot kell készíteni, ahol először munkafüzetet választasz, és utána külön tartományt a refEdit vezérlővel. A megoldást itt találod:
http://stackoverflow.com/questions/18125650/vba-dialog-box-to-select-range-in-different-workbookFigyelem!
A párbeszéd kirakása előtt meg kell jegyezni, hogy melyik munkafüzet az aktív, mert ez azzal trükközik, hogy aktívvá teszi a megadott munkafüzetet, majd ott enged választani. A választás után, a Form bezárását kövbetően vissza kell menni az eredetileg aktív munkafüzetbe.Sok sikert,
Imre
Szia!
Alapvetően szerintem két út áll előtted, ha valamiféle automatizált szűrést szeretnél.
Az egyik a makró. Ezen belül két lehetőséged van:
1. Egy gombnyomásra vagy billentyűkombinációra induló szűrés, ami a fő táblázatod sorait az aktuális állapot szerint az igényeid szerint szűri, és az egész eredményt, vagy annak csak a kívánt oszlopait átteszi egy megadott lapra.2. A másik, hogy eseménykezeléssel automatizálod, azaz ha a címke oszlopban változás történik, akkor fusson le az előbb leírt szűrés és másolás.
A másik pedig a képlettel történő dinamikus szűrés.
Erre itt találsz példát:
http://exceltactics.com/make-filtered-list-sub-arrays-excel-using-small/Imre
Szia!
Nézzük a létező problémákat:
- Igen, gyakran előfordul, ha mindenképpen szövegesként szeretnének egy értéket, hogy elé generálnak egy aposztrófot
- Az aposztroftól nem könnyű megszabadulni. Pl. ha aposztróf nélkül leírjuk a cella tartalmát egy másik cellába, majd értékként beillesztjük az aposztróforra, akkor is megmarad az aposztróf.
- Ha egy képlettel eltüntetjük az aposztrófot, akkor a cella tartalma nem lesz üres, mert az excel nem rtud egy cellába ÜRES, azaz BLANK értéket írni. Ezt dupla idézőjellel szokták csinálni, de ez nem üres cella, csak üres sztring.
Megoldási lehetőség
- A csak aposztrófokat tartalmazó cellák hossza nulla. Írunk egy képletet, ami a nem nulla hosszúságú cellákról leveszi az aposztrófot, a nulla hosszúságúak helyett pedig egy számot ad (mindegy mit, én a nullát választottam.) Legyen A10 az aposztrófos oszlop első cellája, akkor mellé egy segédoszlopba jön a képlet:
=IF(LEN(A10)<>0;RIGHT(A10;LEN(A10));0) =HA(HOSSZ(A10)<>0;JOBB(A10;HOSSZ(A10));0) - Ezután ezt lemásoljuk az egész oszlopra
- A képletes oszlopot kijelöljük (ha nem lenne kijelölve) és a speciális kijelölést választva azt jelöljük be, hogy Képlet->Szám. Ezzel kijelöli csak a nullákat, és egy DEL-el lehet őket törölni.
- Még mindig ugyanezt az oszlopot saját magára értékként beillesztjük.
- Kitöröljük az eredeti, aposztrófos oszlop tartalmát. (Fejléce marad)
- Az előbb értékként beillesztett oszlopot áttesszük az eredeti helyére, a segédoszlopot törölhetjük.
Kész, mehet a kategóriák pótlása a fenti leírás szerint.
Ja, és abban van a speciális kijelölés is, ha esetleg valaki nem ismerné…
Imre
-
A hozzászólás módosításra került: 10 years, 10 months telt el-
.
-
A hozzászólás módosításra került: 10 years, 10 months telt el-
-
A hozzászólás módosításra került: 10 years, 10 months telt el-
-
A hozzászólás módosításra került: 10 years, 10 months telt el-
-
A hozzászólás módosításra került: 10 years, 10 months telt el-
Szia!
A régi és az új ügyfelek számolását továbbra sem értem. Főleg, ha TAJ oszlopot használod erre. egy kicsit magyarázd el.
Nem nagyon indokolt különben olyan képletet alkalmazni, ami teljes oszlopokra hivatkozik. Ne felejtsük el, h több, mint 1 millió sor van!
A megoldás az, hogy táblázattá kell alakítani a statisztika adatlap tartományát, és így név szerint tudsz hivetkozni egy oszlopra, bármennyi sora van, az új sorokkal pedig automatikusan bővülni fog.
Lásd: http://excel-bazis.hu/tutorial/dinamikus-nevtartomany-hasznalataDe egyelőre hagyjuk ezt, és nézzük csak a régi/új oszlop képletét, amit dinamikus névtartomány használatát feltételezve így írnék:
=HA(DARABTELI(Taj;B2)=1;"uj";"regi")
Ez azt fogja tenni, hogy ha egy Taj számot újra bevisznek a táblázatba, akkor az „régi” lesz, de az első előfordulása is átvált „régi”-re, és Te pont ezt szeretnéd, ah jól értem.majd ezután csinálnék az egészből egy PIVOT-ot, aminek a Sor cíkéjébe bevinném a TAJ mezőt, az oszlop címkéjébe a Regi/uj mezőt, és a Szumma területébe pedig behúznám újból a régi/új mezőt, hogy megszámlálást csináljon.
Így minden Taj-ra megkapod, hogy régiként hányszor van benn és újként hányszor (itt csak az egyszer szereplő Taj számok lesznek nyilván)
A sor összesítésben Taj számonként fogod látni, hogy hányszor van bevive ua a Taj, az oszlop összesenekben pedig látod, hogy hányszor szerepel a régi és hányszor az új szó az oszlopban.
talán ez még nem teljesen az, amit szeretnél, mert ha egy ügyfél háromszor van benne, akkor az három „régi” szó lesz, de ez valójában egy db régi ügyfél.
Megoldás:
A taj oszlop mellé kell egy segédoszlop,a mi egy Taj első előfordulásákor 1-et ad, különben pedig nullát. A TAJ a B oszlopban van, akkor a képlet a C oszlopban:
=HA(DARABTELI($B$2:B2;B2)=1;1;0)
És a PIVOT-ba a szumma területre ezt a mezőt is húzd be. (Szum fv)
Az oszlop összesenekben látszani fog, hogy hány régi és hány új ügyvél van.Imre
