< návrat zpět

MS Excel


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

Zaslal/a 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 #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 Sub
citovat
#027997
avatar
Omlouvám se zde zasílám přílohu
Příloha: rar27997_27926_test.rar (25kB, staženo 29x)
citovat
icon #028003
avatar
Pri troche snahy by si si mal byť schopný kód do svojho sheetu zakomponovať, alebo?citovat
#028005
avatar
@AL
3 10citovat
#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
#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
#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
#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
#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

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

Vynásobit hodnoty kurzem - Power Query

Alfan • 26.4. 7:56

Relativní cesta - zdroje Power Query

Alfan • 26.4. 7:54

Vynásobit hodnoty kurzem - Power Query

elninoslov • 26.4. 7:54

Vynásobit hodnoty kurzem - Power Query

lubo • 25.4. 19:18

Relativní cesta - zdroje Power Query

elninoslov • 25.4. 15:12

Relativní cesta - zdroje Power Query

Alfan • 25.4. 15:08

Relativní cesta - zdroje Power Query

elninoslov • 25.4. 14:21