Word
Excel
PowerPoint
Access
Outlook
ECDL
Poradna - ActiveX CheckBox
Vložení příspěvkuhlavní kategorie | zpět | + odpovědět na toto téma
| ActiveX CheckBox - diskuze na toto téma |
|
Dobrý den,
již dva dny hledám odpověď na můj problém. Mám na listu cca 300 checkboxů a pomocí makra níže je nastavuji na výchozí hodnotu.
Vše funguje bez problémů, ale potřeboval jsem přidat nějaké řádky - Ty jsem doplnil checkboxy a na ně toto makro nefunguje. Veškeré funkce jsou stejné jako u ostatních. Jen jsou na dodatečně přidaných řádcích ....
Nevíte někdo co s tím? Excel 2016.
Moc děkuji za radu.
Pavel
Dim rn As Object
For Each rn In ActiveSheet.OLEObjects
If InStr(1, rn.Name, "Checkbox") > 0 Then
rn.Object.Value = False
End If
Next
Tak za 1. Cyklus správne necyklíme s "Next" ale s "Next niečo", teda vo Vašom prípade "Next rn". Za 2., a to je Váš problém, ak chcete aby "Checkbox" bolo v InStr rovnocenné s "CheckBox", musíte použiť aj posledný parameter funkcie, a to konkrétne vbTextCompare, aby to nebolo CaseSensitive. Alebo proste použite "CheckBox". No a za 3., každá verzia a jazyková mutácia Excelu nemusí dávať prvkom rovnaké mená, preto odporúčam si ich radšej premenovať. Active-X prvky si premenujte aj v Domov - Nájsť a vybrať - Tabla výberu, ale aj v Editore VBA v okne Properties - Položka Name (pri zapnutom Vývojár - Režim návrhu. Odpověď Moc děkuji za pomoc. Opraveno dle textu, ale nefunguje to. Mám v listu cca 300 CheckBoxů, ty byly vloženy pomocí kódu. Název CheckBox1...300 - přes ně vybírám závady do revizních zpráv - pomocí filtru. Jak jsem psal, vše funguje, pouze pokud chci nastavit výchozí honotu na neoznačeno - nová revize - funguje to pouze na nepřidaných řádcích. Pokud doplním CheckBox na konec listu, normálně to běhá jak má. Pokud ještě poradíte budu rád.
Díky moc Odpověď Vymažte odtiaľ citlivé dáta, pošlite mi na mail elninoslov zavináč gmail.com súbor, v ktorom to nejde nastaviť. Pozriem na to. Odpověď |
