MS Excel

Zdravim majstrov vo VBA.
Na liste1 mam vlozene zaskrtavacie tlacitko z formulara, ktore by malo zobrazovat/skryt stlpce. Mam nasledovne makro, ktore mi nechodi. Mozno ze je chyba v tom, ze tlacitku nedokazem priradit uvedene makro cez Priradit makro. Poradi niekto? Dakujem

Private Sub CheckBox1_Click()
' Skryt stlpce F a G
If CheckBox1.Value = True Then
Columns("F,G").Select
With Selection.EntireColumn
.Hidden = True
End With
End If
'Zobrazit stlpce F a G
If CheckBox1.Value = False Then
Columns("F,G").Select
With Selection.EntireColumn
.Hidden = False
End With
End If
Range("A3").Select
End Sub

Zaslat odpověď >

Strana: « předchozí 1 2

Stalker(28.11.2010 0:37)#003341

OK tady máš novej kód:

Sub políčko1_Klepnutí()
'Skryt stlpce F a G
If Range("A1").Value = True Then
Columns("F:G").Hidden = True
End If

'Zobrazit stlpce F a G
If Range("A1").Value = False Then
Columns("F:G").Hidden = False
End If
Range("A3").Select
End Sub

políčko je propojeno s buňkou A1
pravý tl. myši - formát ovládacího prvku - ovládací prvek

Příloha: rar

3341_sesit11.rar (9kB, staženo 18x)

citovat

Stalker(28.11.2010 9:00)#003342

Ahoj, tak sem si pročet znovu celé vlákno a velká omluva za mistifikaci, včera sem evidentně neměl svůj den

.
K políčku z ovládacích prvků formuláře jde samozřejmě přiřadit makro, ale né ve "stejném" svaru jako je makro pro ovlácí prvek ActiveX. V ActiveX je hodnota "vlastnost" políčka (zaškrtnuto, nezaškrtnuto) přímo vyjádřena v makru: CheckBox1.Value = True Then, CheckBox1.Value = False Then což u ovládacího prvku formuláře nelze - ten se musí propojit s libovolnou buňkou např: A1 (v buňce se mění hodnota PRAVDA a NEPRAVDA podle zaškrtnutí) a tuto buňku poté použít v makru: Range("A1").Value = True Then, Range("A1").Value = False Then. Takže to makro co si sem uvedl je schopno funkce pouze s ActiveX prvkem a po úpravě samozřejmě i s prvkem z formuláře.

Jen bych se zeptal proč trváš na prvku z formuláře ? U prvků ActiveX máš více možností si pohrát s jeho vlastnostmi, například barvou což u prvků z formuláře nelze.citovat

Dunkaninko(28.11.2010 10:15)#003343

Peknu nedelu prajem,
s makrom pre zaskrtavacie tlacitko z ovladacich prvkov formulára a prepojenim na nejaku bunku mi to bolo jasne od zaciatku. Moc mi nevyhovuje prepojenie resp zviditelnenie tej bunky, preto som hladal nieco podobne ako je to s prvkami z ActiveX. Kedze si mi tvrdil od zaciatku, ze to ide podobne aj pre prvky z formulara, tak som chcel vediet ako. Teraz je mi to jasne, ze to nejde.
Aj tak Ti dakujem za znacny cas venovany asi dost jednoduchemu problemu.citovat

Strana: « předchozí 1 2

Téma: CheckBox1_Click()

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje