返回列表 上一主題 發帖

[發問] (己解決!)如何一次開啟所有Sheet 內的群組

wind6424

帖子
60 
主題
20 
精華
0 
積分
87 
點名
0  
作業系統
WinXP 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-8-4 
最後登錄
2020-5-25 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2011-8-9 10:27 | 只看該作者

[發問] (己解決!)如何一次開啟所有Sheet 內的群組

本帖最後由 wind6424 於 2011-8-12 12:19 編輯

Excel 檔案內有10多個Sheet 有部份sheet 內的群組是合起來的旁邊只顯示+
如果我要一次將所有Sheet 內的群組都展開
要如何寫才能一次展開所有Sheet 內的群組設定
謝謝
收藏 分享

wind6424

帖子
60 
主題
20 
精華
0 
積分
87 
點名
0  
作業系統
WinXP 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-8-4 
最後登錄
2020-5-25 
4#
發表於 2011-8-12 12:20 | 只看該作者
這個樣子?
kimbal 發表於 2011-8-9 22:46


可以了,
非常感謝:handshake

TOP

wind6424

帖子
60 
主題
20 
精華
0 
積分
87 
點名
0  
作業系統
WinXP 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-8-4 
最後登錄
2020-5-25 
3#
發表於 2011-8-12 11:24 | 只看該作者
感謝
回去試看看,在回覆您

TOP

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
2#
發表於 2011-8-9 22:46 | 只看該作者
本帖最後由 kimbal 於 2011-8-9 22:48 編輯

這個樣子?
  1.     For Each sht In ActiveWorkbook.Worksheets
  2.         sht.Select
  3.         For Each cel In sht.UsedRange.Resize(, 1)
  4.             With sht.Rows(cel.Row).EntireRow
  5.                 If Not .ShowDetail Then
  6.                     .ShowDetail = True
  7.                 End If
  8.             End With
  9.         Next
  10.     Next
複製代碼
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

        靜思自在 : 犯錯出懺悔心，才能清淨無煩惱。
返回列表 上一主題