Board logo

標題: [發問] (己解決!)如何一次開啟所有Sheet 內的群組 [打印本頁]
作者: wind6424    時間: 2011-8-9 10:27     標題: (己解決!)如何一次開啟所有Sheet 內的群組

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

Excel 檔案內有10多個Sheet 有部份sheet 內的群組是合起來的旁邊只顯示+
如果我要一次將所有Sheet 內的群組都展開
要如何寫才能一次展開所有Sheet 內的群組設定
謝謝
作者: kimbal    時間: 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
複製代碼
作者: wind6424    時間: 2011-8-12 11:24

感謝
回去試看看,在回覆您
作者: wind6424    時間: 2011-8-12 12:20

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


可以了,
非常感謝:handshake



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)