< návrat zpět

MS Excel

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

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
avatar
Vlož Excelovou přílohu, kdo má čas si to sám vytvářet :-)...
P.citovat
Taras(30.12.2015 16:38)#028906
avatar
Zde je příloha

http://leteckaposta.cz/850428993citovat
icon AL(30.12.2015 16:58)#028908
avatar
...s prázdnym súborom 6citovat
Taras(31.12.2015 10:21)#028921
avatar
Sorry, sem vůl, tady je s makrama: http://leteckaposta.cz/636575951citovat
Taras(2.1.2016 0:16)#028942
avatar
Víte někdo něco? Taky vám to dělá?citovat
icon AL(2.1.2016 13:26)#028946
avatar
áno, tiež, skúšal som to chovanie odstrániť, ale na nič som zatiaľ neprišiel 7citovat
Taras(6.1.2016 21:12)#029062
avatar
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
elninoslov
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: rar29079_disablelistboxselect.rar (12kB, staženo 12x)
citovat
Taras(7.1.2016 16:29)#029095
avatar
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)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje