返回列表 上一主題 發帖

手動製作巨集程式碼過於繁雜問題(如何精簡程式碼)

准提部林

帖子
2842 
主題
10 
精華
0 
積分
2898 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2025-4-28 
1# 跳轉到 »
發表於 2016-5-3 21:03 | 顯示全部帖子
錄製時，〔選取〕這個動作也會產生程式碼，亦即〔有２個動作〕
１．Columns("C:E").Select
２．Selection.EntireColumn.Hidden = True

可以併為一行 Columns("C:E").EntireColumn.Hidden = True
省略 Select 及 Selection，

另也可用：Range("C:E").EntireColumn.Hidden = True

若為〔不連續〕多欄位，則可：
Range("C:E,G:H,K:M").EntireColumn.Hidden = True
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

以下若不須跳轉工作表為〔當前〕作用，則 Select 那行也可刪除：
Sheets("Liner").Select　可刪
Sheets("Liner").Copy Before:=Sheets(1)

Sheets("Liner (2)").Select　可刪

Sheets("Liner (2)").Name = "總表"

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
錄製的程式碼，最好自己試著去改，從錯誤中去修正，這也是學習方法之一，
當然去多看別人寫的更可以對照再去修改，
不要一股腦的原碼就拿出來問，因為這是基礎問題，大概沒人會回答的，
VBE內建說明檔有時間多看看，有了基本認識，再來問較進階的問題！
　

TOP

        靜思自在 : 吃苦了苦、苦盡廿來，享福了福、福盡悲來。
返回列表 上一主題