嘿嘿,這點數賺到了
<pre class="c" name="code">
Columns("D:F").EntireColumn.Hidden = false
Rows("3:5").EntireRow.Hidden = false
不是啦大大!
我是想要列出所有隱藏之欄列
如:
3:5
D:F
...
因為不知道資料表中,原先有哪些欄列設定隱藏,一旦全部取消隱藏,要復原時,就麻煩了,所以想用vba將之列出
原來點數沒這麼好賺啦,可以但需要思考一下,我先想一下
我將之全部取消,輸入data完,要回復原先之設定再存檔給別人。
問題來了,不但麻煩,而且也不記得先前之設定。
請問,如何寫vba,執行後,可以將上述之設定,產生在一個sheet中,我可以將之轉貼在vba的模組中,如此一來,當輸入data完後,只要執行該巨集,即可回復當初之設定。
感謝!
昨天思考了一下,另外也查了一下似乎沒有更便利的方式,若是最差的方式可能需要每欄每列檢查,大概會65536-256次迴圈,這會要一點時間,若像您說的會更好另外記錄這些值,就無需每次檢查了,
感謝您的回答
我是用2007版,所以不只是65536-256次迴圈
我在想,為何可以在A1儲存格的左上角點選,mark整張資料表,然後分別在欄/列 按右鍵,選:取消隱藏,就可以不到1秒,全部取消隱藏?
微軟不知是用什麼方法辦到的?
有網友GBKEE做出來了一個程式來配合「自訂檢視」使用,提供大家參考:
Sub Ex_製定檢視()
ActiveWorkbook.CustomViews.Add ViewName:="檢視1", PrintSettings:=True, RowColSettings:=True
End Sub
Sub Ex_開啟檢視()
Dim E As CustomView
With ActiveWorkbook
.CustomViews("檢視1").Show
For Each E In .CustomViews
E.Delete
Next
.Save
End With
End Sub
symis提到:
E.Delete
我也看不懂是什麼意思...