返回列表 上一主題 發帖

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

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

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

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

本帖最後由 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

感謝
回去試看看,在回覆您

TOP

這個樣子?
kimbal 發表於 2011-8-9 22:46


可以了,
非常感謝:handshake

TOP

        靜思自在 : 脾氣嘴巴不好,心地再好也不能算是好人。
返回列表 上一主題