空の行を非表示にするにはチェックボックスが必要です

Question

私は以下を持っています。空の行を非表示にしてCHECKBOXで戻して、必要に応じて行を追加できるようにしています。私はそれらを削除したくない。 「コントロール」セクションのリボンの「開発」タブで、オン

Sub Sample() 
    Dim i As Long 
    Dim DelRange As Range 

    On Error GoTo Whoa 

    Application.ScreenUpdating = False 

    For i = 1 To 250 
     If Application.WorksheetFunction.CountA(Range("A" & i & ":" & "L" & i)) = 0 Then 
      If DelRange Is Nothing Then 
       Set DelRange = Rows(i) 
      Else 
       Set DelRange = Union(DelRange, Rows(i)) 
      End If 
     End If 
    Next i 

    If Not DelRange Is Nothing Then DelRange.Delete shift:=xlUp 
LetsContinue: 
    Application.ScreenUpdating = True 

    Exit Sub 
Whoa: 
    MsgBox Err.Description 
    Resume LetsContinue 
End Sub 

Answer 1

1. 、「挿入」ドロップダウンをクリックし、「ActiveXコントロール」セクション（ない1のチェックボックスコントロールをクリックしてください「フォームコントロール」セクションで）

2. チェックボックスが

3. 表示したいフォーム上をクリックして、チェックボックスをダブルクリックし、自動生成さCheckBox1_Click方法で（これは最初のチェックボックスであると仮定するとフォームに）、yoに電話をかけるウル方法：あなたのSample方法でSample

4. 、「コントロール」セクションで、リボンに「開発」タブで

5. 下の置き換えを実行するには、オフにするには、「デザインモード」ボタンをクリックしてくださいデザインモードは、（そうでない場合、あなたのチェックボックスをチェックし、オフにすることはできません）
   
   

これを置き換えます

これにより

、「シート1」は、ワークシートの名前で、「CheckBox1を」はあなたのチェックボックスの名前です：

If Not DelRange Is Nothing Then DelRange.Rows.Hidden = Sheets("Sheet1").CheckBox1.Value