Hozzászólások
-
Az adatlap_2 lapon módosítottam az összesítő oszlopok címsorát. Ha például a mindennapos tevékenységnél és a motoros ügyességnél is csak össz. pontszám szerepel, az INDEX(HOL.VAN) párossal a motorosnál is az első találat – mindennapos – értéket kapnánk. Az adatlap_% és a profil lap 2. sorában mindenhova hivatkozással vittem be a címeket.
Az adatlap!B5 és az adatlap!B8 cellákban is szerepel a 32-es érték, ez hibát okoz a profil lapon.Egy kis leírás a függvényhez, ami a profil lap B3 cellájában van:
Az INDEX függvényben megadjuk a tartományt, amiben bizonyos cellák értékére van szükségünk. Ez a tartomány a mi esetünkben az ‘adatlap_%’!$A:$AIA függvény második paramétere a sorszám, a tartománynak ebben a sorában lévő adatot keressük. A HOL.VAN függvénnyel keressük ki ezt a sort.
HOL.VAN($A3;'adatlap_%'!$B:$B;0)
Ez azt jelenti, hogy az A3 értéket (100-at) az adatlap_% B oszlopában keressük. Az utolsó paraméter, a nulla mondja meg a függvénynek, hogy pontos értéket keresünk. Lehetne még közelítő keresés is, de az most nem érdekes. A hol.van értéke itt 3, mert a másik lap 3. sorában találja meg a hol.van a 100-as értéket.Az INDEX harmadik paramétere az oszlopszám. Itt határozzuk meg, hogy a tartomány melyik oszlopában szereplő értéket akarjuk megkapni. Ezt is a HOL.VAN függvénnyel határozzuk meg.
HOL.VAN(B$2;'adatlap_%'!$2:$2;0)
Itt az adatlap_% második sorában keressük meg a címsorban szereplő értéket (B$2). A fenti képlet a 4. oszlopot adja meg, mert ott találja meg a szobatisztaság szöveget. Nekünk viszont az előtte lévő oszlop adata kell, ezért a megtalált oszlopszámból levonunk 1-et.
HOL.VAN(B$2;'adatlap_%'!$2:$2;0)-1)A profil lap A oszlopában most olyan számok is vannak, amik az adatlap_%-on még nem szerepelnek. Mivel ebben az esetben a HOL.VAN függvények #HIÁNYZIK értéket adnának, a teljes képletet beágyaztam a HAHIBA függvénybe. Ha hiba van az INDEX-HOL.VAN párosban, akkor a HAHIBA 2. paraméterében megadott „” (üres string) lesz az eredmény.
Még most is baj van a profil lap felépítési logikájával. A Mindennapos tevékenység csoportban az első megnevezés, a szobatisztaság előtt szerepel a %, a további 3 csoportban nem. Nem látom át a teljes feladatot. A részletesen leírt függvényt most már biztosan át tudod alakítani a saját igényeidhez.
A második, tarc-1-2.xlsx a jó.
Szia!
Vidd fel a római számokat emelkedő sorrendben az egyéni listákhoz (Az Excel beállításai, Népszerű elemek, Alapvető beállítások az Excel használatához, Egyéni listák).
Állj be a rendezendő tartományba, Rendezés, Egyéni sorrend. A Sorrend legördülőjében az A-Z helyett az Egyéni listát választva kattints a felkínált római számokra.
Szerk.: többszöri próba esetén valamiért a IX. kerület a IV. után jelenik meg rendezéskor, nem tudni, miért. Utólag kijelölve a IX. kerületi adatokat a helyükre húzhatod, ha Nálad is előjön ez a furcsaság. A többivel nálam nincs gond.
Teszek fel egy fájlt. A mostani 3 lapon azonos helyen vannak a bevételek és kiadások. Minden kategóriában hagytam üres sorokat, ahova újakat adhatsz meg. Új megnevezés esetén kijelölöd az összes lapot, majd az éppen aktuális lapon a B oszlopba beírod az új megnevezést. MEGSZÜNTETED A LAPOK KÖZÖS KIJELÖLÉSÉT!
Hasonlóan jársz el új sor beszúrásakor. Fontos, hogy minden lapon azonos sorban legyenek az azonos megnevezések.A többi hónaphoz: kijelölöd a január lapot, a Ctrl nyomva tartása mellett áthúzod a február lap mögé, majd átnevezed a lapot. Most az új (március) lapon a C oszlopban törlöd az adatokat, de az összesítéseket nem. Ezt az kiürített lapot másolod tovább.
A 2018 lapon folytathatod a B:C oszlopok képleteinek a másolását.
Figyeld meg a csoportosításokat. Jelenleg a 2018 lapon az egyes csoport látszik, a januáron a kettes, a februárin pedig a hármas. A táblák bal oldalán fent, valamint a + és – jelekre kattintva módosíthatod a csoportok láthatóságát.
Az éves összesítőre ugrásodat nem láttam, betettem helyette a január lapra egy visszaugrást.
2003-ban a karakter nagyságát kisebbre kell állítani, magasabb verzióban jó lesz.A gombot másolhatod a többi lapra, viszi magával a makró-hozzárendelést.
Miután elküldtem, észrevettem, hogy hiányzik a hónap első napja. Az AH oszlop elé szúrj be egy oszlopot. A Műszak lap C2 képlete legyen =INDEX(Naptár!$A$1:$AF$14;HOL.VAN($A$2;Naptár!$A:$A;0);OSZLOP()-1), ezt húzd jobbra az AG2-ig.
A lenti képletekben is kell javítani. Mégis elküldöm az újabb verziót.
Míg Imre előkerül, és megmondja, miért nem jó ez:
Sub Masolasok() Dim tomb(2, 15), utvonal As String, FN As String, sorszam As Integer Dim WB As Workbook 'első mappa fájlnevek feltöltése a tomb() tömbbe utvonal = "F:\első mappa\" FN = Dir(utvonal & "*.xlsx", vbNormal) Do While FN <> "" sorszam = sorszam + 1 tomb(1, sorszam) = FN FN = Dir() Loop 'második mappa fájlnevek feltöltése a tomb() tömbbe utvonal = "F:\második mappa\": sorszam = 0 FN = Dir(utvonal & "*.xlsx", vbNormal) Do While FN <> "" sorszam = sorszam + 1 tomb(2, sorszam) = FN FN = Dir() Loop 'másolások For sorszam = 1 To 15 Workbooks.Open "F:\első mappa\" & tomb(1, sorszam) Set WB = ActiveWorkbook Workbooks.Open "F:\második mappa\" & tomb(2, sorszam) Sheets(4).Copy After:=WB.Sheets(3) ActiveWorkbook.Save ActiveWorkbook.Close ActiveWorkbook.Close Next End SubEsetleg ott lehet majd gond, hogy nem biztos, hogy az 1. mappa 1. fájljához kell a 2. mappa 1. fájl utolsó lapja. Lehet, hogy valami szerint (név, mentési idő) párba kell rendezni a fájlokat a másolások elindítása előtt.
Az utvonal változók értékét írd át a saját 2 útvonaladra, minden előfordulásukkor a makró futtatása előtt.Több dolog ismeretlen. Vegyük, hogy 1 lap bizonyos sorait, oszlopait láthatják a különböző felhasználók a saját gépükön. Ilyenkor a username ismeretére van szükség.
A lapon elrejted a sorokat és oszlopokat. Csak az maradjon látható, amit 1 bizonyos felhasználó láthat. Nézet menü, Munkafüzetnézetek, Egyéni nézetek, Hozzáadás. Nevet adsz a nézetnek. Ezt pl. Kiss Jóska láthatja.
Nagy Piroskához újabb nézetet adsz meg az fenti minta szerint. A saját nevedhez legyen minden látható.
Mikor minden nézetet bevittél, levéded a lapot.A ThisWorkbook-ba beírod a makrót.
Private Sub Workbook_Open() Dim nev As String, csoport As String Sheets(1).Select ActiveSheet.Unprotect Password:="Jelszó" nev = Environ("username") Select Case nev Case "Kiss Jóska" csoport = "Csoport_1" Case "Nagy Piroska" csoport = "Csoport_2" Case "Saját nevem" csoport = "Mind" End Select ActiveWorkbook.CustomViews(csoport).Show ActiveSheet.Protect Password:="Jelszó" End SubSzerk: ez megint nagyon csúf lett, pedig a makrót a code kiválasztása után másoltam be. Hogy lehet úgy írni, hogy a tagolás megmaradjon?
