< návrat zpět
MS Excel
Téma: Messagebox - nastavení 
Zaslal/a parkovec 15.1.2023 23:19
Dobrý večer,
prosím o radu.
Na zaškrtávací políčko mám nastavený messagebox:
Private Sub CheckBox1_Click()
If MsgBox("Při zapnutí dojde k vynulování všech uložených hodnot. Pokračovat?", vbYesNo + vbExclamation, "Varování!") = vbNo Then Exit Sub
Call Reset
End Sub
1. Potřeboval bych, aby po zvolení "Ne" nedošlo k zaškrtnutí políčka.
2. Lze to nastavit tak, aby pak při deaktivaci políčka byla v messageboxu jiná zpráva?
Lugr(16.1.2023 9:36)#054226 
nevím jestli jsem to pochopil.
Private Sub CheckBox1_change()
If CheckBox1.Value = True Then
i = MsgBox("Při zapnutí dojde k vynulování všech uložených hodnot. Pokračovat?", vbYesNo + vbExclamation, "Varování!")
Select Case i
Case vbYes
Call Reset
Case vbNo
CheckBox1.Value = False
MsgBox "Bla bla", vbCritical
End Select
ElseIf CheckBox1.Value = False Then
Exit Sub
End If
End Subcitovatparkovec(17.1.2023 0:07)#054246 
To je skoro ono, jen jsem tou deaktivací myslel odznačení políčka.
Takže by to mělo fungovat takto:
při zaškrtnutí
- messagebox :
ano - zaškrtne se
ne - zůstane nezaškrtnuté
při odznačení
- messagebox :
ano - odznačí se
ne - zůstane zaškrtnuté
citovat
Dim bDISABLE_CLICK As Boolean
Private Sub CheckBox1_Click()
If bDISABLE_CLICK Then Exit Sub
bDISABLE_CLICK = True
If Not CheckBox1.Value Then
If MsgBox("Při vypnutí budou zůstávat všechny hodnoty stále vyplněny. Pokračovat?", vbYesNo + vbExclamation, "Varování!") = vbNo Then CheckBox1.Value = True: GoTo KONEC_CLICK
Else
If MsgBox("Při zapnutí dojde k vynulování všech uložených hodnot. Pokračovat?", vbYesNo + vbExclamation, "Varování!") = vbNo Then CheckBox1.Value = False: GoTo KONEC_CLICK
Reset
End If
KONEC_CLICK:
bDISABLE_CLICK = False
End Subcitovat parkovec(17.1.2023 20:13)#054252 Tak teď to dělá přesně co jsem si představoval
Jen prosím ještě poradit - v některých případech budu potřebovat přidat do kódu, aby se při zaškrtnutí změnila hodnota v určité buňce a při odznačení se zase změnila v jiné buňce. Bohužel nevím kam to přidat...
citovatelninoslov(17.1.2023 20:25)#054253 Myslíte inkrementáciu hodnoty v bunke? Samostatne pre zaškrtnutie aj pre odškrtnutie (nejaký counter)? Pretože v ostatnom prípade musíte vždy meniť obe, veď sú predsa závislé na rovnakom checkboxe.
citovatparkovec(17.1.2023 20:44)#054254 Ano, to myslím. Špatně jsem se vyjádřil.
Když to ve vlastnostech propojím s nějakou buňkou, nefunguje to jak má.
Takže bych to potřeboval nějak přidat do kódu, abych pak tu hodnotu mohl dál využívat.
citovatelninoslov(17.1.2023 21:25)#054255 
Poznám 2 pani, podľa ktorým mien som kedysi vymyslel termín "Ha-Ha odpoveď" (obe začínajú na "Ha..."). Viete čo termínom označujem? Ak sa opýtam "To auto je zelené alebo modré?" dostanem odpoveď "Áno".
Priložte nejakú prílohu, kde to bude jasnejšie.
citovatparkovec(17.1.2023 22:03)#054256 Rozumím, je to problém mého popisu
Nicméně já již metodou pokusu a omylu řešení zjistil. Když to propojení dám za "reset", funguje to. Takže tímto je to funkční přesně podle mých představ.
Oběma vám tedy velice děkuji za pomoc.
citovat
RSS nejnovější články