Hirdetés
-
Mobilarena
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
-
#53264
Fire/SOUL/CD
félisten
Dolphine
#53263
válasz
Dolphine
#53263
üzenetére
Akkor hajrá! Leírtam mindent, próbáld ki. (jobb egér az csak a menü előhívása, így tudsz beszúrni megjegyzést vagy jegyzetet.) Mindkettő automatikusan megjelenik ha az adott cella fölé viszed az egérkurzort. Vélhetően a jegyzet lesz a barátod, a megjegyzés összetettebb feladatokra képes, pl. megírhatod megadnak, hogy miért módosítottad a megjegyzést vagy akármit...
Megjegyzés
Jegyzet
-
#53262
Fire/SOUL/CD
félisten
Dolphine
#53258
válasz
Dolphine
#53258
üzenetére
"A kérdés az, hogy van-e arra lehetőség, hogy ennél a cellánál, hogyha az egér kurzorját felé viszem, akkor általam tetszőleges információ jelenjen meg?"
Lehetőség van Megjegyzés(ez automatikusan, dinamikusan változik, hogy ki/mikor/mit módosított a cellában) és Jegyzet (fix szöveg) beszúrására cellánként (jobb egeres menü). Ha jegyzetet dinamikusan kell változtatni, akkor ahhoz Apps Script kell. -
Delila_1
veterán
válasz
Dolphine
#52097
üzenetére
Ha például Dobos Kitti fölé akarsz beszúrni egy sort, akkor kijelölöd a sort A-tól G-ig, Ctrl+ –ra feljön egy kis párbeszéd ablak, ahol bejelölöd a Cellák eltolása lefelé négyzetet.
Törlésnél Ctrl- –ra jön a törlős ablak.
Függőleges kijelölésnél is működik ez a két lehetőség. -
Delila_1
veterán
-
lappy
őstag
-
-
ny.janos
tag
válasz
Dolphine
#40253
üzenetére
Az általad felvázolt elképzelésnek pont a fordítottja logikus (nem beszélve arról, hogy sokkal egyszerűbb fájlt eredményez).
Az egyszerűbb kitöltés és tévesztési lehetőségek minimalizálása szempontjából mindenképpen az lenne a célravezetőbb, ha Delila_1 által javasolt soros elrendezésben vinnéd fel az adatokat (nevezzük ezt adattáblának). Attól függően, hogy azonos nevek előfordulhatnak-e érdemes lehet az osztályt is feltüntetni a nevek mellett.
Az űrlap felület maradhat egy új lapon excelben, vagy akár lehet word fájl is körlevél formátumban.Ha az excelt preferálod, akkor az űrlapon egy legördülő választéklistát lehetne létrehozni a nevekhez (és az osztályhoz), mely alapján a HOL.VAN függvénnyel meg tudod határozni az adattábládból, hogy annak hányadik sorában szereplő adatok tartoznak az adott tanulóhoz. A részeredményeket az űrlap lapodon az INDEX függvény és a HOL.VAN függvény kombinációja fogja kiírni az adott cellába. Az összeredményt pedig a SZUM függvény. A kérdés, hogy nyomtatva szükséged van-e az űrlapokra. Ha igen, akkor minden egyes nevet külön-külön ki kell választanod a választéklistából és egyenként nyomtatni (a nálam okosabbak tudnak erre neked makró megoldást is javasolni).
Ha word körlevélben gondolkodsz, akkor csak az űrlap kinézetét / formátumát kell elkészítened, majd az adattáblát tartalmazó excel fájlod alapján elkészíted a körlevelet. Így excelben mindössze a SZUM függvényre lesz szükséged. A wordben pedig a körlevél funkció utolsó lépését követően minden egyes tanulóhoz rendelt űrlap létrejön, és együtt tudod nyomtatni őket.
-
Delila_1
veterán
válasz
Dolphine
#40249
üzenetére
Igen, ez a lényeg. Az Excel alapvetően rekordokat (sorokat) tud úgy értelmezni, hogy azokból különféle statisztikákat, kimutatásokat lehessen létrehozni.
Ezzel a módszerrel a sok tanuló adatai áttekinthetőek lesznek.
Szűrőket is alkalmazhatsz, pl. hány tanuló teljesített a K1-ben maximálisan. -
-
Delila_1
veterán
-
#28523
szatocs1981
aktív tag
Dolphine
#28522
szatocs1981
aktív tag
válasz
Dolphine
#28522
üzenetére
Makrókat engedélyezed az EXCEL-ben, bemásolod, lefuttatod, majd ugyanúgy mented a munkalapot a makró nélkül.
Viszont ha ebbe a munkalapba nap, mint nap másolsz táblázatot, akkor "mentés makróval..." opciót válaszd és megmarad a makró.
A futtatás szerintem független ezetöl. Annak mennie kell, ha engedélyezve vannak.
-
#28518
szatocs1981
aktív tag
Dolphine
#28514
szatocs1981
aktív tag
-
-
Delila_1
veterán
válasz
Dolphine
#23151
üzenetére
Megírtam a 3 színhez, tudod folytatni.
Sub Piros()
Selection.Offset(-1).Font.Color = vbRed
End Sub
Sub Kek()
Selection.Offset(-1).Font.Color = vbBlue
End Sub
Sub Zold()
Selection.Offset(-1).Font.ColorIndex = 10
End SubA zöldhöz számmal adtam meg az árnyalatot, mert a vbGreen nagyon világos.
Tegyél ki 3 (5) alakzatot. Adj nekik nevet (itt Sz, I és T), és rendeld hozzájuk a megfelelő makrót.
Ezek színeznek a következő képpen: beírod a számot pl. a B4 cellába, mire a fókusz a B5-be áll. Rákattintasz a megfelelő színű alakzatra, ami az aktuális (B5) cella fölötti cella tartalmát színezi ki.
Írtam egy másik makrót, amit a lapodhoz kell rendelned. Ennek hatására az alakzatok mindig az aktuális cella mellett jelennek meg, kényelmesebbé téve a színezést.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Shapes("Sz").Top = ActiveCell.Top
ActiveSheet.Shapes("I").Top = ActiveCell.Top
ActiveSheet.Shapes("T").Top = ActiveCell.Top
End Sub -
Fferi50
Topikgazda
-
slashing
senior tag
válasz
Dolphine
#23123
üzenetére
Szerk:
Jah érték színről van szó, kicsit figyelmetlen voltam (1-es hehe) akkor ugyan ez csak nem háttérszínt definiál az ember hanem szövegszínt...Nem tudom mit értesz azon hogy "kiválasztani a színt"
itt van két variáció:
itt megadtam egyesével a színeket minden érdemjegyhez..
itt színskálát csináltam... -
Fferi50
Topikgazda
válasz
Dolphine
#23123
üzenetére
Szia!
Szinválasztásra ott a jobb egérgomb, cellaformázás, kitöltés. A három szined gyorsan ott lesz a kiválasztható szinek elején.
Vagyis beírod a jegyet, enter. Utána egérrel visszaállsz a cellára és végigcsinálod a fenti műveletet.De szerintem ennél sokkal jobb lenne, ha a három különböző eredményt 3 külön oszlopba írnád az adott tanulónál. Máris megvan oldva a probléma, még az oszlopot is színezheted, ha akarod.
Üdv.
Új hozzászólás Aktív témák
Hirdetés
Fferi50- Opel topik
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Épített vízhűtés (nem kompakt) topic
- Windows 11
- Google Pixel topik
- Bontsuk ki ezt a 4K-s vadállatot! - ASUS Prime 5070 unboxing
- Revolut
- Spórolós topik
- AMD GPU-k jövője - amit tudni vélünk
- Azonnali informatikai kérdések órája
- További aktív témák...
- Honor X7 128GB, Kártyafüggetlen, 1 Év Garanciával
- Xiaomi Redmi 9T 64GB, Kártyafüggetlen, 1 Év Garanciával
- Csere- Beszámítás! Olcsó Számítógép játékra! I7 4790K / 16GB DDR3 / RX 480 8GB / 128SSD + 2TB HDD
- MÉG ÁRCSÖKKENTÉS Lenovo Thinkcentre E73 asztali gép eladó
- ÚJ- 24" 2K QHD 2560x1440 Dell P2423D dobozos monitor(ok)- Számla, garancia
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest