2.循環宏
3:錄制宏時調用停止錄制工具欄。
4:高級篩選5列不將數據復制到指定的表中。
5:雙擊單元格執行宏(工作表代碼)
6:雙擊指定區域單元格執行宏(工作表代碼)
7:輸入執行宏的單位(工作表代碼)
8:進入指定區域執行宏(工作表代碼)
9:在多個宏中依次執行壹個(控制按鈕代碼)。
10:依次執行壹個宏，並相應修改按鈕名稱(控制按鈕代碼)。
11:依次執行三個宏中的壹個，並相應修改按鈕名稱(控制按鈕代碼)。
12:根據A1單元文本(控制按鈕代碼)隱藏/顯示按鈕？
13:當前單元格返回按鈕名稱(控制按鈕代碼)？
14:當前單元格內容返回按鈕名稱(控制按鈕代碼)？
15:奇數頁和偶數頁分開打印？
16:自動打印多張工作表的首頁？
17:找壹列文字循環插入分頁符？
18:將A列最後壹個數據行上方B列的所有圖片調整到單位大小？
19:返回光標所在的行數？20:返回A1中當前選中單元格的個數？
21:返回當前工作簿中工作表的個數？
22:返回光標選擇區域的行數和列數？
工作表中包含的最大數據行數是多少？
24:返回A列中數據的最大行數？
25:將所選區域文本插入新文本框？
26:批量插入地址標註？
27:批量插入統壹標註？
28:批量插入A1單元內容的評論？
29:在不連續區域插入當前文件名和表名地址？
30:在不連續區輸入當前單位地址？
31:連續區輸入當前單位地址？
32:返回當前單位地址？
33:在不連續區域輸入當前日期？
34:在不連續區域輸入當前數字日期？
35:在不連續區域輸入當前日期和時間？
36:檢查不連續區域條目？
37:在不連續區域輸入當前文件名？
38:在不連續的區域添加文本？
39:在不連續的區域插入文字？
40:從指定位置向下同時輸入多個單位的指定內容？
41:根據aa工作表A列的內容對工作表標簽進行排序？
42:將單元A1的文本作為表名插入工作表？
43:刪除所有未選中的工作表？
44:分類紙張標簽
45:定義指定的工作表標簽顏色？
46:在目錄中創建此工作簿中表格的鏈接目錄？
47:創建工作表文本目錄？
48:檢查另壹個文件的所有表名？
49:輸入當前單位的計算機名稱？
50:輸入當前公司的計算機用戶名？
51:取消對所有工作表的保護？
52:將指定的密碼保護表添加到指定的工作表中？
53:用密碼執行工作表上的代碼？
54:執行前需要密碼驗證的宏(控制按鈕代碼)？
55:執行前要求密碼驗證的宏()。
56:將A1公式和格式復制到A2？
57:復制單位值？
58:插入數字條件格式？
59:插入透明評論？
60:添加文字？
61:將光標移動到指定工作表A列最後壹個數據行的下壹個單元格？
62:定位所選單元格中所有格式相同的單元格？
63:通過當前單元格文本定位？
64:靠固定文字定位？
65:刪除包含固定文本單位的行或列？
66:在區域上方定位數據和空值？
67:右邊單元格自動加5(工作表代碼)？
68:當前單位加2？
69:A列等於A列減去B列？
70:光標選擇的多區域跳轉指定單元(工作表代碼)？
71:將單元格A1中輸入的數據累加到單元格B1(工作表代碼)？
72:指定色區選擇單位時增加/取消“√”(工作表代碼)？
73:指定面積選擇單位時加/取消“√”(工作表代碼)？
74:雙擊指定單元格循環輸入文本(工作表編碼)？
75:雙擊指定單元格循環輸入文本(工作表編碼)？
76:單元格區域引用(工作表代碼)？
77:指定面積選擇單位時在值上加1(工作表代碼)？
78:混文數？
79:雙擊指定區域單位的數據累加(工作表代碼)？
80:選擇單元格區域觸發事件(工作表代碼)？
81:修改指定單元格的內容時自動執行宏(工作表代碼)？
82:執行受指定單元格內容限制的宏？
83:雙擊單元格隱藏行(工作表代碼)？
84:高亮行(工作表代碼)？
85:突出顯示行和列(工作表代碼)
86:設置指定工作表的滾動範圍(工作簿代碼)
87:以指定單位記錄打印和預覽時間(工作簿代碼)
88:數字金額自動大寫(工作表代碼)
89:使用所有工作表的單元格A1作為單擊按鈕(工作簿代碼)
90:鬧鐘-在指定的時間執行宏(工作簿代碼)。
91:更改Excel界面標題的宏(工作簿代碼)。
92:返回光標在指定工作表的指定單元格中的當前多選地址(工作簿代碼)。
93:當數據輸入到B列時，記錄時間(工作表代碼)返回到a列。
94:當指定區域被修改時，當前日期和時間(工作表代碼)被返回到右邊的兩個單元格中。
95:指定顯示光標位置內容的單元格(工作表代碼)
96:保存每個編輯單元的文件。
97:指定允許的編輯區域。
98:取消編輯區域的限制。
99:刪除指定行
100:刪除A列為指定內容的行。
1:打開所有隱藏的工作表。
Sub？打開所有隱藏的工作表()
暗淡？我？作為？整數
為了什麽？我？=?1?去哪？床單。數數
床單(壹)。可見？=?真實的
下壹個？我？
結束？潛水艇
2.循環宏
Sub？循環()
AAA？=?範圍(“C2”)
暗淡？我？作為？長的
暗淡？時代？作為？長的
時代？=?AAA？
Times代表周期數，執行前給它賦值即可(不小於1，不大於2147483647)。
為了什麽？我？=?1?去哪？倍
打電話？過濾壹行
如果？範圍(“完成標記”)？=?“搞定”？然後
退出？為了什麽？
如果名為“完成標誌”的命名單元的值等於“完成”，則退出循環；如果它在開始時等於“完成”，則只退出循環壹次。
如果？紙張(“轉移參數”)。範圍(" A "？& amp？我)。文字？=?“搞定”？然後呢？
退出？為了什麽？
如果壹列出現“完成”內容，退出循環。
下壹個？我？
結束？潛水艇
3:錄制宏時調用停止錄制工具欄。
Sub？錄制宏時調用停止錄制工具欄()。
申請。CommandBars("停？錄音”)。可見？=?真的嗎？
結束？潛水艇
4:高級篩選5列不將數據復制到指定的表中。
Sub？高級篩選5列不將數據復制到Sheet2()
紙張(“紙張2”)。Range("A1:E65536 ")？=?""?清除Sheet2的A:D列。
範圍(" A1:E65536 ")。高級過濾器？操作:=xlFilterCopy，？CopyToRange:=Sheet2。範圍(？_
" A1 ")，？唯壹:=真
工作表2。列(“A:E”)。排序？Key1:=Sheet2。Range("A2 ")，？訂單1:=xlAscending，？表頭:=xlGuess，？_
OrderCustom:=1，？MatchCase:=False，？方位:=xlTopToBottom，？SortMethod？_
:=xlPinYin？
結束？潛水艇
5:雙擊單元格執行宏(工作表代碼)
私人？Sub？worksheet _ before double click(ByVal？目標？作為？範圍，？取消？作為？布爾型)
如果？範圍(" $A$1 ")？=?“接近”？然後
退出？Sub？
選擇？案子？目標。地址
案子？" $A$4 "
打電話？宏1
取消？=?真實的
案子？" $B$4 "
打電話？宏2
取消？=?真實的
案子？" $4加元"
打電話？弘三
取消？=?真實的
案子？" $E$4 "
打電話？宏4？
取消？=?真實的
結束？選擇？
結束？潛水艇
6:雙擊指定區域單元格執行宏(工作表代碼)
私人？Sub？worksheet _ before double click(ByVal？目標？作為？範圍，？取消？作為？布爾型)
如果？範圍(" $A$1 ")？=?“接近”？然後呢？退出？潛水艇
如果？不是嗎？申請。相交(目標，？Range("A4:A9 "，" C4:C9 ")？是嗎？什麽都沒有？然後呢？打電話？打開隱藏的表格
結束？潛水艇
7:輸入執行宏的單位(工作表代碼)
私人？Sub？工作表_SelectionChange(ByVal？目標？作為？範圍)？用單元格條目而不是按鈕對象調用宏？
如果？範圍(" $A$1 ")？=?“接近”？然後呢？退出？Sub？
選擇？案子？目標。地址
案子？“5澳元”？單位地址(目標。地址)，或命名單元名稱(目標。姓名)？
打電話？宏1
案子？" $B$5 "
打電話？宏2
案子？" $5加元"
打電話？弘三
結束？挑選
結束？潛水艇
8:進入指定區域執行宏(工作表代碼)
私人？Sub？工作表_SelectionChange(ByVal？目標？作為？範圍)
如果？範圍(" $A$1 ")？=?“接近”？然後呢？退出？潛水艇
如果？不是嗎？申請。相交(目標，？Range("A4:A9 "，" C4:C9 "))？是嗎？什麽都沒有？然後呢？打電話？打開隱藏的表？
結束？潛水艇
9:在多個宏中依次執行壹個(控制按鈕代碼)。
私人？Sub？CommandButton1_Click()
靜電？RunMacro？作為？整數
選擇？案子？運行宏
案子？0
宏1
RunMacro？=?1
案子？1
宏2
RunMacro？=?2
案子？2
弘三
RunMacro？=?0
結束？選擇？
結束？潛水艇
10:依次執行壹個宏，並相應修改按鈕名稱(控制按鈕代碼)。
私人？Sub？CommandButton1_Click()
用什麽？命令按鈕1
如果？。標題？=?“保護工作表”？然後
打電話？保護工作表
。標題？=?"取消工作表保護"？
退出？潛水艇
結束？如果
如果？。標題？=?"取消工作表保護"？然後
打電話？取消工作表保護
。標題？=?“保護工作表”？
退出？潛水艇
結束？如果
結束？用什麽？
結束？潛水艇
11:依次執行三個宏中的壹個，並相應修改按鈕名稱(控制按鈕代碼)。
選項？露骨？私人？Sub？CommandButton1_Click()
用什麽？命令按鈕1
如果？。標題？=?“宏1”？然後
打電話？宏1
。標題？=?《宏2》？
退出？潛水艇
結束？如果
如果？。標題？=?《宏2》？然後
打電話？宏2
。標題？=?"宏3 "
退出？潛水艇
結束？如果
如果？。標題？=?《宏3》？然後
打電話？弘三
。標題？=?"宏1 "
退出？潛水艇
結束？如果
結束？用什麽？
結束？Sub？
12:根據A1單元格文本(控制按鈕代碼)隱藏/顯示按鈕
私人？Sub？工作表_SelectionChange(ByVal？目標？作為？範圍)？
如果？Range("A1 ")？& gt？2?然後
命令按鈕1。可見？=?1
其他
命令按鈕1。可見？=?0
結束？如果？
結束？Sub？
私人？Sub？CommandButton1_Click()
重新排序窗口？
結束？潛水艇
13:當前單元格返回按鈕名稱(控制按鈕代碼)。
私人？Sub？CommandButton1_Click()？
ActiveCell？=?命令按鈕1。標題？
結束？潛水艇
14:當前單元格內容返回到按鈕名稱(控制按鈕代碼)
私人？Sub？CommandButton1_Click()？
命令按鈕1。標題？=?ActiveCell？
結束？潛水艇
15:分別打印奇數頁和偶數頁。
Sub？奇數頁和偶數頁分開打印()？
暗淡？我%，？Ps%？
Ps？=?ExecuteExcel4Macro("GET。文件(50)”)？總頁數？
MsgBox？"現在打印奇數頁，按“確定”開始."？
為了什麽？我？=?1?去哪？Ps？壹步？2?
ActiveSheet。打印輸出？from:=我，？致:=我？
下壹個？我？
MsgBox？現在打印偶數頁，按OK開始？
為了什麽？我？=?2?去哪？Ps？壹步？2?
ActiveSheet。打印輸出？from:=我，？致:=我？
下壹個？我？
結束？潛水艇
16:自動打印多張工作表的首頁。
Sub？自動打印多個工作表的第壹頁()？
暗淡？噓？作為？整數？
暗淡？x？
暗淡？y？
暗淡？sy？
暗淡？syz？
x？=?InputBox("請輸入起始工作表的名稱:")？
sy？=?InputBox("請輸入結束工作表名稱:")？
y？=?張(x)。指數？
syz？=?床單(sy)。指數？
為了什麽？噓？=?y？去哪？syz？
床單(sh)。選擇？
床單(sh)。打印輸出？from:=1，？To:=1？
下壹個？噓？
結束？潛水艇
17:查找壹列文本以循環插入分頁符。
Sub？松散地插入分頁符()？
？選擇？=?工作簿(“臨時表”)。工作表(“表2”)。Range("A1 ")？呼叫指定的地址內容
暗淡？我？作為？龍？
暗淡？時代？作為？龍？
時代？=?申請。工作表Function.CountIf(Sheet1。Range("a:a ")，？“分頁”)？時間代表循環的次數。只需在執行前給Time賦值(不小於1且不大於2147483647)？
為了什麽？我？=?1?去哪？時代？
打電話？插入分頁符？
下壹個？我？
結束？潛水艇
Sub？插入分頁符()？
細胞。查找(什麽:= "分頁"，之後:=ActiveCell，？looking:= XL values，？看看:=？_?
xlPart，？SearchOrder:=xlByRows，？搜索方向:=xlNext，？MatchCase:=False)？_?
。激活？
活動窗口。SelectedSheets.HPageBreaks.Add？之前:=ActiveCell？
結束？潛水艇
Sub？取消原始分頁()？
細胞。選擇？
ActiveSheet。ResetAllPageBreaks？
結束？潛水艇
18:將A列最後壹個數據行上方B列中的所有圖片調整到單位大小。
Sub？將A列最後壹個數據行上方B列中所有圖片的大小調整為單位()的大小？
暗淡？Pic？作為？圖片，？我& amp？
我？=?[A65536]。結束(xlUp)。劃？
為了什麽？每個？Pic？在？Sheet1。圖片？
如果？不是嗎？申請。相交(圖。TopLeftCell？Range("B1:B "？& amp？我))？是嗎？什麽都沒有？然後
圖片。Top？=?圖片。頂部左側單元格。頂部
圖片。向左？=?圖片。頂部左側單元格，左側
圖片。身高？=?圖片。頂部左側單元格。高度
圖片。寬度？=?圖片。頂部左側單元格。寬度
結束？如果
下壹個？
結束？潛水艇
19:返回光標所在的行數。
Sub？返回光標所在的行數()？
x？=?ActiveCell。劃？
Range("A1 ")？=?x？
結束？潛水艇
20:返回A1中當前選中單元格的個數。
Sub？返回A1()中當前選中單元格的個數？
[A1]？=?選擇。數數？
結束？潛水艇
21:返回當前工作簿中工作表的數量。
Sub？返回當前工作簿中的工作表數()？
t？=?申請。床單。數數？
MsgBox？t？
結束？潛水艇
93:當數據輸入到B列時，記錄時間(工作表代碼)返回到a列。
公？Sub？工作表_更改(ByVal？目標？作為？範圍)？
如果？目標。專欄？=?2?然後呢？
目標。偏移(，？-1)?=?現在嗎？
結束？如果？
結束？潛水艇
94:當指定區域被修改時，當前日期和時間(工作表代碼)被返回到右邊的兩個單元格中。
公？Sub？工作表_更改(ByVal？目標？作為？範圍)？
如果？不是嗎？申請。相交(目標，？[A1:A1000])？是嗎？什麽都沒有？然後呢？
如果？目標。專欄？=?1?然後呢？
目標。偏移(，？1)?=?約會？
目標。偏移(，？2)?=?時間？
結束？如果？
結束？如果？
結束？潛水艇
公共？Sub？工作表_更改(ByVal？目標？作為？範圍)？
如果？不是嗎？申請。相交(目標，？[A1:A1000])？是嗎？什麽都沒有？然後呢？
如果？目標。專欄？=?1?然後呢？
目標。偏移(，？1)?=?格式(Now()，？“yyyy-mm-dd”)？
目標。偏移(，？2)?=?格式(Now()，？" h:mm:ss ")？
結束？如果？
結束？如果？
結束？潛水艇
95:指定顯示光標位置內容的單元格(工作表代碼)
私人？Sub？工作表_SelectionChange(ByVal？t？作為？範圍)？
張(1)。Range("A1 ")？=?選擇？
結束？潛水艇
96:保存每個編輯單元的文件。
私人？Sub？工作表_更改(ByVal？目標？作為？範圍)？
此工作簿。保存？
結束？潛水艇
97:指定允許的編輯區域。
Sub？指定允許的編輯區域()？
ActiveSheet。ScrollArea？=?" B8:G15 "？
結束？潛水艇
98:取消編輯區域的限制。
Sub？去掉允許編輯區域的限制()？
ActiveSheet。ScrollArea？=?""?
結束？潛水艇
99:刪除指定行
Sub？刪除指定行()？
工作簿(“臨時表”)。工作表(“表2”)。範圍(“5:5”)。刪除？
結束？潛水艇
100:刪除A列為指定內容的行。
Sub？刪除A列為指定內容的行()？
暗淡？壹、？b？作為？整數？
答？=?Sheet1。[a65536]。結束(xlUp)。排
為了什麽？b？=?答？去哪？2?壹步？-1
如果？細胞(b，？1).價值？=?“刪除”？然後呢？
行(b)。刪除
結束？如果
下壹個？
結束？潛水艇