< návrat zpět

MS Excel

Téma: skrýt tlačítko rss

Zaslal/a pospicek1983 11.11.2015 15:18

Dobrý den. Měl bych prosbu jestli by mi někdo poradil jak udělat skrytí tlačítka pomocí checkboxu. Příklad mám ovladací prvek formulaře checkbox a když by byl zaškrtly tak by se mi objevilo tlačítko na spuštění makra. když by nebyl zaškrtly tak by se schovalo to tlačítko. Ten checkbox mám propojený s bu%nkou. Děkuji za pomoc.

Zaslat odpověď >
icon AL(12.11.2015 0:28)#027993
avatar
Príloha je tajná, že? Takže moja bude tajná tiež. Kód:Sub CheckBox1_Click()
With ActiveSheet
If .CheckBoxes(1).Value = 1 Then
.Buttons(1).Visible = True
Else: .Buttons(1).Visible = False
End If
End With
End Subcitovat
pospicek1983(12.11.2015 8:39)#027997
avatar
Omlouvám se zde zasílám přílohu
Příloha: rar27997_27926_test.rar (25kB, staženo 29x)
citovat
icon AL(12.11.2015 9:50)#028003
avatar
Pri troche snahy by si si mal byť schopný kód do svojho sheetu zakomponovať, alebo?citovat
marjankaj(12.11.2015 9:56)#028005
avatar
@AL
3 10citovat
pospicek1983(12.11.2015 11:30)#028009
avatar
což o to vše mi funguje tento kod se mi tam podařilo zakomponovat ale funguje mi to jenom pro checkbox jako active prvek ale nejde mi to nastavit pro zaškrtávací políčko ovladací prvek formulařecitovat
elninoslov(12.11.2015 11:34)#028010
elninoslov
A o ktoré zaškrtávacie políčko sa má jednať ? Sú tam 2. Alebo ich tam bude 6, čiže na každom riadku jedno, a aktivácia tlačítka prebehne ak je hociktoré z nich zaškrtnuté, a opačne deaktivácia prebehne ak sú všetky nezaškrtnuté ?

Alebo, a to skôr, to bude tak, že tlačítko sa aktivuje pri ktoromkoľvek zaškrtnutí, ale s tým, že tlačítko vykoná zápis iba zaškrtnutých riadkov, tie potom zmaže, a nezaškrtnuté riadky nechá a poposúva ich (ak medzi nimi ostala medzera). Že to bude takto ?

Na to si ale budem musieť nájsť viac času. Možno večer...

EDIT: A hodnota CheckBoxu sa zisťuje z prepojenej bunky, a taká nieje tak napr. takto:
Abs(Worksheets(1).Shapes("Check Box 1").OLEFormat.Object.Value > 0)
Ale je nanajvýš vhodné si premenovať CheckBoxy na vlastné názvy, nenastane kolabs pri prenose na inojazyčný Excel.
Nájsť a vybrať - Tabla výberu - dvojitý klik (nie dvojklik)citovat
pospicek1983(12.11.2015 11:40)#028011
avatar
tech zaškrtávacích políček bude celkem 12 a spouštěcích tlačítek bude taky 12 každy zaškrtávací políčko bude mít svoje tlačítkocitovat
pospicek1983(12.11.2015 11:44)#028012
avatar
elninoslov přesně jste to trefil když bude zaškrtly tak se mu objevý daný tlačítko a na základě zaškrtlych políček se zapíšou jenom ty řádkycitovat
elninoslov(13.11.2015 10:09)#028022
elninoslov
Vyskúšajte túto verziu. To je verzia kde sa objaví pri každom zatržítku tlačítko, ktoré zapíše len tej jeden riadok na ktorom je. Ostatné riadky, aj keď majú svoje zatržítko zaškrtnuté, tak sa nezapíšu stlačením tlačítka na inom riadku. Takto ste to myslel ?
Ak nie tak naozaj nerozumiem, prečo musí mať každý riadok vlastné tlačítko. Ak chcete zapisovať naraz všetky zaškrtnuté riadky, tak potom treba použiť iba jedno jediné tlačítko pre všetky riadky.
Inak musí tam byť skrytý stĺpec T, pretože inak nezískate klik na klasický CheckBox, a ten klik potrebujete zachytiť na určenie viditeľnosti tlačítka.

Ak to chcete inak, ako som opäť z kryštálovej gule vyčítal, tak to prosím popíšte inak, lebo napr. Vaša posledná veta je sama sebe podľa mňa v rozpore (jedno vs všetky).

A ešte napíšte aj to, či chcete po zápise poposúvať nezapisované (teda nezaškrtnuté) a/alebo zaškrtnuté ale nezapisované, na miesto nad nimi, ktoré sa uvoľnili. Tu si ale treba uvedomiť to, že čísla tlačítok sa meniť pri posúvaní nebudú, takže ak sú to nejaké výrobné linky, stoly, boxy, koše, police, tak to nieje vhodné.
Příloha: rar28022_test3.rar (34kB, staženo 43x)
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