返回列表 上一主題 發帖

錄製巨集~隱藏多個欄位~錯亂!

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-4-25 14:27 | 只看該作者

錄製巨集~隱藏多個欄位~錯亂!

本帖最後由 av8d 於 2012-4-25 14:37 編輯

Range("D:D,H:H,S:S,W:W,AA:AB").Select
    Range("AA1").Activate
    Selection.EntireColumn.Hidden = True

執行後，全部的欄位都縮在一起!(我本身有部分欄位隱藏了)


後來改寫成
    Range("D:D,H:H,S:S,W:W,AA:AA,AB:AB").EntireColumn.Hidden = True


無法執行
收藏 分享

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2012-4-25 14:36 | 只看該作者
回復 1# av8d
可以的 錯誤值是什麼?

TOP

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
3#
發表於 2012-4-25 14:40 | 只看該作者
[版主管理留言]
  • GBKEE(2012/4/25 15:01): 傳上檔案看看

本帖最後由 av8d 於 2012-4-25 14:48 編輯

回復 2# GBKEE


我發現不能把他們寫在一起只能分開寫
Range("D:D,H:H,S:S,W:W,AA:AA,AB:AB").EntireColumn.Hidden = True
只能寫成
Range("D:D").EntireColumn.Hidden = True
Range("H:H").EntireColumn.Hidden = True
Range("S:S").EntireColumn.Hidden = True
以此類推...

TOP

eggdd

帖子
9 
主題
0 
精華
0 
積分
52 
點名
0  
作業系統
xp 
軟體版本
2007 
閱讀權限
20 
性別
男 
註冊時間
2012-3-22 
最後登錄
2012-12-18 
4#
發表於 2012-4-25 17:13 | 只看該作者
Range("D,H:H,S:S,W:W,AA:AB").EntireColumn.Hidden = True
可以執行啊
egg

TOP

lin

帖子
172 
主題
2 
精華
0 
積分
230 
點名
0  
作業系統
winXP 
軟體版本
office 2007& office 2003 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-6-23 
最後登錄
2017-10-28 
5#
發表於 2012-4-26 12:57 | 只看該作者
我試一下 Range("D,H:H,S:S,W:W,AA:AA,AB:AB").EntireColumn.Hidden = True
可以執行，是否是excel沒安裝好
Lin

TOP

        靜思自在 : 忘功不忘過，忘怨不忘恩。
返回列表 上一主題