mdr0465

¦^´_ 2# ­ã´£³¡ªL

­ã´£³¡,®v¥S§A¦n

ÁÂÁ§Aªº¦^ÂÐ,

·í§Ú¿é¤J"open" ¬O¨S¦³°ÝÃD¥i¥HÁôÂäu§@ªí, ¦ý·í§Ú¦bÀx¦s®æ¨S¦³"open"ªº¤å¦r®É´N·|¥X²{error ½Ð°Ý«ç¼Ë¥i¥H­×§ï©O?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xS As Worksheet, V
With Target
     If .Address <> "$C$1" Then Exit Sub
     V = xlSheetVeryHidden
     If UCase(.Value) = "OPEN" Then V = xlSheetVisible
     Application.ScreenUpdating = False
     For Each xS In Sheets(Array("PV", "RV", "JV", "COA"))
         If xS.Visible <> V Then xS.Visible = V  ' °ÝÃD¥X²{¦b³o¤@¥y
     Next
End With
End Sub



ÁÂÁÂ

­ã´£³¡ªL

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xS As Worksheet, V
With Target
     If .Address <> "$C$3" Then Exit Sub
     V = xlSheetVeryHidden
     If UCase(.Value) = "OPEN" Then V = xlSheetVisible
     Application.ScreenUpdating = False
     For Each xS In Sheets(Array("PV", "RV", "JV", "COA"))
         If xS.Visible <> V Then xS.Visible = V
     Next
End With
End Sub