返回列表 上一主題 發帖

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

henry860608

帖子
17 
主題
5 
精華
0 
積分
71 
點名
0  
作業系統
window 
軟體版本
google 
閱讀權限
20 
性別
男 
註冊時間
2017-6-27 
最後登錄
2024-3-14 
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 
點名
0  
作業系統
window 
軟體版本
google 
閱讀權限
20 
性別
男 
註冊時間
2017-6-27 
最後登錄
2024-3-14 
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 
點名
0  
作業系統
window 
軟體版本
google 
閱讀權限
20 
性別
男 
註冊時間
2017-6-27 
最後登錄
2024-3-14 
3#
發表於 2019-7-22 23:38 | 顯示全部帖子
1563809548299.gif

TOP

henry860608

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

TOP

henry860608

帖子
17 
主題
5 
精華
0 
積分
71 
點名
0  
作業系統
window 
軟體版本
google 
閱讀權限
20 
性別
男 
註冊時間
2017-6-27 
最後登錄
2024-3-14 
5#
發表於 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

henry860608

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

TOP

henry860608

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

TOP

        靜思自在 : 布施如播種，以歡喜心滋潤種子，才會發芽。
返回列表 上一主題