返回列表 上一主題 發帖

[發問] 活頁簿能用陣列同時隱藏或出現嗎?

我也來練習補充一個
  1. Sub ex1()
  2.     Dim Arr As Variant, xS
  3.     Arr = Array("Sheet2", "Sheet3", "Sheet4")
  4.     On Error Resume Next
  5.     For Each xS In Arr
  6.         Sheets(xS).Visible = Not Sheets(xS).Visible
  7.     Next
  8. End Sub
複製代碼
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

回復 5# 准提部林

准大考慮周詳,請給我們一個示範例。
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

回復 6# c_c_lai

真厲害!
又學到  Static tf As Boolean
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

回復 8# 准提部林

3Q

下兩式的計算值有些不同,都可以達到 隱藏/顯示 的切換
    tf = Not Sheets(arr(0)).Visible '值變化 : 0 / -1
    tf = 1 + Sheets(arr(0)).Visible  '值變化 : 0 / 1
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

        靜思自在 : 多做多得。少做多失。
返回列表 上一主題