- 帖子
- 976
- 主題
- 7
- 精華
- 0
- 積分
- 1018
- 點名
- 0
- 作業系統
- Win10
- 軟體版本
- Office 2016
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-4-19
- 最後登錄
- 2024-12-18
|
回復 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 |
|
發表於 2021-12-7 17:47
| 
