マクロ「セルワークチェンジ」を使用してセル値が変更されたときにトリガする

Question

セル値の変更に基づいてさまざまなマクロをトリガするvbaスクリプトを作成しようとしています。単一のセルの値を変更すると、 'C22'セルの下のコードが正常に機能しましたが、追加のセルを追加するとエラーになります。

どのような考えですか？

Private Sub Worksheet_Change(ByVal Target As Range) 


If Target.Address = "$C$22" Then 
    Select Case Target.Value 
     Case "Yes" 
      Call Hide280C 
     Case "No" 
      Call Show280C 
     Case "Not Sure" 
      Call Show280C 
     Case "" 
      Call Show280C 
     Case Else 
      Exit Sub 
    End Select 

If Target.Address = "$L$33" Then 
    Select Case Target.Value 
     Case "Yes" 
      Call NJCreditShow 
     Case "No" 
      Call NJCreditHide 
     Case Else 
      Exit Sub 
    End Select 

If Target.Address = "$L$34" Then 
    Select Case Target.Value 
     Case "Yes" 
      Call PACreditShow 
     Case "No" 
      Call PACreditHide 
     Case Else 
      Exit Sub 
    End Select 

End If 

End Sub 

Answer 1

あなたのコードはに更新します。

Private Sub Worksheet_Change(ByVal Target As Range) 
If Target.Address = "$C$22" Then 
    Select Case Target.Value 
     Case "Yes" 
      'Call Hide280C (Call not needed) 
      Hide280c 
     Case "No" 
      Show280C 
     Case "Not Sure" 
      Show280C 
     Case "" 
      Show280C 
     Case Else 
      Exit Sub 
    End Select 
ElseIf Target.Address = "$L$33" Then 'You missed the End if, but you could also use ElseIf and only have one End if at the end. 
    Select Case Target.Value 
     Case "Yes" 
      NJCreditShow 
     Case "No" 
      NJCreditHide 
     Case Else 
      Exit Sub 
    End Select 
ElseIf Target.Address = "$L$34" Then 
    Select Case Target.Value 
     Case "Yes" 
      PACreditShow 
     Case "No" 
      PACreditHide 
     Case Else 
      Exit Sub 
    End Select 
End if 
End Sub