Hogyan lehet Excelben funkció nélküli gombot létrehozni?
Nekem egy olyan gomb kellene ami semmi mást nem csinál, mint kattintásra "benyomódik" és úgy is marad.
Igazából 3 gomb lenne egymás mellett, piros, narancssárga és zöld. Azt kellene megoldani, hogy ha az egyikre rányomunk az "benyomódjon" és úgy is maradjon.
Szúrj be három gombot:
Fejlesztőeszközök > Beszúrás > ActiveX parancsgomb
Aztán jelöld ki a gombot aminek a kattintását szeretnéd beállítani, majd:
Fejlesztőeszközök > Kód megjelenítése
A megjelenő ablakba ehhez hasonlóan írd be a parancsot:
Private Sub CommandButton1_Click()
CommandButton1.Enabled = False
End Sub
Ha azt szeretnéd, hogy az egyik gomb inaktiválja a többit, akkor pl.:
(a számokat figyeld)
Private Sub CommandButton1_Click()
CommandButton2.Enabled = False
CommandButton3.Enabled = False
End Sub
Köszi a választ de sajnos nem működik.
Minden esetben csak annyit érek el, hogy az egyes gomb kattintható a többi alapból inaktív (még kattintás előtt)
Melyik Office verziót használod?
(Microsoft Office 2003-2007-2010-2013-2016, esetleg LibreOffice/OpenOffice?)
2007-es és 2016-os verzióval is próbáltam - működik.
Kimaradt egy kis útmutató:
2007-es Office van a gépemen. Nekem olyan gombok kellenének amelyek "kiváltják" egymást. Tehát van a 3 gomb. Ha az egyesre rákkantintok akkor a másik kettő kattinthatatlan legyen / szürküljön ki.
De ha a 2-es gombra kattintok akkor az 1-es és a 3-as legyen inaktív.
Ha a 3-asra akkor az 1-es és a 2-es.
Ha a kódot továbbírom a többi gombnak megfelelő számozással, akkor alapból mind a három gomb szürke, tehát inaktív + ha csak az 1-es gombhoz írom a kódot, akkor ha rámegyek az 1-esre tényleg működik és a többi kiszürkül, de ez csak egyszer történik meg. Tehát hogyan lehet visszaállítani az alap állapotra?
Nekem valami olyasmi kellene, hogy ez a rendszer "dinamikusan" működjön.
Egy ki-bekapcsolós változat:
Private Sub CommandButton1_Click()
If CommandButton2.Enabled Then
CommandButton2.Enabled = False
CommandButton3.Enabled = False
Else
CommandButton2.Enabled = True
CommandButton3.Enabled = True
End If
End Sub
Kapcsolódó kérdések:
Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!