-
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
-
-
-
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
- Formula-1
- iPhone topik
- Folyószámla, bankszámla, bankváltás, külföldi kártyahasználat
- droidic: Windows 11 önállóság nélküli világ: a kontroll új korszaka
- EAFC 26
- Platina minősítésű Toughpower tápokkal bővült a Thermaltake portfóliója
- sziku69: Fűzzük össze a szavakat :)
- AliExpress tapasztalatok
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- sziku69: Szólánc.
- További aktív témák...
- Jo Nesbo: LEOPÁRD (nem olvasott)
- Keresek Xbox Series S / Series X / Playstation 5 konzolokat
- BESZÁMÍTÁS! ASROCK B650M R5 7600X 32GB DDR5 1TB SSD RX 6900XT 16GB ZALMAN Z1 Plus EVGA 750W
- Apple iPhone 13 128GB, Kártyafüggetlen, 1 Év Garanciával
- Apple iPhone 16 Pro Max Natural Titanium Titán dizájn, Pro kamera 5 zoommal,120 Hz ProMotion,100%
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: Promenade Publishing House Kft.
Város: Budapest