-
Fototrend
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
-
Fferi50
Topikgazda
válasz
hódmaci
#52818
üzenetére
Szia!
Próbáld ki lsz. ezt a képletet:=INDEX(C1:C20;NAGY((C1:C20<>"")*SOR(C1:C20);2);1)
A C20 helyett az általad használt utolsó cellát írd be, megfelelő ráhagyás mellett. Nem javaslom a teljes oszlop beírását a képletbe, mert az nagyon meglassítja a számolást.
Ez egy tömbképlet, ezért korábbi Excelekben Shift+Ctrl + Enter kombóval kell lezárni. Az újabb Excelek már maguktól tudják ezt.
A NAGY függvény 2. paraméterével nemcsak az utolsó előttit, hanem bármelyiket megkaphatod.
Üdv. -
#49365
Fire/SOUL/CD
félisten
hódmaci
#49363
-
#49362
Fire/SOUL/CD
félisten
hódmaci
#49361
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...) -
#49359
Fire/SOUL/CD
félisten
hódmaci
#49358
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...) -
#47938
Fire/SOUL/CD
félisten
hódmaci
#47935
válasz
hódmaci
#47935
üzenetére
Ööö, ehhez nem kell makró, mert ez 10 másodperces munka max...
![;]](//cdn.rios.hu/dl/s/v1.gif)
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...) -
#47934
Fire/SOUL/CD
félisten
hódmaci
#47932
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 -
#47931
Fire/SOUL/CD
félisten
hódmaci
#47930
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... -
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
-
Fferi50
Topikgazda
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. -
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 Sub
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Az alábbi kód ezt teszi.
Új hozzászólás Aktív témák
Fferi50- Hobby rádiós topik
- Az olcsó Macbook sokkolja a PC-ipart az ASUS társvezetője szerint
- Hobby elektronika
- Itt a Galaxy S26 széria: az Ultra fejlődött, a másik kettő alig
- PlayStation 5
- Garancia kérdés, fogyasztóvédelem
- Fejhallgatós találkozó
- Samsung Galaxy Watch7 - kötelező kör
- Forza sorozat (Horizon/Motorsport)
- Befutott a régóta várt, sok P-maggal kitömött, LGA1700-as Core sorozat
- További aktív témák...
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Játékkulcsok ! : PC Steam, EA App, Ubisoft, Windows és egyéb játékok
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem.
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Dell Latitude 7420 Core i7-1185 G7, 16GB RAM, SSD, jó akku, számla, 6 hó gar, szép állapot
- Samsung Galaxy A23 5G 128GB, Kártyafüggetlen, 1 Év Garanciával
- ÁRGARANCIA!Épített KomPhone Ryzen 7 7700X 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- HIBÁTLAN iPhone 14 Pro Max 256GB Space Black -1 ÉV GARANCIA - Kártyafüggetlen, MS4513
- Windows 10 / 11 Pro Retail aktiváló kulcs Azonnal szállítással, számlával, garanciával!
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest