ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

¦^´_ 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

TOP

¦^´_ 11# samwang


Samwang

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

TOP

        ÀR«ä¦Û¦b : §ïÅܦۤv¬O¦Û±Ï¡A¼vÅT§O¤H¬O±Ï¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD