-
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 Then
Target.Offset(0, 1).Value = Target.Offset(0, 1).Value + 1
End If
If Target.Column = 3 Then
Target.Offset(0, -1).Value = Target.Offset(0, -1).Value - 1
End If
Cancel = True
End 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
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- 2.1-es Bose sztereó hangrendszer a Redmi K90 Pro Maxban
- No Rest for the Wicked
- (nem csak) AMD FX / Ryzen tulajok OFF topikja
- Arc Raiders
- Anime filmek és sorozatok
- VR topik (Oculus Rift, stb.)
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- Mibe tegyem a megtakarításaimat?
- Otthoni hálózat és internet megosztás
- További aktív témák...
- AKCIÓ! Jogtiszta Windows - Office & Vírusirtó licencek- Azonnal - Számlával - Garanciával - Nint.hu
- Árváltozás: Deus Ex Human Revolution Collector's Edition
- Árváltozás + játék DVD: Fallout New Vegas Collector's Edition
- Fallout 3 Collector's Edition (lunchbox)
- Árváltozás+játék DVD: Bioshock Infinite Ultimate Songbird Edition
- RÉSZLETRE , KAMATMENTES , BANKMENTES Panasonic TOUGHBOOK FZ-55 MK3 FZ-55G6601BG Notebook
- Xiaomi Redmi Note 13 Pro+ 512GB, Kártyafüggetlen, 1 Év Garanciával
- BESZÁMÍTÁS! Acer Predator Helios 300 17 FHD notebook - i7 9750H 32GB DDR4 1TB SSD RTX 2060 6GB W11
- BESZÁMÍTÁS! 32GB(4x8GB) G.Skill Trident Z RGB 4000MHz DDR4 memória garanciával hibátlan működéssel
- Gamer PC-Számítógép! Csere-Beszámítás! I5 9400F / RTX 2060 / 16GB DDR4 / 250SSD+500HDD
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: Promenade Publishing House Kft.
Város: Budapest