-
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
tgumis
#39238
üzenetére
Az eredeti kérdésed úgy szólt, hogy "ha a K1 cellába beírom". Ehhez írtam az eseményvezérelt makrót.
A laphoz rendelt makrót nem töröltem, csak kommentbe tettem. Itt az átírt fájl.
-
Fferi50
Topikgazda
válasz
tgumis
#39238
üzenetére
Szia!
Ez a makró egy eseményhez kapcsolódik, ami egy adott helyzetben fut le. Ezért van munkalaphoz kötve.
Semmi nem tiltja azonban, hogy egy parancsgomb megnyomása esetén ezt az eseményt hívja meg a makró, de akkor át kell adja a target paraméter értékét:Sub makro1
Worksheet_Change Range("A1") vagy Range("A1") helyett Selection
End Sub
A gombhoz a makro1-et kell rendelni.
Ez az eseménykezelő Private, azaz csak azon a munkalapról lehet meghívni, amelyikhez rendelted. Általános kódlapra nem teheted, de amit csinál (ami Sub - End Sub között van) lehet modulba tenni, természetesen megfelelő körültekintéssel.
Az eseménykezelést lehet a Thisworkbook kódlapjára is tenni, ott aPrivate Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'műveletek
End Sub
tartalmazhatja a feladatokat. Itt látod két paraméter van, az Sh az a munkalap, amelyen az esemény történt, a Target pedig az a tartomány ahol történt. Ebben az esetben elég ide betenni a műveleteket, természetesen figyelve arra, ha egyik munkalapon más műveletet szeretnénk, mint a másikon. Ezt az Sh paraméter alapján dönthetjük el.
Remélem jól értettem a kérdésed, mert számomra nem volt eléggé világos.Üdv.
Új hozzászólás Aktív témák
- Amlogic S905, S912 processzoros készülékek
- Milyen belső merevlemezt vegyek?
- Milyen széket vegyek?
- Arc Raiders
- Path of Exile (ARPG)
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- Autós kamerák
- Jövedelem
- Itt a Galaxy S26 széria: az Ultra fejlődött, a másik kettő alig
- Klaus Duran: RCS
- További aktív témák...
- The Elder Scrolls Online Imperial Collector s Edition
- PC Game Pass előfizetés
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- Vállalom Xianomi Okos kamerák, szoftveres javíttását
- ÁRGARANCIA!Épített KomPhone Ryzen 7 7700X 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- HIBÁTLAN iPhone 11 64GB Red -1 ÉV GARANCIA - Kártyafüggetlen, MS4388
- Bomba ár! Dell Latitude 5495 - Ryzen 5 I 8-16GB I 256SSD I 14" FHD I HDMI I Radeon I Cam I W11 I Gar
- AKCIÓ! Sony Playstation 5 PRO 2TB Digital játékkonzol garanciával extrákkal hibátlan működéssel
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Fferi50