Tartomány elrejtése a felhasználó választásától függően - Excel tippek

Mike megkérdezi:

Ha a munkafüzetemben nincs bejelölve egy vezérlő jelölőnégyzet, akkor szeretnék automatikusan elrejteni bizonyos sorokat és oszlopokat a VBA segítségével. Hogyan történik ez? Köszönöm.

Vezérlő jelölőnégyzetként a következőképpen néz ki kód:

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

Az első rész a hiba elkerülése, ha Excel 97-et használ. A második sor egy „továbbfejlesztett” IF, így lehet elkészíteni:

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

De miért csinálja az összes extra gépelést?