条件に基づいてExcelで行を自動的に隠す

Question

私は同様の質問に対するいくつかの回答を見つけましたが、私の人生のためにこの仕事をすることはできません。私は自動的にセルの入力に基づいて行を非表示にしようとしています。私は列AからJまでのデータを持っていますが、列Kに値を入力する行を自動的に隠したいと思います。これができると確信していますが、私はVBAマクロを動作させるために努力しています！

ご協力いただければ幸いです。

ありがとうございます！

Answer 1

シートにワークシートの変更イベントが必要です。あなたはそれが行全体を非表示になりますk個の列の任意のセルの値を変更すると あなたのシート

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Target.Column = 11 Then ' Column K is column number 11 
     Target.EntireRow.Hidden = True 
    End If 
End Sub 

のコードセクションにこのコードを入れてください。
UsedRangeでのみ動作させたい場合は、そのように動作するようにコードを編集することもできます。

Answer 2

これを試してください。列Kのすべてのセルをループし、任意のテキストでセルを非表示にします。

Sub AutoHideRows() 
'Get the last row of the used range 
    Dim LastRow As Long 
    LastRow = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row 

'Loop through the range looking for non-blank values, and hide those rows 
    Dim c As Range 
    For Each c In Range("K1:K" & LastRow) 
     If c.Value <> "" Then 
      c.EntireRow.Hidden = True 
      Else 
      c.EntireRow.Hidden = False 
     End If 
    Next c 
End Sub 

データの最初の行に列見出しが含まれており、フィルタから除外したい場合は、このコード行に変更します。これに

For Each c In Range("K1:K" & LastRow) 

：

For Each c In Range("K2:K" & LastRow) 

をお役に立てれば！

Answer 3

@dinotomの回答のバリエーションです。それはあなたが列Kに値を入力すると、行全体を隠しではなく、あなたが列K.

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Target.Column = 11 And Target.Value <> "" Then ' Column K is column number 11 
     Target.EntireRow.Hidden = True 
    End If 
End Sub