< návrat zpět

MS Excel


Téma: CheckBox1_Click() rss

Zaslal/a 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

Jméno
Kontrola
Text
  b i u s img code url hr   1 2 3 4 5 6 7 8 9 10

Strana:  1 2   další »
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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

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

kontrola buniek

Anonym • 27.5. 17:33

kontrola buniek

elninoslov • 27.5. 15:58

zoradit a zratat

elninoslov • 27.5. 15:16

Hromadné přepsání

Nomi • 27.5. 15:15

kontrola buniek

loksik.lubos • 27.5. 15:08

zoradit a zratat

lubo • 27.5. 13:23

kontrola buniek

elninoslov • 27.5. 12:56