|
2338 |
VBA-隱藏所有工作表 |
雨萱：「錦子老師，如果我要將活頁簿中，除了「主畫面」工作表外的其他工作表全部隱藏起來，VBA程式要怎寫呢？謝謝！」
錦子老師：
Sub sample2338() '隱藏所有工作表, 除主畫面工作表
For I = 1 To Worksheets.Count '設定I值為1到整個活頁簿工作表數量
sname = Worksheets(I).Name 'SNAME變數值為第I張工作表名稱
If sname <> "主畫面" Then 'IF判斷式，如果SNAME不等於主畫面，則執行下面動作
Worksheets(I).Visible = xlSheetVeryHidden '第I張工作表是否可以看見=工作表隱藏。
End If '結束IF判斷式
Next I 'I值加1
End Sub '結束程序
部落格相關範例
|
2021.03.01 |
|
|
2021.02.26 |
|
|
2021.01.08 |
|
|
2020.12.27 |
|
|
2020.12.21 |
|
|
2020.11.30 |
|
|
2020.10.28 |
|
|
2020.10.27 |
|
|
2020.10.18 |
|
|
2020.10.14 |
|
|
2020.09.11 |
|
|
2020.08.05 |
|
|
2020.07.28 |
|
|
2020.04.28 |
|
|
2020.02.05 |
|
|
2019.12.29 |
|
|
2019.12.24 |
|
|
2019.12.22 |
|
|
2019.12.21 |
|
|
2019.12.18 |
|
|
2019.12.17 |
|
|
2019.11.26 |
|
|
2019.11.20 |
|
|
2019.11.14 |
|
|
2019.10.24 |
|
|
2019.10.13 |
|
|
2019.10.09 |
|
|
2019.09.21 |
2227Excel搜尋特定欄，若包含該值則複製整列資料-IFERROR、IF、MAX、COUNTIF、OFFSET、ROW、COLUMN、MATCH函數 |
|
2019.09.16 |
|
|
2019.09.10 |
|
|
2019.09.10 |
|
|
2019.09.07 |
|
|
2019.09.02 |
|
|
2019.08.30 |
|
|
2019.08.30 |
|
|
2019.07.13 |
|
|
2019.06.15 |
|
|
2019.06.05 |
|
|
2019.05.29 |
|
|
2019.04.03 |
|
|
2019.03.28 |
|
|
2019.03.24 |
|
|
2019.02.12 |
|
|
2018.05.24 |
|
|
2018.04.05 |
|
|
2018.01.05 |
|
|
2017.02.26 |
|
|
2017.02.25 |
|
|
2017.02.24 |
|
|
2017.02.23 |
|
|
2017.02.22 |
|
|
2017.01.31 |
留言列表
光華商職 (2)
