VBA 常用的 ..... 我用到 7 成左有 ..... XD
001 儲存格範圍選取 Range("Xa:Xb").Select
002 儲存格範圍選取 Range(Cells(y1,x1), Cells(y2,x2)).Select
003 定義範圍名稱 Set myRange1=(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").Delete Shift:=xlUp Range("Xa:Xb").Delete Shift:=xlUp
007 刪除資料,右方資料向左移 Range("Xa").Delete Shift:=xlToLeft
008 刪除整列資料,下方資料向上移 Range("y1").EntireRow.Delete
009 刪除多列資料 Rows("y1:y2").Delete Shift:=xlUp
010 刪除整欄資料,右欄資料向左移 Range("Xa").EntireColumn.Delete
011 刪除多欄資料 Columns("x1:x2").Delete Shift:=xlToLeft
012 插入儲存格,現有儲存格向右移 Range("Xa").Insert Shift:=xlToRight
013 插入儲存格,現有儲存格向下移 Range("Xa").Insert Shift:=xlDown
014 插入整列 Range("Xa").EntireRow.Insert
015 插入整欄 Range("Xa").EntireColumn.Insert
016 插入多欄空白欄,現有的資料往右移 Columns("Xa:Xb").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
017 複製的資料插入於多個欄位間,現有資料向右移 Columns("Xa:Xb").Copy Columns("Xc:Xd").Insert Shift:=xlToRight
018 複製、貼上 Range("Xa").Copy Range("Xb").Select ActiveSheet.Paste
019 插入多列空白列,現有資料向下移 Rows("y1:y2").Insert Shift:=xlDown,CopyOrigin:=xlFormatFromLeftOrAbov
020 插入複製的資料於多列間,現有的資料向下移 Rows("y1:y2").Copy Rows("y3:y4").Insert Shift:=xlDown
021 MsgBox 函數
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").AutoFill Destination:=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.Add After:=Sheets("工作底稿名稱 1") ActiveSheet.Name="工作底稿名稱 2"
046 在某個工作底稿之前(before)新增一個名為"S3"的底稿。 Sheets.Add before:=Sheets("工作底稿名稱") ActiveSheet.Name="S3"
047 改工作底稿名稱 Sheets("名稱 1").Name="名稱 2"
048 選定、切換工作底稿 Sheets("工作底稿名稱").Select
049 複製一個工作底稿在某個工作底稿之前 Sheets("S2").Copy Before:=Sheets("S1")
050 複製一個工作底稿在某個工作底稿之後 Sheets("S2").Copy After:=Sheets("S3")
051 複製工作底稿甲為乙,並在丙之前 Sheets("甲").Copy Before:=Sheets("丙") ActiveSheet.Name="乙"
052 複製工作底稿甲為乙,並在丙之後 Sheets("甲").Copy After:=Sheets("丙") ActiveSheet.Name="乙"
053 移動工作底稿甲在乙之後 Sheets("甲").Move After:=Sheets("乙")
054 移動工作底稿甲在乙之前 Sheets("甲").Move After:=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.Add ActiveWorkbook.SaveAs Filename:="x:\path\Filename.xls"
066 開啟舊檔 Workbooks.Open Filename:="x:\path\Filename.xls"
067 存檔(檔名和原來檔名一樣未改) ActiveWorkbook.Save
068 關閉作用中的檔案(活頁簿) ActiveWorkbook.Close
069 離開、關閉 Excel 應用軟體 Application.Quit
070 當執行階段錯誤時,程式控制不因錯誤而中斷停止下面程序。 On Error Resume Next
071 使用 Error 陳述式來模擬發生錯誤代碼的狀況 Error errornumber
072 InputBox 函數
073 Shell 函數 Shell"執行檔程式.exe",常數
074 送出一或多個按鍵訊息到使用中的視窗,就如同在鍵盤上按下的一樣 SendKeys 陳述
075 當按下特定鍵或組合鍵時會執行指定的程序 Application.OnKey"按 鍵","程序名稱"
076 將程式控制權轉移到一個 Sub 程序,Function 程序,或動態連結資料庫 (DLL)程序。 Call 程序名稱
077 以特定次數來重複執行一段陳述式 For…Next 陳述
078 九九乘法表 用 For…Next 陳述
079 If…Then … Else …陳述式
080 If…Then…End If 陳述
081 If … Then…Else…End If 陳述
082 If…Then… ElseIf …Then ElseIf …Then Else End If
083 Select Case 陳述
084 Do...Loop 陳述 Do While … Loop
085 Do...Loop 陳述 Do Loop While …
086 Do...Loop 陳述 Do Until… Loop
087 Do…Loop 陳述 Do Loop Until…
088 Do…Loop 陳述 Do… Exit Do Loop
089 While…Wend 陳述 While 條件 Wend
090 With…End With 陳述 With End With
091 多個範圍的選取 Range("Xa:Xb,Xc:Xd,Xe:Xf")
092 多個範圍的選取 [Xa:Xb,Xc:Xd,Xe:Xf]
093 Open 陳述式 Open"路徑\檔名" For 檔案模式 As #n
094 Open 陳述式 Open"路徑\檔名" For 檔案模式 As #n
095 RAND()亂數函數 [Xa:Xb].FormulaR1C1="=RAND()"
096 Chr() 函數 [A1].Value=Chr(charcode)
097 Hex()、Asc() 和 Chr()函數 [Xa].Value=Hex(Asc("文字"))&":"& Chr(Asc("文字"))
098 Asc()、AscW()、Chr()、ChrW()函數
099 Auto_close 巨集
100 自動執行巨集 auto_open()
留言列表