• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: zaškrtávací políčko

Zaslal/a mikkinachtik 10.4.2014 13:38

Ahoj, mohl by mi někdo poradit jak napsat makro na:
buňku A1 a v ní je napsané ANO NE, potom mám dvě zaškrtávací políčka a když zaškrtnu první tak se ANO přeškrtne a NE zůstane normálně napsané. Když zaškrtnu drruhé tak ANO je nromálně a NE se přeškrtne. a když zaškrtnu obě tak ANO i NE se přeškrnou.
Vím jak to udělat když by bylo Ano a NE v každé jiné buňce, ale potřeboval bych poradit, když ANO i NE jsou v jedné buňce. Díky za nápady.

Zaslat odpověď >

---

Strana:  1 2   další »

lubo(11.4.2014 8:28)#018802

Pokud jde o tip, tak lze přes buňku namalovat průhledné objekty s potřebnýma škrtama a ty makrem zviditelňovat nebo skrývat. (stačí dva)citovat

AL(11.4.2014 8:36)#018803

vtip asi nie, skôr tipujem na nudu a nedostatok iných podnetov k aktivite
dá sa makrom, v ktorom treba zakomponovať formátovanie príslušnej časti textu na preškrtnutý, ale dopredu upozorňujem, že to makro písať nebudemcitovat

eLCHa(11.4.2014 8:48)#018804

@lubo
ale fuj - zviditelňovat objekty? ;)))

psáno z brucha (ten termín se mi fakt líbí, palooo by si ho měl registrovat ;) ) - přesněji otestováno, ale checkboxy se mi vytvářet nechtěly ;)

Sub Test()
'ActiveCell.Value = "ano ne"
ActiveCell.Characters(Start:=1, Length:=3).Font.Strikethrough = chbYes.Value
ActiveCell.Characters(Start:=4, Length:=2).Font.Strikethrough = chbNo.Value
End Subcitovat

Dingo(11.4.2014 9:04)#018806

Zase byl někdo rychlejší, ale chtěl jsem si to zkusit, jestli to dokážu, nakonec je to celkem jednoduché.

Příloha: 18806_ano_ne.zip (21kB, staženo 35x)

citovat

eLCHa(11.4.2014 9:19)#018807

@Dingo
;))

dovolím si toho využít (že se vám chtělo ty boxy vytvářet) a navrhnout vám malé zpřehlednění kódu ;)

Private Sub CheckBox1_Click()
Call subChange
End Sub

Private Sub CheckBox2_Click()
Call subChange
End Sub

Private Sub subChange()
With Range("A1")
.Characters(Start:=1, Length:=3).Font.Strikethrough = CheckBox1.Value
.Characters(Start:=5, Length:=2).Font.Strikethrough = CheckBox2.Value
End With
End Subcitovat

lubo(11.4.2014 9:23)#018808

@eLCHa
ad. zviditelňovat objekty

Proč ne? Jak myslíš, že MS realizuje např. následníky/předchůdce? Návod: Zapni si okno "výběr a viditelnost" vyber vzorec, klepni na třeba předchůdci. V okně se objeví Line...citovat

AL(11.4.2014 9:42)#018809

@lubo Zapni si okno "výběr a viditelnost"
Nájdem to niekde v Excel2010? Mohol by si popísať v krokoch eventuálne dať screenshot, prosím?

edit: už som to našiel, díkcitovat

eLCHa(11.4.2014 9:44)#018810

@lubo
nejen následníci a předchůdci - cyklický odkaz bude totéž ;)

to byla jen technická - jsou situace kdy to možná jinak nejde, ale tahle to není ;)citovat

lubo(11.4.2014 13:10)#018816

Pomíjím to, že dobrovolně bych asi různé části textu v jedné buňce makrem nerozlišoval. Pokud ano, napadly mne 2 možnosti - pomocí objektů a/nebo nastavením fontu. Každá varianta má své.

Mimochodem, následně mne napadlo, že místo škrtání by možná bylo přehlednější měnit jiné atributy než přeškrtnutí (škrtnuto = slabě + šedě / normálně = tučné + černě)citovat

mikkinachtik(11.4.2014 18:44)#018819

Díky, super pomohlo mi to.citovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse