- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- sziku69: Szólánc.
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- GoodSpeed: Keychron B6 Pro billentyűzet az iPad mellé
- sellerbuyer: Milyen laptopot vegyek? Segítek: semmilyet!
- sellerbuyer: Te tudod, mi mennyit fogyaszt az otthonodban?
- Brogyi: CTEK akkumulátor töltő és másolatai
- eBay-es kütyük kis pénzért
- Doky586: Adattár lemez előkészítése távlati Windows telepítéshez
-
LOGOUT
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
-
-
-
Delila_1
veterán
válasz
MCMLXXXII
#48956
üzenetére
Egyszerű válasz: nem.
Egy makrós megoldás lehet a célkereszt .
Még egyszerűbb, de szintén makrós megoldás: a laphoz rendelt makró
Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Application.CutCopyMode = False Then Application.CalculateEnd Sub
A feltételes formázás képlete pedig=VAGY(CELLA("sor")=SOR();CELLA("Oszlop")=OSZLOP()) -
temporello
tag
válasz
MCMLXXXII
#41014
üzenetére
A másik munkalapon létrehozod az összesíteni kívánt hónapok oszlopát (2019.02 2019.03 stb),e mellé meg:
=Szumhatöbb(Munka1!$E$4:$XFD$4;Munka1!$E$5:$XFD$5;">=" & KALK.DÁTUM(összesíteni kívánt hónap cellája;0);Munka1!$E$5:$XFD$5;"<" & KALK.DÁTUM(összesíteni kívánt hónap cellája;1)).
Az XFD a létező legnagyobb oszlop azonosító,ez garantálja,hogy az összes oszlopot vizsgálja.
(Megjegyzem,talán érdemes lenne az egész táblázatot átalakítani,hogy a dátumok legyenek az első oszlopban.)
-
Pakliman
tag
válasz
MCMLXXXII
#41014
üzenetére
Pl: így nyerem ki =szum(munka1!E4
4) az adott hónapot
Akkor most nem igazán értem, hogy mi is lenne a feladat
Nem az adott havi összes érdekel? Mert én ebből is úgy értem: =szum(munka1 dátum 1 től 30 v 31. ÉigHa mégis a havi kell, akkor átalakítva csak a piros sorokat figyelembe véve:
=SZUMHATÖBB(INDIREKT("Munka1!" & HOL.VAN($A2;Munka1!$A:$A;0)+2 & ":" & HOL.VAN($A2;Munka1!$A:$A;0)+2);INDIREKT("Munka1!" & HOL.VAN($A2;Munka1!$A:$A;0)+3 & ":" & HOL.VAN($A2;Munka1!$A:$A;0)+3);">=" & DÁTUM(BAL(B$1;4);KÖZÉP(B$1;5;2);1);INDIREKT("Munka1!" & HOL.VAN($A2;Munka1!$A:$A;0)+3 & ":" & HOL.VAN($A2;Munka1!$A:$A;0)+3);"<=" & DÁTUM(BAL(B$1;4);KÖZÉP(B$1;5;2)+1;0))
"Kínai"-magyar szótár :DD :
HOL.VAN($A2;Munka1!$A:$A;0) megkeresi az "Áru 1" szöveget a Munka1 lapon => 2.sor
DÁTUM(BAL(B$1;4);KÖZÉP(B$1;5;2);1) a 201902-t átalakítja 2019.02.01 dátummá
DÁTUM(BAL(B$1;4);KÖZÉP(B$1;5;2)+1;0) a 201902-t átalakítja 2019.02.30 dátummá (2019.03.01 - 1 nap)
INDIREKT("Munka1!" & ... létrehozza a a másik munkalapra való hivatkozásokat pl.:
INDIREKT("Munka1!" & HOL.VAN($A2;Munka1!$A:$A;0)+2 & ":" & HOL.VAN($A2;Munka1!$A:$A;0)+2) => Munka1!4:4 -
Pakliman
tag
válasz
MCMLXXXII
#41011
üzenetére
Szia!
Egy lehetséges megoldás (ha jól értettem a feladatot):
A képletek (a Munka2 lapon!):
a zöld cellákban:
=SZUMHATÖBB(INDIREKT("Munka1!" & HOL.VAN($A2;Munka1!$A:$A;0) & ":" & HOL.VAN($A2;Munka1!$A:$A;0));INDIREKT("Munka1!" & HOL.VAN($A2;Munka1!$A:$A;0)+1 & ":" & HOL.VAN($A2;Munka1!$A:$A;0)+1);">=" & DÁTUM(BAL(B$1;4);KÖZÉP(B$1;5;2);1);INDIREKT("Munka1!" & HOL.VAN($A2;Munka1!$A:$A;0)+1 & ":" & HOL.VAN($A2;Munka1!$A:$A;0)+1);"<=" & DÁTUM(BAL(B$1;4);KÖZÉP(B$1;5;2)+1;0))a narancs cellákban:
=SZUMHATÖBB(INDIREKT("Munka1!" & HOL.VAN($A2;Munka1!$A:$A;0)+2 & ":" & HOL.VAN($A2;Munka1!$A:$A;0)+2);INDIREKT("Munka1!" & HOL.VAN($A2;Munka1!$A:$A;0)+3 & ":" & HOL.VAN($A2;Munka1!$A:$A;0)+3);">=" & DÁTUM(BAL(B$1;4);KÖZÉP(B$1;5;2);1);INDIREKT("Munka1!" & HOL.VAN($A2;Munka1!$A:$A;0)+3 & ":" & HOL.VAN($A2;Munka1!$A:$A;0)+3);"<=" & DÁTUM(BAL(B$1;4);KÖZÉP(B$1;5;2)+1;0))
A keresendő hónap az első sorban van sima számként pl.: 201904 -
Fferi50
Topikgazda
válasz
MCMLXXXII
#38680
üzenetére
Szia!
Úgy van, ahogyan gondoltam. Ha több cellát jelölsz ki egyszerre, akkor az egy cellára megírt feltételeket nem tudja értelmezni, ezért van a hiba. A Target helyett be kell vezetni egy változót és ciklusban kell végigmenni a tartományon:
Dim cl As Range
Application.EnableEvents = False
For Each cl in Target.Cells
If cl.Column > 4 And cl.Row Mod 2 = 0 Then
If cl = "" Then
cl.Offset(1) = ""
Else
If IsNumeric(cl) 'And Target.Count = 1 Then
cl.Offset(1) = Format(Now, "yyyy.mm.dd h:m")
cl.Offset(1).Locked = True
Columns(cl.Column).EntireColumn.AutoFit
End If
End If
End If
Next
Application.EnableEvents = TrueTalán így már nem lesz hiba.
Üdv.
-
Fferi50
Topikgazda
válasz
MCMLXXXII
#38677
üzenetére
Szia!
Mit jelent konkrétan, hogy összeomlik a VBA? Milyen hibaüzenettel áll meg? Lefagy az Excel? Kicsit részletesebben írd le a jelenséget.
Egyébként valószínűleg a több cellás kijelölés nincs rendben az eseménykezelőben, úgyhogy légy szíves másold be Worksheet_Change (esetleg a Worksheet_SelectionChange ha van) eljárásokat.Üdv.
-
Delila_1
veterán
válasz
MCMLXXXII
#38557
üzenetére
Ha az előző makró nem működött mobilon, ez sem fog.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 4 And Target.Row Mod 2 = 0 Then
ActiveSheet.Protect UserInterfaceOnly:=True
Application.EnableEvents = False
If IsNumeric(Target) And Target.Count = 1 Then
Target.Offset(1) = Format(Now, "yyyy.mm.dd h:m")
Range(Target.Address).Locked = True
Range(Target.Address).Offset(1).Locked = True
End If
Application.EnableEvents = True
End If
End SubA makró figyeli, hogy a páros sorokban az E oszloptól kezdődően szám legyen, ekkor az alatta lévő sorba beírja az aktuális dátumot és időt, majd zárolja a beírt szám és idő celláját.
-
-
), akkor rájössz, hogy nem számít, hogy hány oszlopból áll a táblázat 
4) az adott hónapot
Új hozzászólás Aktív témák
Hirdetés
- Abarth, Alfa Romeo, Fiat, Lancia topik
- Építő/felújító topik
- iPhone topik
- One mobilszolgáltatások
- Ovális kamera és Exynos az S26 Ultra pletykakosarában
- AMD Ryzen 9 / 7 / 5 / 3 5***(X) "Zen 3" (AM4)
- EA Sports WRC '23
- Huawei Mate 10 Pro - mestersége az intelligencia
- Az Apple bemutatta az iPhone 17-et
- Kerékpárosok, bringások ide!
- További aktív témák...
- LG 27UN880-B - 27" IPS ERGO - 3840x2160 4K - 60Hz - DisplayHDR 400 - USB Type-C - AMD FreeSync - Mac
- Bomba ár! Dell Latitude 5590 - i7-8GEN I 16GB I 256SSD I 15,6" FHD I HDMI I CAM I W11 I Gari
- iPhone 13 mini 256GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS3404
- Bomba Ár! HP ProBook 650 G1 - i5-4GEN I 8GB I 500GB I 15,6" HD I Cam I W10 I Garancia!
- HP EliteBook 830 G7 i5-10210U 16GB 256GB 1 év garancia
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest