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

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±`ÁôÂÃ?

ÁÂÁÂ

mdr0465

¦^´_ 11# samwang


Samwang

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

samwang

¦^´_ 10# mdr0465

¬O¦p¤U¨ººØ¥\¯à»Ý¨D¶Ü? ½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xS As Worksheet, V
With Target
    If Target.Address = "$D$1" Then
        If UCase(.Value) = "OPEN" Then V = 1 Else V = 0
        For i = 1 To Sheets.Count
            With Sheets(i)
                If .Name = "PV" Or .Name = "RV" Or .Name = "JV" Or .Name = "COA" Then
                    .Visible = V
                End If
            End With
        Next
    End If
End With
End Sub

mdr0465

¦^´_ 9# samwang


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

samwang

¦^´_ 8# mdr0465

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

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?

­ã´£³¡ªL

¦^´_ 6# mdr0465


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

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"

ÁÂÁÂ

mdr0465

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

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

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

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