• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Rijen verbergen dmv checkbox

Status
Niet open voor verdere reacties.
stefano

stefano

Gebruiker
Lid geworden
22 mei 2004
Berichten
864
Beste,

Is het mogelijk om een aantal rijen te verbergen wanneer een vraag wordt beantwoord via een checkbox.

bijvoorbeeld:

Project opstarten ? Checkbox ja, checkbox neen.

Wanneer neen wordt aangekruist dienen rijen 6 tot 10 te verdwijnen, bij ja dienen ze te verschijnen.

Kan dit ?

alvast dank !Bekijk bijlage ETS - checkbox.xlsx
 
Pak een ActiveX checkbox.
Code: 
Private Sub CheckBox1_Click()
 Rows("6:10").Hidden = CheckBox1
End Sub
 
Prima heren, dank voor de hulp, ik experimenteer verder!
 
In het geval van de wisselknop zie je niet of er ja of neen aangekruist is, dat is jammer .

In het andere geval kan je zowel ja als neen aankruisen.

Dus dacht ik aan een OptionButton die steeds ene bolletje uitzet al je andere aanklikt...

2 moeilijkheden voor me:

* hoe maak ik de rijen terug zichtbaar?

Code: 
Private Sub OptionButton1_Click()
Rows("6:10").Hidden = OptionButton1
End Sub
Private Sub OptionButton2_Click()
Rows("6:10").[B]unhidden[/B] = OptionButton2
End Sub

* wat als ik nog een bijkomende vraag heb met een ja/neen option button. Als ik op eerste vraag bv ja antwoord dan verdwijnt de selectie van option button 2 3 en 4. Toch zie ik graag wat aangeduid werd als antwoord op de vraag. Wat dien ik hier voor te kiezen?

dank,

Stefaan

Bekijk bijlage ETS - checkbox 2.xlsm
 
Laatst bewerkt:
Wij gaven mogelijke antwoorden op je vraag in #1 en die werken beide.
Alle andere zaken moet je er dan uiteraard zelf bij maken.

N.a.v. je opmerkingen in #5, kijk eens naar dit voorbeeld met option buttons. Per twee gegroepeerd (Eigenschappen/Groupname):
Bekijk bijlage Kopie van ETS - checkbox.xlsm

Dit is de code achter de eerste 2 horizontale option buttons (Groupname = Project):
Code: 
Private Sub optProject1_Click()
    [COLOR="#008000"]'Ja[/COLOR]
    Rows("6:10").Hidden = Not optProject1
End Sub

Private Sub optProject2_Click()
    [COLOR="#008000"]'Nee[/COLOR]
    Rows("6:10").Hidden = optProject2
End Sub

Tevens een Wisselknop voorbeeld ingevoegd.
Dit is de code er achter:
Code: 
Private Sub tglProject1_Click()
    With tglProject1
        .Caption = IIf(.Value, "Nee", "Ja")
        .BackColor = IIf(.Value, vbRed, vbGreen)
        Rows("6:10").Hidden = .Value
    End With
End Sub

Belangrijk om te weten bij bovenstaande:
- Hoe geef je zelf het object een naam en waarom zou je dat doen
- Wat is een Groupname
- Wat zijn Boolean waarden (True, False)
- Wat betekent = Not
- Wat doet de IIf functie
- Wat doet het With statement
- Wat doet = <objectnaam>
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan