返回列表 上一主題 發帖

[發問] 工作表顯示與隱藏

henry860608

帖子
17 
主題
5 
精華
0 
積分
71 
點名
1  
作業系統
window 
軟體版本
google 
閱讀權限
20 
性別
男 
註冊時間
2017-6-27 
最後登錄
2024-11-18 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2019-7-22 15:00 | 只看該作者

[發問] 工作表顯示與隱藏

以撰寫程式碼如下，第一次點選右鍵可以隱藏單一工作表，第二次點選右鍵卻隱藏所有工作表，請問問題在哪裡?
程式碼與附件如下
  1. Private Sub Worksheet_Activate()
  2. Dim i, n As Integer
  3. Dim a As String
  4.     n = Sheets.Count
  5. For i = 1 To n
  6.     If Sheets(i).Name <> Cells(i + 1, 2) Then
  7.         a = Cells(i + 1, 2)
  8.         If a = "" Then Exit Sub
  9.         Sheets(i).Name = a
  10.     End If
  11. Next
  12. End Sub

  14. Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

  16. End Sub


  19. Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  20. Dim i, n As Integer
  21.     n = Sheets.Count
  22. For i = 2 To n
  23. If Target = Cells(i + 1, 4) Then
  24.     If Cells(i + 1, 4).Interior.Color = vbBlue Then
  25.         Cells(i + 1, 4) = "顯示工作表"
  26.         Cells(i + 1, 4).Interior.Color = vbRed
  27.         Worksheets(i).Visible = False
  28.     Else
  29.         Cells(i + 1, 4) = "隱藏工作表"
  30.         Cells(i + 1, 4).Interior.Color = vbBlue
  31.         Worksheets(i).Visible = True
  32.     End If
  33. Else

  35. End If
  36. Next
  37. End Sub
複製代碼
1563740111775.zip (16.43 KB)
收藏 分享

henry860608

帖子
17 
主題
5 
精華
0 
積分
71 
點名
1  
作業系統
window 
軟體版本
google 
閱讀權限
20 
性別
男 
註冊時間
2017-6-27 
最後登錄
2024-11-18 
2#
發表於 2019-7-22 22:02 | 只看該作者

NEW: 工作表顯示與隱藏

代碼已經更新了，但是還是發生點選一個工作表，卻隱藏兩個工作表。
  1. Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  2. Dim i, n As Integer
  3.     n = Sheets.Count
  4. For i = 2 To n
  5. If Target = Cells(i, 4) Then

  7.     If Cells(i, 4).Interior.Color = vbBlue Then
  8.         Cells(i, 4) = "顯示工作表"
  9.         Cells(i, 4).Interior.Color = vbRed
  10.         Worksheets(i - 1).Visible = xlSheetVisible
  11.     Else
  12.         Cells(i, 4) = "隱藏工作表"
  13.         Cells(i, 4).Interior.Color = vbBlue
  14.         Worksheets(i - 1).Visible = xlSheetVeryHidden
  15.     End If
  16. Else
  17.    
  18. End If
  19. Next
  20. End Sub
複製代碼

TOP

henry860608

帖子
17 
主題
5 
精華
0 
積分
71 
點名
1  
作業系統
window 
軟體版本
google 
閱讀權限
20 
性別
男 
註冊時間
2017-6-27 
最後登錄
2024-11-18 
3#
發表於 2019-7-22 23:38 | 只看該作者
1563809548299.gif

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-26 
4#
發表於 2019-7-23 11:48 | 只看該作者
看不懂要做什麼???
跑迴圈, 當然會多張工作表顯示或隱藏~~

TOP

henry860608

帖子
17 
主題
5 
精華
0 
積分
71 
點名
1  
作業系統
window 
軟體版本
google 
閱讀權限
20 
性別
男 
註冊時間
2017-6-27 
最後登錄
2024-11-18 
5#
發表於 2019-7-23 17:18 | 只看該作者
想法:可透過點選來改變工作表的顯示與隱藏特性

TOP

henry860608

帖子
17 
主題
5 
精華
0 
積分
71 
點名
1  
作業系統
window 
軟體版本
google 
閱讀權限
20 
性別
男 
註冊時間
2017-6-27 
最後登錄
2024-11-18 
6#
發表於 2019-7-23 23:23 | 只看該作者

Sol: 工作表顯示與隱藏

已經找到問題了，利用with selection 即可，不需要迴圈函數
  1. Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  2. On Error Resume Next
  3.     With Selection(1)
  4.       If Target = Cells(.Row, 4) Then
  5.         If Cells(.Row, 4).Interior.Color = vbBlue Then
  6.             Cells(.Row, 4) = "顯示工作表"
  7.             Cells(.Row, 4).Interior.Color = vbRed
  8.             Worksheets(.Row - 1).Visible = xlSheetVisible
  9.         ElseIf Cells(.Row, 4).Interior.Color = vbRed Then
  10.             Cells(.Row, 4) = "隱藏工作表"
  11.             Cells(.Row, 4).Interior.Color = vbBlue
  12.             Worksheets(.Row - 1).Visible = xlSheetVeryHidden
  13.         Else
  14.         End If
  15.     End If
  16.     End With
  17.    
  18. End Sub
複製代碼

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-26 
7#
發表於 2019-7-24 10:46 | 只看該作者
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
With Cells(Target(1).Row, 2)
     On Error GoTo 999
     CK% = Sheets(.Value).Visible + 1
     Sheets(.Value).Visible = CK
     .Cells(1, 3) = Array("顯示工作表", "隱藏工作表")(CK)
     .Cells(1, 3).Interior.Color = Array(vbRed, vbBlue)(CK)
End With
999: End Sub


=============================

TOP

henry860608

帖子
17 
主題
5 
精華
0 
積分
71 
點名
1  
作業系統
window 
軟體版本
google 
閱讀權限
20 
性別
男 
註冊時間
2017-6-27 
最後登錄
2024-11-18 
8#
發表於 2019-7-25 16:20 | 只看該作者
回復 7# 准提部林
謝謝大大，如果要改成 xlSheetVeryHidden 要怎麼做

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-26 
9#
發表於 2019-7-25 19:48 | 只看該作者
回復 8# henry860608

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
With Cells(Target(1).Row, 2)
     On Error GoTo 999
     ck% = Abs(1 - Sheets(.Value).Visible)
     Sheets(.Value).Visible = ck
     .Cells(1, 3) = Array("隱藏工作表", "顯示工作表")(ck - 1)
     .Cells(1, 3).Interior.Color = Array(vbBlue, vbRed)(ck - 1)
End With
999: End Sub

自行研究下:
xlSheetVisible = -1
xlSheetHidden = 0
xlSheetVeryHidden = 2

========================

TOP

henry860608

帖子
17 
主題
5 
精華
0 
積分
71 
點名
1  
作業系統
window 
軟體版本
google 
閱讀權限
20 
性別
男 
註冊時間
2017-6-27 
最後登錄
2024-11-18 
10#
發表於 2019-7-28 01:08 | 只看該作者
回復 9# 准提部林
謝謝准提部林，每次看到你的程式都讓我很驚訝
精簡而且容易了解，感恩

TOP

        靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。
返回列表 上一主題