-
IT café
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
-
lappy
őstag
válasz hódmaci #45508 üzenetére
Alt + F11-el elő tudod hozni a kódot, dupla klikkel a Bal oldalon kiválasztod a Workbookot (ha esetleg ez magyar nyelvű lenne, akkor a Munkafüzetet), a fönti kis lenyíló ablakokban pedig kiválasztod a Workbook-ot illetve a BeforePrint eseményt.
Végül ennyi lesz maga a kód:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
End SubBámulatos hol tart már a tudomány!
-
Fferi50
őstag
válasz hódmaci #45659 üzenetére
Szia!
Azokat a cellákat, amelyekben nem szeretnéd, hogy módosítás történjen, zárolni lehet.
A cella zárolt - nem zárolt tulajdonságát a jobb egérgomb - cellaformázás - védelem fülön tudod megnézni/módosítani.
Alapból minden cella zárolva van egy új munkalapon, de a zárolás csak akkor lép érvénybe, ha a munkalapon bekapcsolod a lapvédelmet.
Mivel valószínűleg egyszerűbb a zárolt tulajdonság megszüntetése, mivel kevesebb az engedélyezett cella, ezeket kell kijelölnöd és megszüntetni a zárolást.
Utána bekapcsolod a munkalap védelmet. Véleményezés - lapvédelem - A minden felhasználónak engedélyezve listából kiveszed a zárolt cellák kijelölése jelölést.
Ekkor csak a nem zárolt cellák között lehet mozogni.
Üdv. -
Pakliman
tag
válasz hódmaci #45662 üzenetére
Szia!
Munkalaponként:
- kijelölöd az összes figyelendő cellát
- Képletek menü -> Név megadása -> beírsz egy nevet"Összegző" munkalapon a képlet:
=DARAB2(Tartomány1)+DARAB2(Tartomány2)
Ez a tartományban lévő "nem üres(!!)" cellákat szamolja meg.A darabteli függvény jobb lenne (megadhatnád neki, hogy csak az x-eket, vagy csak a 2-t tartalmazó cellákat összesítse), de az sajnos hibára fut, ha a tartomány nem egymás melletti cellákból áll
-
lappy
őstag
-
félisten
válasz hódmaci #47926 üzenetére
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Dim MyDate As String
MyDate = Format(Now, "yyyy.mm.dd - hh:mm:ss")
Sh.Name = MyDate
End Sub[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
válasz hódmaci #47930 üzenetére
Közben javítottam/módosítottam az előző hozzászólásom, mert ha a Date függvénnyel dolgoznánk, akkor az első munkalapot létrehozná a mai dátummal, de még egyet (ugyanazon a napon) már nem, mert 2 egyforma nevű munkalap nem lehet.
"Esetleg megoldható még, hogy az előfej elő-láb mező mindig a lap neve legyen?"
Mármint mindkettő szerepeljen a munkalap nevében?
Megoldható, csak a munkalap neve max. 31 karakter lehet, ha hosszú az előfej és élőláb + még az ilyen hosszú dátum- és időformátum, az úgy már nem minden esetben fog menni...
A dátumidőt még össze lehet "tömöríteni", pl 211202110150 formátumba 2021. 12 .02. - 11:01:50 helyett...[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
válasz hódmaci #47932 üzenetére
Bocs, csak mint a Hungaroringen a boxutcába, úgy jönnek sorba a futárok hozzánk...
Igen, mert hüle voltam, megfeledkeztem róla, hogy bizonyos karaktereket nem lehet munkalap nevében felhasználni... Bocsesz ( csak tényleg ki-be rohangálok egy ideje a futárokhoz)
Mindjárt megírom újra.
Még csak annyit, hogy egy újonnan létrehozott munkalapnak még nincs sem élőfeje, sem élőlába, tehát nincs mit az éppen létrehozás alatt álló munkalap nevébe beilleszteni.
Esetleg úgy értetted, hogy a makró adjon az újonnan létrehozott munkalaphoz élőfejet meg élőlábat? Az alábbi kód ezt teszi.
'Fire/SOUL/CD - 2021
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Dim MyDate As String
Dim MyStr As String
'megadjuk a dátum- és időformátumot
MyDate = Format(Now, "yymmdd_hhmmss")
'beállítjuk az összes élőfej és élőláb szövegét
'természetesen amelyikre nincs szükség,
'azt a sort törölheted vagy kommentezd ki
With Sh
.PageSetup.LeftHeader = "Élőfej BAL"
.PageSetup.CenterHeader = "Élőfej KÖZÉP"
.PageSetup.RightHeader = "Élőfej JOBB"
.PageSetup.LeftFooter = "Élőláb BAL"
.PageSetup.CenterFooter = "Élőláb KÖZÉP"
.PageSetup.RightFooter = "Élőláb JOBB"
End With
'melyik élőfej vagy élőláb szövegét tartalmazza a munkalap neve
'itt a példában a középső élőfejét
MyStr = Sh.PageSetup.CenterHeader
Sh.Name = MyStr & "_" & MyDate
End Sub[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
válasz hódmaci #47935 üzenetére
Ööö, ehhez nem kell makró, mert ez 10 másodperces munka max...
Csinálsz egy munkalapot, aminek pl. Üres jelenléti ív nevet adsz (mert az az üres jelenléti ívet tartalmazza), CTRL nyomvatart, egérrel megfogod a munkalapot és elhúzod (lesz egy másolat, azon duplaklikk és átírod a nevét a megfelelő dátumra és kész...
(vagy az üres munkalapon jobb egér/áthelyezés vagy másolás...)Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
válasz hódmaci #49358 üzenetére
Sima cellaformázásnál a formátummal megegyező módon kell beírni a cellaértéket idő esetén, mert egyébként nem értelmezhető a dolog.
Mindhárom oszlopot formázd óó:pp-re és ennek megfelelően kell bevinni az értéket, azaz 8:00 és 13:00. A két cella értéke meg simán kivonható egymásból és 05:00-t fogsz kapni.
(Ha a megfelelő formátumban írsz be időértéket, akkor az "nem létező" adat esetén is konvertálódik, tehát pl. 1:70 esetén 2:10-re...)Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
válasz hódmaci #49361 üzenetére
Excel-ben a dátum- és időformátumok számmal vannak megadva és ebből a számból számolja vissza és jeleníti meg dátum- és időformátumban. Pl. ha időre formázol egy cellát és beírsz egy 1-est, akkor a szerkesztőlécen a 1900.01.01 0:00:00 fog látszódni, ha 2-est, akkor meg 1900.01.02 0:00:00, ha 1,1-t akkor meg 1900.01.01 2:24:00 és így tovább, tehát csak így simán egy számot beírva nem fogja óó:pp formátumra tudni átalakítani, ezért kell így bevinni.
Makróval kivitelezhető a dolog, ami figyeli -példádban- az A és B oszlopokban bekövetkezett változást (amikor valamit beírsz) és átalakítja megfelelő formátumra (pl: 8 beírásakor 08:00-ra, esetleg segédoszloppal, de ennyit nem biztos, hogy ér a dolog...)[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
Új hozzászólás Aktív témák
- Apple Watch
- AMD CPU-k jövője - amit tudni vélünk
- Milyen hagyományos (nem okos-) telefont vegyek?
- World of Tanks - MMO
- Elkészült Oroszország első litográfiai berendezése
- BestBuy ruhás topik
- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- DIGI kábel TV
- További aktív témák...
Állásajánlatok
Cég: Alpha Laptopszerviz Kft.
Város: Pécs
Cég: Ozeki Kft.
Város: Debrecen