¦Û°ÊÁôÂì¡­¶Á¡

mdr0465

¦U¦ì¤j¤j

½Ð°Ý¦p¦ó¥i¥H¦bsheets "HS BANK BOOK #395" ªºC3 Àx¦s®æ¿é¤J"open" ´N¥i¥H¦Û°Ê±N"PV,RV,JV,COA"ªº¤u§@ªí¦Û°Ê¯B²{,
¦pªGC3 Àx¦s®æ¤£¬O"open"ªº¦r´N·|¦Û°Ê«D±`ÁôÂÃ?

ÁÂÁÂ

­ã´£³¡ª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

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

¦^´_ 3# mdr0465

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xS As Worksheet, V
With Target
     If .Address <> "$C$1" Then Exit Sub
     V = 2
     If UCase(.Value) = "OPEN" Then V = -1
     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

mdr0465

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

­ã´£³¡ªL, §A¦n

¥i¥H¤F, ÁÂÁ§AÀ°¦£

mdr0465

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

­ã´£³¡ªL,§A¦n
¦pªG§Ú·Q¥Î¦P¤@¤èªk, ¦ý¬O·Q±N"C3:C100" ªºÀx¦s®æ¤º¨½¦p¦³¼Æ¦r¿é¤J´N±N¤£°÷7¦ì¼Æ¥Ø¦rªºÀx¦s®æ, ´Nºâ°Ê±N¼Æ¦r«e­±¸É"0" ¥i¥H«ç¼Ë­×§ï©O?

¤ñ¦p"1233" >>>"0001233"

ÁÂÁÂ

­ã´£³¡ªL

¦^´_ 6# mdr0465


®æ¦¡³]¦¨ 0000000 ¤£¥i¥H¶Ü?

mdr0465

¦^´_  mdr0465

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xS As Worksheet, V
With  ...
­ã´£³¡ªL µoªí©ó 2021-11-6 19:35

­ã´£³¡ªL,§A¦n
¬°¦ó§Ú¹L¤F¤@¬q¤é¤l¦A¶}±Ò·|¥¢®Ä©O?

samwang

¦^´_ 8# mdr0465

¦³±K½X¡AµLªk±oª¾°ÝÃD¡AÁÂÁÂ

mdr0465

¦^´_ 9# samwang


Samwang ®v¥S
½ÐÀ°¦£¬d¬Ý,ÁÂÁÂ