Excelマクロクエリ：セル値に基づいて行を非表示

Question

こんにちは私は以下のコードを試しましたが、それは誰も私を助けることができるように動作していないようです。私は、B1がテキストDeleteを持っているときに3 & 4の行を非表示にしたいだけです。しかし、B1にDeleteと入力すると自動的に実行されます。

おかげ

Answer 1

このような何かが

Option Explicit 'Very first line to ensure that variables are declared 

Private Sub Worksheet_Change(ByVal Target As Range) 
    'check if target address is B1 
    If Target.Address(RowAbsolute:=False, ColumnAbsolute:=False) = "B1" Then 
     ShowHideRows 
    End If 
End Sub 

Public Sub ShowHideRows() 
    If Range("B1").Value = "Delete" Then 
     Rows("3:4").EntireRow.Hidden = True 
     Rows("7:8").EntireRow.Hidden = False 
    ElseIf Range("B1").Value = "Open" Then 'use ElseIf if possible like here 
     Rows("3:4").EntireRow.Hidden = False 
     Rows("7:8").EntireRow.Hidden = True 
    End If 
End Sub 

注動作するはずです：これは大文字と小文字が区別されを。だからDeleteの代わりにB1 deleteと入力すると実行されません。大文字と小文字を区別しないようにするには、

LCase(Range("B1").Value) = "delete" 'string delete must be lower case!