• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Pomoc - spolupráce ListBoxu a CheckBoxu

Zaslal/a Taras 30.12.2015 15:34

Dobrý den,
napsal sem kód který má dělat následující:
Máme ListBox obsahující 3 předměty
Máme CheckBox
1.Když se CheckBox zaškrtne, všechny předměty v Listboxu se označí a listbox se zamkne před změnama
2. Když CheckBox odškrtneš Všechny možnosti se odznačí a Listbox se povolí
3. Když se označí všechny předměty v ListBoxu, checkbox se zaškrtne, listbox se blokne aby nic nešlo odznačit do té doby než se zasse odškrtne checkbox
- Zde je chyba

Nevím proč ale po tom co se označí poslední předmět v Listboxu, kód proběhne, a když skončí, listbox.enabled je False, ale přesto v něm jdou možnosti odznačit. Nechápu to, to samé sem zkoušel s .Locked a pořád stejný výsledek.

Private Sub CheckBox1_Change()
With ListBox1
If CheckBox1.Value = True Then
.Selected(0) = True
.Selected(1) = True
.Selected(2) = True
.Enabled = False
Else
.Selected(0) = False
.Selected(1) = False
.Selected(2) = False
.Enabled = True
End If
End With
End Sub
Private Sub ListBox1_Change()
With ListBox1
If .Selected(0) = True And .Selected(1) = True And .Selected(2) = True And CheckBox1.Value = False Then
ListBox1.Enabled = False
CheckBox1.Value = True 'Pokud jsou všechny označený tak Zaškrtnout tlačítko
End If
End With
End Sub

Děkuji za případnou odpověď.

Zaslat odpověď >

---

Pavlus(30.12.2015 15:43)#028899

Vlož Excelovou přílohu, kdo má čas si to sám vytvářet :-)...
P.citovat

Taras(30.12.2015 16:38)#028906

Zde je příloha

http://leteckaposta.cz/850428993citovat

AL(30.12.2015 16:58)#028908

...s prázdnym súborom citovat

Taras(31.12.2015 10:21)#028921

Sorry, sem vůl, tady je s makrama: http://leteckaposta.cz/636575951citovat

Taras(2.1.2016 0:16)#028942

Víte někdo něco? Taky vám to dělá?citovat

AL(2.1.2016 13:26)#028946

áno, tiež, skúšal som to chovanie odstrániť, ale na nič som zatiaľ neprišiel citovat

Taras(6.1.2016 21:12)#029062

Zkoušel sem tam nahrát víc položek a problém se rozšířil že nyní jde odmáčknout i když se to zaškrtne checkboxemcitovat

elninoslov(7.1.2016 10:47)#029079

Zaujímavé, jediné na čo som prišiel, ako to vyriešiť je toto.
Ide vlastne iba o jeden riadok, ktorý naspäť selectne deselectnutú položku v prípade, že je checkbox = true. A pridal som tam ešte jeden príznak, ktorý vyradí zbytočné volania procedúr.

Příloha: 29079_disablelistboxselect.rar (12kB, staženo 12x)

citovat

Taras(7.1.2016 16:29)#029095

Zajímavé řešení které skoro opravuje chybu, nyní je chyba taková že když jsou všechny označený, klikne se na horní možnost, drží se a posune se myší dolů tak se ty dvě horní možnosti odznačí :D zase to dělá jenom když jsou všechny možnosti označený klikáním a ne checkboxem.citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje