Si l'instruction ne fonctionne pas dans Excel VBA

Question

Je tente de créer une instruction simple if dans Excel avec VBA.

Je crée une nouvelle case à cocher

Ajoute le code suivant à la boîte. Résultat: Les lignes sont cachées à la fois si la case est cochée ou décochée.

(case cochée)

Toutes les lignes sont visibles

décocher la case

Résultat: Toutes les lignes sont masquées

(case est cochée)

Toutes les lignes sont visible

Désélectionner t il checkbox

Résultat: Toutes les lignes sont cachées

Answer 1

Vous pouvez mettre ceci dans un sous, son hypothèse d'une case à cocher activeX

Private Sub CheckBox1_Click() 
If CheckBox1 = True Then 
    [2:5].EntireRow.Hidden = False 
    Else: [2:5].EntireRow.Hidden = True 
End If 
End Sub 

Answer 2

En supposant son ActiveX CheckBox, placez ce code dans le module Sheet .. .

Private Sub CheckBox1_Click() 
If CheckBox1 = True Then 
    Rows("2:5").Hidden = True 
Else 
    Rows("2:5").Hidden = False 
End If 
End Sub 

Edit:

Ou tout simplement utiliser ...

Private Sub CheckBox1_Click() 
    Rows("2:5").Hidden = CheckBox1 
End Sub 

Answer 3

Vous voulez un changement d'événement.

Vous n'avez pas besoin du If Then. CheckBox1 retourne un VRAI/FAUX, utilisez-le.

Et le EntireRow n'est pas non plus nécessaire en se référant à Rows(). Vous faites déjà référence à toute la rangée.

De même, il est recommandé de toujours déclarer le parent à tout objet Range, ce qui correspond à Rows(). Si le code est dans le code de feuille de travail, alors utilisez Me comme il se référera à lui-même. Si le code est dans un module puis utilisez ActiveSheet ou de préférence la feuille spécifique, Worksheets("Sheet1"):

Private Sub CheckBox1_Change() 
    HideRows "2:5" 
End Sub 



Sub HideRows(rowRange) 
    'if this code is not in the worksheet code then change `Me` to `ActiveSheet` 
    Me.Rows(rowRange).Hidden = Not CheckBox1 

End Sub