< návrat zpět

MS Excel

Téma: CheckBox1_Click() rss

Zaslal/a Dunkaninko 27.11.2010 20:09

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:  1 2   další »
Stalker(27.11.2010 20:53)#003330
Stalker
Ahoj tak sem vyzkoušel tvoje makro a po menší upravě "jede". Chybička je zde("F,G"), má tam být ("F:G").

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

Edit: nebo kratší verze bez "blikání"

Private Sub CheckBox1_Click()
'Skryt stlpce F a G
If CheckBox1.Value = True Then
Columns("F:G").Hidden = True
End If

'Zobrazit stlpce F a G
If CheckBox1.Value = False Then
Columns("F:G").Hidden = False
End If
Range("A3").Select
End Subcitovat
Dunkaninko(27.11.2010 21:13)#003331
avatar
Zial mne to nefunguje. Vypisuje mi to hlasku:
Makro Sesit1!CheckBox1_Click nelze spustit. Toto makro neni pravdepodobne v sesitu k dispozici nebo jsou zakazana vsechna makra.
Makro mam ulozene v List1. V nastaveni maker mam Povolit vsechny makracitovat
Stalker(27.11.2010 21:37)#003332
Stalker
Nejspíš máš vložený tlačítko z ovládací prvky formuláře, že?
Vlož si na list tlačítko z ovládací prvky ActiveX.
Vložíš tlačítko poklikáš na něj a otevře se ti VBA editor a jenom vložíš to makro.Private Sub CheckBox1_Click() a end sub už bude vloženo automaticky tak ho tam znovu nevkládej.citovat
Dunkaninko(27.11.2010 22:00)#003333
avatar
Ano, tlačítko je z ovládací prvky formuláře ako som uviedol v zadani. Znamena to, ze takto vlozenemu ovladaciemu prvku (zaskrtavacie tlacitko) nejde pridelit makro? Dakujemcitovat
Stalker(27.11.2010 22:12)#003334
Stalker
promiň myslel sem políčko a píšu tlačítko 3. Samozřejmně můžeš políčku z ovládací prvky formuláře přidělit makro.
Nakreslíš políčko, pravým tl. myši přidat makro, volba upravit otevře se VBA a vložíš kód.
Právě, že mě zmátlo že v makru máš uvedeno "Private Sub CheckBox1_Click()" což je ActiveX, všimni si že když vybereš políčko z "formuláře" máš v makru "Sub políčko1_Klepnutí()"citovat
Dunkaninko(27.11.2010 22:43)#003335
avatar
Ked makro zmenim ako je to dalej, stale to nefunguje:
Sub CheckBox1_Click()
'Skryt stlpce F a G
If CheckBox1.Value = True Then
Columns("F:G").Hidden = True
End If

'Zobrazit stlpce F a G
If CheckBox1.Value = False Then
Columns("F:G").Hidden = False
End If
Range("A3").Select
End Subcitovat
Stalker(27.11.2010 22:47)#003336
Stalker
A použil si to zaškrtávací políčko z ActiveX?
Zkoušel sem to do prázdnýho sešitu a nebyl problémcitovat
Dunkaninko(27.11.2010 23:34)#003338
avatar
Ano zaškrtávacie políčko z ActiveX klape, ale problem mam so zaškrtávacím políčkom z formulara a o tom je cele vlaknocitovat
Stalker(27.11.2010 23:40)#003339
Stalker
Tak jestli trváš na políčku z "formuláře" tak postup sem ti psal výše - Nakreslíš políčko, pravým tl. myši přidat makro, volba upravit otevře se VBA a vložíš kód.

'Skryt stlpce F a G
If CheckBox1.Value = True Then
Columns("F:G").Hidden = True
End If

'Zobrazit stlpce F a G
If CheckBox1.Value = False Then
Columns("F:G").Hidden = False
End If
Range("A3").Selectcitovat
Dunkaninko(27.11.2010 23:53)#003340
avatar
V ceskom exceli ak vlozim nasledovne makro pre policko z formulara tak to nejde

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

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

nejde to ani ked vlozim:
Sub CheckBox1_Click()
'Skryt stlpce F a G
If CheckBox1.Value = True Then
Columns("F:G").Hidden = True
End If

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

Strana:  1 2   další »

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