網路找的-- 100個最簡單的Excel巨集指令 - echochio

VBA 常用的..... 我用到7 成左有..... XD 001 儲存格範圍選取Range("Xa:Xb").Select 002 儲存格範圍選取Range(Cel. echochio 跳到主文 echochio的部落格跳到主文歡迎光臨echochio在痞客邦的小天地，我是一個(C/P)收集工程師^^所以想要跟(C/P)同好收集內容因此有需要(C/P)下面程式語法的同好請來和我交流,分享相片 部落格全站分類：數位生活 相簿 部落格 留言 名片 Jun11Mon201810:58 網路找的--100個最簡單的Excel巨集指令 VBA常用的.....我用到7成左有.....XD 001儲存格範圍選取　Range("Xa:Xb").Select 002儲存格範圍選取　Range(Cells(y1,x1),Cells(y2,x2)).Select 003定義範圍名稱　SetmyRange1=(Cells(y1,x1),Cells(y2,x2))myRange1.Select 004填入數值或文字資料　Range("Xa").FormulaR1C1=12　Range("Xa:Xb").FormulaR1C1="ABC" 005清除資料　Range("Xa").ClearContents　Range("Xa:Xb").ClearContents 006刪除資料，下方資料向上移　Range("Xa").DeleteShift:=xlUp　Range("Xa:Xb").DeleteShift:=xlUp  007刪除資料，右方資料向左移　Range("Xa").DeleteShift:=xlToLeft 008刪除整列資料，下方資料向上移　Range("y1").EntireRow.Delete 009刪除多列資料　Rows("y1:y2").DeleteShift:=xlUp 010刪除整欄資料，右欄資料向左移　Range("Xa").EntireColumn.Delete 011刪除多欄資料　Columns("x1:x2").DeleteShift:=xlToLeft 012插入儲存格，現有儲存格向右移　Range("Xa").InsertShift:=xlToRight 013插入儲存格，現有儲存格向下移　Range("Xa").InsertShift:=xlDown 014插入整列　Range("Xa").EntireRow.Insert 015插入整欄　Range("Xa").EntireColumn.Insert 016插入多欄空白欄，現有的資料往右移　Columns("Xa:Xb").InsertShift:=xlToRight,CopyOrigin:=xlFormatFromLeftOrAbove 017複製的資料插入於多個欄位間，現有資料向右移　Columns("Xa:Xb").Copy　Columns("Xc:Xd").InsertShift:=xlToRight 018複製、貼上　Range("Xa").Copy　Range("Xb").Select　ActiveSheet.Paste 019插入多列空白列，現有資料向下移　Rows("y1:y2").InsertShift:=xlDown,CopyOrigin:=xlFormatFromLeftOrAbov 020插入複製的資料於多列間，現有的資料向下移　Rows("y1:y2").CopyRows("y3:y4").InsertShift:=xlDown  021MsgBox函數 022目前區域(是指以任意空白列及空白欄的組合為邊界的範圍)的列數　i=Cells(y,x).CurrentRegion.Rows.Count 023目前區域(是指以任意空白列及空白欄的組合為邊界的範圍)的欄數　Cells(y,x).CurrentRegion.Columns.Count 024游標移動y列x欄(y,x>0)　ActiveCell.Offset(rowOffset:=y,columnOffset:=x).Activate 025游標移動y列x欄(y,x<0)　ActiveCell.Offset(y,x).Activate 026相當Ctrl+End組合鍵　ActiveCell.SpecialCells(xlLastCell).Select 027相當Ctrl+Home組合鍵　Range("A1").Select 028相當Ctrl+向下鍵　Selection.End(xlDown).Select 029相當Ctrl+向上鍵　Selection.End(xlUp).Select 030相當Ctrl+向左鍵　Selection.End(xlToLeft).Select 031相當Ctrl+向右鍵　Selection.End(xlToRight).Select 032相當於Ctrl+Shift+Home組合鍵　Range(Selection,Cells(1)).Select 033相當於Ctrl+Shift+End組合鍵　Range(Selection,ActiveCell.SpecialCells(xlLastCell)).Select 034相當於Ctrl+Shift+向上鍵　Range(Selection,Selection.End(xlUp)).Select 035相當於Ctrl+Shift+向下鍵　Range(Selection,Selection.End(xlDown)).Select 036相當於Ctrl+Shift+向左鍵　Range(Selection,Selection.End(xlToLeft)).Select 037相當於Ctrl+Shift+向右鍵　Range(Selection,Selection.End(xlToRight)).Select 038對指定範圍中的儲存格執行自動填滿　Range("Xa:Xb").AutoFillDestination:=Range("Xa:Xc") 039傳回範圍中第一個區域中的第一列的列號　Range("Xa:Xb").Row  040傳回Range物件，代表指定之範圍內的列　Range("Xa:Xb").Rows(n)=k  041傳回範圍中第一個區域中的第一欄的欄號　Range("Xa:Xb").Column 042傳回Range物件，代表指定之範圍內的欄　Range("Xa:Xb").Columns(n)=k  043在本工作底稿之前新增一個名為”S1”的工作底稿　Sheets.Add.Name="工作底稿名稱S1"  044新增一個未名命的工作底稿　Sheets.Add 045在底稿某個工作底稿之後新增一個名為"S2"的工作底稿　Sheets.AddAfter:=Sheets("工作底稿名稱1")　ActiveSheet.Name="工作底稿名稱2" 046在某個工作底稿之前(before)新增一個名為"S3"的底稿。

　Sheets.Addbefore:=Sheets("工作底稿名稱")　ActiveSheet.Name="S3" 047改工作底稿名稱　Sheets("名稱1").Name="名稱2" 048選定、切換工作底稿　Sheets("工作底稿名稱").Select 049複製一個工作底稿在某個工作底稿之前　Sheets("S2").CopyBefore:=Sheets("S1")  050複製一個工作底稿在某個工作底稿之後　Sheets("S2").CopyAfter:=Sheets("S3") 051複製工作底稿甲為乙，並在丙之前　Sheets("甲").CopyBefore:=Sheets("丙")　ActiveSheet.Name="乙" 052複製工作底稿甲為乙，並在丙之後　Sheets("甲").CopyAfter:=Sheets("丙")　ActiveSheet.Name="乙" 053移動工作底稿甲在乙之後　Sheets("甲").MoveAfter:=Sheets("乙") 054移動工作底稿甲在乙之前　Sheets("甲").MoveAfter:=Sheets("乙") 055選定、切換工作底稿　Sheets("工作底稿名稱").Select 056選定多個工作底稿　Sheets(Array("工作底稿S1","S2","S3")).Select 057隱藏一個工作底稿　Sheets("工作底稿名稱").Visible=False 058顯示一個隱藏的工作底稿　Sheets("工作底稿名稱").Visible=True 059隱藏多個工作底稿　Sheets(Array("工作底稿名稱1","工作底稿名稱2","工作底稿名稱3")).Visible=False 060顯示多個已隱藏的工作底稿(只能一個個顯示，不可設為群組)　Sheets("S1").Visible=True 061刪除一個工作底稿　Sheets("S1").Delete 062刪除工作底稿；而不出顯警告對話視窗　 Application.DisplayAlerts=False　Sheets("工作底稿名稱").Delete  063刪除多個工作底稿；而不出顯警告對話視窗　Application.DisplayAlerts=False　Sheets(Array("工作底稿S1","S2","S3")).Delete 064新增一個檔案(活頁簿)　Workbooks.Add 065新增一個檔案(活頁簿)，(另存新檔)命名為"x:\path\Filename.xls"　Workbooks.AddActiveWorkbook.SaveAsFilename:="x:\path\Filename.xls" 066開啟舊檔　Workbooks.OpenFilename:="x:\path\Filename.xls"  067存檔(檔名和原來檔名一樣未改)　ActiveWorkbook.Save 068關閉作用中的檔案(活頁簿)　ActiveWorkbook.Close 069離開、關閉Excel應用軟體　Application.Quit 070當執行階段錯誤時，程式控制不因錯誤而中斷停止下面程序。

　OnErrorResumeNext  071使用Error陳述式來模擬發生錯誤代碼的狀況　Errorerrornumber  072InputBox函數 073Shell函數　Shell"執行檔程式.exe",常數  074送出一或多個按鍵訊息到使用中的視窗，就如同在鍵盤上按下的一樣SendKeys陳述 075當按下特定鍵或組合鍵時會執行指定的程序　Application.OnKey"按鍵","程序名稱"  076將程式控制權轉移到一個Sub程序，Function程序，或動態連結資料庫(DLL)程序。

　Call程序名稱 077以特定次數來重複執行一段陳述式　For…Next陳述 078九九乘法表　用For…Next陳述 079If…Then…Else…陳述式 080If…Then…EndIf陳述 081If…Then…Else…EndIf陳述 082If…Then…　ElseIf…Then　ElseIf…Then　Else　EndIf 083SelectCase陳述 084Do...Loop陳述　DoWhile…　Loop 085Do...Loop陳述　Do　LoopWhile…  086Do...Loop陳述　DoUntil…　Loop 087Do…Loop陳述　Do　LoopUntil…  088Do…Loop陳述　Do…　ExitDo　Loop 089While…Wend陳述　While條件　Wend 090With…EndWith陳述　With　EndWith 091多個範圍的選取　Range("Xa:Xb,Xc:Xd,Xe:Xf") 092多個範圍的選取　[Xa:Xb,Xc:Xd,Xe:Xf] 093Open陳述式　Open"路徑\檔名"For檔案模式As#n 094Open陳述式　Open"路徑\檔名"For檔案模式As#n 095RAND()亂數函數　[Xa:Xb].FormulaR1C1="=RAND()" 096Chr()函數　[A1].Value=Chr(charcode) 097Hex()、Asc()和Chr()函數　[Xa].Value=Hex(Asc("文字"))&"："&Chr(Asc("文字")) 098Asc()、AscW()、Chr()、ChrW()函數 099Auto_close巨集  100自動執行巨集　auto_open()   全站熱搜 創作者介紹 echochio echochio echochio發表在痞客邦留言(0)人氣() 全站分類：數位生活個人分類：其他此分類上一篇：Windows7的多人遠端桌面RDP 此分類下一篇：免費個人網域+個人DNS+個人郵件 +個人網頁 上一篇：Windows7的多人遠端桌面RDP 下一篇：免費個人網域+個人DNS+個人郵件 +個人網頁 ▲top 留言列表 發表留言 站方公告 [公告]2022年度農曆春節期間服務公告[公告]MIB廣告分潤計劃、PIXwallet錢包帳戶條款異動通知[公告]2021年度農曆春節期間服務公告 活動快報 潮Way台南大富翁 最新潮、最有話題的「潮Way台南」指南，擁有網友推... 看更多活動好康 我的好友 熱門文章 文章分類 雜七雜八(1) 其他(257) 程式(5) C(2)Android(7)mysql(1)vbscript(1)shell(3) 工具(5)相片(4)未分類文章(31) 最新文章 最新留言 動態訂閱 文章精選 文章精選 2018六月(10) 2018四月(5) 2018三月(3) 2018二月(3) 2018一月(5) 2017十二月(4) 2017十一月(5) 2017十月(17) 2017九月(10) 2017八月(9) 2017七月(10) 2017六月(14) 2017五月(9) 2017四月(21) 2017三月(21) 2017二月(21) 2017一月(16) 2016十二月(22) 2016十一月(23) 2016十月(19) 2016九月(11) 2016八月(1) 2016六月(1) 2016四月(2) 2014一月(12) 2013十二月(4) 2013十一月(10) 2013十月(3) 2013九月(1) 2013八月(19) 所有文章列表 文章搜尋 新聞交換(RSS) 誰來我家 參觀人氣 本日人氣： 累積人氣： QRCode POWEREDBY (登入) 回到頁首 回到主文 免費註冊 客服中心 痞客邦首頁 ©2003-2022PIXNET 關閉視窗