< návrat zpět

MS Excel

Téma: Jak zrušit všechny zaškrtnuté políčka? rss

Zaslal/a Petacchi 7.11.2012 7:26

Ahoj, mám teď v Excelu list s desítkami zaškrkávacích políček. Při práci v dokumentu si zaškrtám políčka a vyjedu výstup.
Napadlo mě, jestli existuje příkaz do VBA, který by všechny zaškrkávací políčka změnil jako nezaškrtnuté (rozuměj prázdné)?
Budu vděčný za radu :) Nejsem žádný expert přes VBA nebo Excel, ale přijde mi, že by takový příkaz mohl existovat (?)

Zaslat odpověď >
icon AL(8.11.2012 5:59)#010244
avatar
Bude trochu záležať na tom, či tie políčka sú v nejakom formulári, alebo priamo na liste. Bolo by asi lepšie, keby si priložil vzor, ona sa určite nejaká dobrá duša, ktorá Ti ten kód napíše, potom nájde :)citovat
icon eLCHa(9.11.2012 6:43)#010267
eLCHa
Mno nejjednodušší trik, který mne napadá, je propojit checkboxy s oblastí (skrytých) buněk a těm pak najednou přiřadit hodnotu NEPRAVDA. Není třeba VBA.

Pokud chcete použít VBA, pak bych všechny checkboxy přejmenoval, aby začínaly stejně (např. _checkboxXXX) pak lze použít shapes

for each o in activesheet.shapes
if left(o.name,9) = "_checkbox" then o.value = false
next ocitovat
Stalker(10.11.2012 20:23)#010281
Stalker
Tak pokud by se jednalo o zaškrtávací políčka z ovládacích prvků ActiveX - checkbox a na listu nejsou použité žádné jiné ovládací prvky, stačilo by toto:
Sub VycistiCheckbox()

Dim chbox As OLEObject
For Each chbox In Worksheets("List1").OLEObjects
chbox.Object.Value = False
Next
End Subcitovat
Fantasyk(10.1.2021 10:16)#049422
Fantasyk
Po mnoha letech...

A když se jedná o UF ? nevíte někdo ?

Díkycitovat
Stalker(10.1.2021 10:49)#049423
Stalker

Fantasyk napsal/a:

Po mnoha letech...

A když se jedná o UF ? nevíte někdo ?

Díky


Stejně jako na listu.

Edit: soubor
Příloha: zip49423_reset-checkbox.zip (17kB, staženo 26x)
citovat
Fantasyk(10.1.2021 15:27)#049424
Fantasyk
Děkuji mnohokrátcitovat

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