Checkbox in Excel

[MoRpHeUz]

Halo mensen,

Ik wil dus in Excel 97 een ckeckbox maken dat als je deze aanvinkt, dat de macro wordt gestart, maar als je m uitvinkt, moet de macro weer ongedaan worden gemaakt. Kan dit? (De macro doet gewoon 10 kolommen verbergen omdat ik die niet altijd nodig heb).

Alvast bedankt :thumb:

 

[Dollie]

via beeld, werkbalken, formulieren een knop maken een daaraan een macro toewijzen, en vervolgens een macro openemen waardoor die 10 cellen weer zichtbaar worden en die ook weer aan een knop toewijzen.

 

[MoRpHeUz]

Maar dan krijg je dus eigenlijk 2 knoppen; 1 voor AAN en 1 voor UIT. Ik wil dus een AANVINK-KNOP waarmee je 10 cellen kunt laten zien (AANGEVINKT) en 10 cellen verbergen (UITGEVINKT).

 

[Dollie]

ik kan het alleen maar voorelkaar krijgen met twee keuze mogelijkheden. Overigens kan je ook aan de keuzevakjes via formulieren een macro koppelen maar dat wist je vast al wel.

succes

 

[MoRpHeUz]

Ja dat wist ik inderdaad al. Toch bedankt!
Misschien Some1 else who could solve this prob. ?

 

[huijb]

Even aanpassen aan je eigen wensen;

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Columns("G:H").Select
Selection.EntireColumn.Hidden = True
End If
If CheckBox1.Value = False Then
Columns("F:I").Select
Selection.EntireColumn.Hidden = False
End If
End Sub

Dit werkt bij mij in Excel2000, succes

 

[MoRpHeUz]

hmm,..ben niet zo'n expert in VB dus zou je AUB ff meer uitleg kunnen geven? Ik heb de Nederlandse Excel 97.

Bij mij ziet de code als ik een vakje aanmaak er zo uit:

Sub Selectievakje14_BijKlikken()
End Sub

Alvast bedankt!

 

[huijb]

Aha jij hebt het selectievak van Formulieren genomen, en ik van werkset besturingselementen.
Klik met je rechtermuisknop op menubalk en kies Werkset Besturingselementen daar heb je de checkbox. Teken die op je sheet en klik dan in de Werkset Besturingselementen op het icoontje met vergrootglas hiermee ga je dan naar VBA, je krijgt dan meteen dit te zien

Private Sub CheckBox1_Click()

End Sub

en daar plak je onderstaande code in

If CheckBox1.Value = True Then
Columns("G:H").Select
Selection.EntireColumn.Hidden = True
End If
If CheckBox1.Value = False Then
Columns("F:I").Select
Selection.EntireColumn.Hidden = False
End If

zoals gezegd even aanpassen aan de kolommen die je wilt verbergen.
Vergeet niet dat als je het wil testen om in Werkset Besturingselementen op de driehoek met potlood te klikken, anders blijf je in de ontwerpmodus.
Ik hoop dat het een beetje duidelijk is, zoniet dan zeg je het maar.

 

[MoRpHeUz]

GEWELDIG! Bedankt! :thumb:

 

[huijb]

Graag gedaan.

 

[MoRpHeUz]

Ehm, werkt niet helemaal. De standaard code van jouw werkt wel maar als ik t met rijen wil doen, lukt t niet.

Ik heb nu deze code alleen werkt ie niet omdat er iets mis is met de vetgedrukte regel;


Private Sub CheckBox3_Click()
If CheckBox3.Value = True Then
Rows("29:58").Select
Selection.EntireColumn.Hidden = True
End If
If CheckBox3.Value = False Then
Rows("29:58").Select
Selection.EntireColumn.Hidden = False
End If
End Sub

 

[huijb]

Verander eens Selection.EntireColumn.Hidden in Selection.EntireRow.Hidden.

 

[MoRpHeUz]

Werkt! thnx!

 

[kdankers]

Hoe doe je dat als je meerdere kolommen willen verbergen en weer zichtbaar maken?

De formule Columns("G:H,K:M,O").Select schijnt niet te werken.

 

[jzeedijk]

Hoi kdankers,

VbA is iets minder creatief dan Excel, je moet drie keer de formule toepassen.

Columns("G:H").Select
Selection.EntireColumn.Hidden = True
Columns("K:M").Select
Selection.EntireColumn.Hidden = True
Columns("O").Select
Selection.EntireColumn.Hidden = True

Jeroen

 

[Ingrid B]

Je hoeft de kolommen niet eerst te selecteren, zo gaat het ook:

Sub Verbergen()
  Columns("G:H").Hidden = True
  Columns("K:M").Hidden = True
  Columns("O:P").Hidden = True
End Sub