Diapazona slēpšana atkarībā no lietotāja izvēles - Excel padomi

Maiks jautā:

Ja manā darbgrāmatā nav atzīmēta izvēles rūtiņa, es gribētu automātiski paslēpt konkrētas rindas un kolonnas ar VBA. Kā tas tiek darīts? Paldies.

Ja esat izvēles rūtiņa Control, jums būs kods, kas izskatās šādi:

Private Sub CheckBox1_Click() ActiveCell.Select Rows(15).Hidden = CheckBox1 End Sub

Pirmā daļa ir izvairīties no kļūdas, ja jūs izmantojat Excel 97. Otrā rinda ir "uzlabota" IF, to var izdarīt šādi:

If CheckBox1 = True then Rows(15).Hidden = True Else Rows(15).Hidden = False End If 

Bet kāpēc veikt visu papildu rakstīšanu?