< 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 Subcitovat
parkovec(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...
citovat
elninoslov(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.
citovat
parkovec(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.
citovat
elninoslov(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.
citovat
parkovec(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