-
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
Silious
#54580
üzenetére
Szia!
Csak makróval lehet megoldani, mert egy cella nem tartalmazhat képletet és számot is.
Én azt javaslom, hogy ne gombot tegyél a cellába, hanem csak egy plusz ill. mínusz jelet. A cellát akár színezheted is.
A cellára dupla kattintással kiváltod a növelést ill. csökkentést. Ehhez az alábbi makrót kell a munkalap kódlapjára bemásolnod:Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)If Target.Column = 1 ThenTarget.Offset(0, 1).Value = Target.Offset(0, 1).Value + 1End IfIf Target.Column = 3 ThenTarget.Offset(0, -1).Value = Target.Offset(0, -1).Value - 1End IfCancel = TrueEnd Sub
Az első oszlop bármelyik cellájába írhatod a + jelet ill. a harmadik oszlopba a - jelet. Mindegyikre működik a makró.
Figyelj rá, hogy hibakezelés és védelem nincs a makróban, tehát megváltoztathatók az értékek (a + és - jel is)!
Nálam így néz ki (az első sorba tettem, de bármelyik sorba teheted, a lényeg az A és C oszlop):
Üdv.
Új hozzászólás Aktív témák
- Kertészet, mezőgazdaság topik
- Asztrofotózás
- Arena Breakout: Infinite
- Pura color: színkavalkádba bújt a Huawei legjobb kameratelefonja
- Formula-1
- Épített vízhűtés (nem kompakt) topic
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- Milyen egeret válasszak?
- Kamionok, fuvarozás, logisztika topik
- Peugeot, Citroën topik
- További aktív témák...
- Játékkulcsok ! : PC Steam, EA App, Ubisoft, Windows és egyéb játékok
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- The Elder Scrolls Online Imperial Collector s Edition
- Microsoft Office 2024 Home Business dobozos
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Keresünk iPhone 15/15 Plus/15 Pro/15 Pro Max
- Apple iPhone 16 Pro Max Desert Titanium 256GB használt karcmentes 89% akku (405 ciklus) 6 hónap
- Lenovo Yoga PRO 9 Ultra 9 285H 32GB RAM 2TB SSD RTX 5060 8GB 16" QHD+ OLED 3év Prémium GAR
- 15,6" Dell Latitude laptopok: E5550, E5570, 5590, 5500, 5501, 5510, 5520 / SZÁMLA + GARANCIA
- Eladó/BONTATLAN Lenovo LOQ i7-13650HX 16GB 512GB RTX 4060 8GB
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Fferi50