MS Excel

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?

Zaslat odpověď >

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

elninoslov(17.1.2023 7:41)#054248

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

Téma: Messagebox - nastavení

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje