samwang

回復 10# mdr0465

是如下那種功能需求嗎? 請測試看看，謝謝

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

回復 11# samwang


Samwang

可以了, 謝謝你的幫忙