2017-11-30 5 views
1

に基づいて、私は次のコードを持っている:私は必要なものグループボックスの内容 - 非表示のセルの値

Private Sub Worksheet_Calculate() 
Application.EnableEvents = False 

    Select Case Range("B14") 

    Case "Medium Risk" 
     Rows("6:12").EntireRow.Hidden = True 
    Case Else 
     Rows("6:12").EntireRow.Hidden = False 

    End Select 
Application.EnableEvents = True 
End Sub 

です:B14の値に基づいてグループボックス「コンテンツ」を非表示にします。 グループボックス15はCheckBox8_Clickを囲んでいます。

アイデア?

おかげ

答えて

0
私は単に行を非表示と沈降することを決定

オブジェクトである[セル基準に基づい]:

Private Sub Worksheet_Calculate() 
Application.EnableEvents = False 

    Select Case Range("B14") 

    Case "Medium Risk" 
     Rows("6:12").EntireRow.Hidden = True 
     Rows("24").EntireRow.Hidden = True 
     Case Else 
     Rows("6:12").EntireRow.Hidden = False 
     Rows("24").EntireRow.Hidden = False 
    End Select 
Application.EnableEvents = True 
End Sub