(1) Option Explicit '強制聲明模塊中的所有變量。
“Option Private Module”將模塊標記為私有，這僅對同壹項目中的其他模塊有用，並且不會顯示在“宏”對話框中。
選項比較文本字符串不區分大小寫。
Option Base 1 '指定數組的第壹個下標是1。
(2)出錯時繼續下壹步‘忽略錯誤並繼續執行VBA代碼以避免錯誤消息。
(3)出現錯誤時，跳轉到錯誤處理程序中的某個位置。
(4)錯誤提示“on error goto 0”恢復正常。
(5)應用。' displayalerts = false '使警告框在程序執行期間不顯示。
(6)application . screen updating = false '關閉屏幕刷新。
' application . screen updating = true '打開屏幕刷新。
(7)申請。啟用。' CancelKey = xlDisabled '禁用Ctrl+Break的功能以停止宏的運行。
詞典
(8)練習冊。Add()'創建新工作簿。
(9)工作簿(“book1.xls”)。“激活”將激活名為book1的工作簿。
(10)此工作簿。“保存”保存工作簿。
(11)此工作簿。“關閉”關閉當前工作簿。
(12)active workbook . sheets . count '獲取活動工作簿中的工作表數。
(13) ActiveWorkbook.name '返回活動工作簿的名稱。
(14) thisworkbook.name '返回當前工作簿的名稱。
此工作簿。“全名”返回當前工作簿路徑和名稱。
(15)活動窗口。EnableResize = false '禁止調整活動工作簿的大小。
(16)application . window . Arrange xlarrangestylized以平鋪方式排列工作簿。
(17)active workbook . window state = XL maximized '最大化當前工作簿。
工作表
(18)active sheet . use range . rows . count '當前工作表中使用的行數。
(19) rows.count '獲取工作表中的行數(註意:考慮了向前兼容性)。
(20)張(Sheet1)。將sheet1命名為Sum。
(21)this workbook . sheets . Add before:= worksheets(1)'在第壹個工作表之前添加壹個新工作表。
(22)活性薄片。移動到:=ActiveWorkbook之後。_
sheets(active workbook . sheets . count)'將當前工作表移動到工作表的末尾。
(23)工作表(數組(" sheet1 "，" sheet2 "))。選擇'選擇工作表1和工作表2。
(24)張(“第65438張+0”)。刪除或張(1)。刪除'刪除工作表1。
(25)活動工作簿。床單(壹)。獲取工作表I的名稱。
(26)活動窗口。displaygridlines =非活動窗口。' displaygridlines '切換工作表中網格線的顯示。這種方法也可以用在其他方面相互切換，相當於切換按鈕。
(27)活動窗口。displayheadlines =非活動窗口。“顯示標題”切換工作表中行和列邊框的顯示。
(28)active sheet . used range . format conditions . Delete '刪除當前工作表中的所有條件格式。
(29)細胞。超鏈接。刪除取消當前工作表中的所有超鏈接。
(30)活性薄片。page setup . Orientation = XL landscape
或active sheet . page setup . orientation = 2 '將頁面設置更改為橫向。
(31)active sheet . page setup . right footer = active workbook . full name '在頁面設置的頁腳中輸入文件路徑。
' active sheet . page setup . left footer = application . username '將用戶名放在活動工作表的頁腳中。
單元格/單元格區域
(32)活性細胞。當前區域。選擇
或範圍(活動單元格。結束(xlup)，活動單元格。end (xldown))。選擇。
選擇當前活動單元格中包含的區域，並且上下左右沒有空行。
選擇當前工作表中的所有單元格。
(34)範圍(" A1 ")。清除活動工作表上單元格a1中的內容。
選擇。' ClearContents '清除所選區域內容。
範圍(" A1: D4 ")。“清除”清除從A1到D4的內容，包括格式。
(35)細胞。清除工作表中所有單元格的內容。
(36)活性細胞。偏移量(1，0)。選擇'活動單元格下移壹行，同樣，它也可以下移壹列。
(37)範圍(" a1 ")。偏移量(列偏移量:= 1)或範圍(“a1”)。offset(，1)'偏移壹列。
範圍(" A1 ")。Offset (RowOffset: =-1)或Range ("A1 ")。Offset (-1)'上移壹行。
(38)範圍(" A1 ")。復制範圍(" B1 ")'復制單元格A1並將其粘貼到單元格B1中。
範圍(" A1: D8 ")。CopyRange ("F1 ")'將單元格區域復制到從單元格F1開始的區域。
範圍(" A1: D8 ")。剪切範圍(" F1 ")'將單元格範圍A1剪切到D8，並將其復制到從單元格F1開始的區域。
範圍(" A1 ")。當前區域。復印紙張(“紙張2”)。Range ("A1 ")'將包含A1的單元格區域復制到工作表2中以A1開始的單元格區域。
註意:CurrentRegion屬性等效於定位命令，由壹個矩形單元格塊組成，該單元格塊被壹個或多個空白行或列包圍。
(39)活動窗口。範圍選擇。值= XX '在選定的單元格區域中輸入值XX。
(40)活動窗口。範圍選擇。“計數”活動窗口中選定的單元格數目。
(41)選擇。“計數”當前選定區域中的單元格數量。
(42) getaddress = replace(超鏈接單元格。超鏈接(1)。address，mailto:，"")'返回單元格中超鏈接的地址並賦值。
(43) textcolor = range ("A1 ")。'檢查單元格a1的文本顏色並返回顏色索引。
範圍(" A1 ")。' interior.colorindex '獲取單元格A1的背景色。
(44)細胞。“Count”返回當前工作表中的單元格數目。
(45)選擇。範圍(“E4”)。選擇“激活當前活動單元格下方三行、右側四列的單元格”。
(46)細胞。項目(5，“c”)'單元格C5
第(5，3)項是指單元格C5。
(47)範圍(" A1 ")。Offset(RowOffset:=4，ColumnOffset:=5)
或範圍(" a1 ")。offset (4，5)'指定單元格F5。
(48)範圍(《B3》)。調整大小(RowSize:=11，ColumnSize:=3)
RNAGE(“B3”)。調整大小(11，3)'創建B3: D13區域。
(49)範圍(“數據”)。resize(，2)'將數據區域擴展2列。
(50) union (range ("Data1 ")，range ("Data2 ")'連接Data1和Data2區域。
(51)intersect(range(" Data1 ")，range ("Data2 ")'得出data 1和Data2的交集面積。
(52)範圍(“數據”)。“計數”單元格區域數據中的單元格數目。
範圍(“數據”)。列。“計數”單元格區域數據中的列數。
範圍(“數據”)。' rows.count '單元格區域數據中的行數。
(53)選擇。列。“計數”當前選定單元格區域中的列數。
Selection.rows.count '當前選定單元格區域中的行數。
(54) selection.areas.count '選定單元格區域中包含的區域數。
(55) activesheet.usedrange.row '獲取單元格區域中使用的第壹行的行號。
(五十六)Rng。column '獲取單元格區域RNG左上角單元格的列號。
(57)活動表。細胞。special cells(xlcelltypeallformatconditions)'返回活動工作表中符合條件格式的所有區域。
(58)範圍(" A1 ")。'自動篩選字段:= 3，可見下拉列表:= false '關閉通過執行自動篩選命令生成的第三個字段的下拉列表。
名字
(59)範圍(" A1: C3 ")。Name = "computer " '名稱A1: C3地區為計算機。
或範圍(" d1: E6 ")。name = "sheet1！“Book”命名局部變量，即Sheet1: E6上的區域D1是Book。
或名稱(“計算機”)。name = "robot " '將區域計算機重命名為robot。
(60)人名(《書》)。刪除'刪除姓名。
(61)個姓名。添加名稱:= "內容列表"，_
refesto:= " = OFFSET(sheet 1！2，0，0，COUNTA(Sheet2！$ a: $ a))'動態命名的列
(62) names.addname: = "company "，reference:= " CompanyCar " '命名字符串company car。
(63)姓名。addname: = "Total "，reference to:= 123456 '將數字123456命名為Total。註意數字不能加引號，否則就是命名字符串。
(64) names.addname: = "MyArray "，refersto: = ArrayNum '將數組命名為arraynum myarray。
(65)姓名。add name: = "producenum "，refersto: = "= $ b $1 "，visible: = false '隱藏名稱。
(66) activeworkbook.names ("com ")。“name”返回名稱字符串。
公式和函數
(67)申請。worksheet function . is number(" A1 ")'使用worksheet函數檢查單元格a 1中的數據是否為數字。
(68)範圍(“A:A”)。查找(應用程序。worksheet function . Max(Range(" A:A "))。使活動
激活單元格區域A列中具有最大值的單元格。
(69)細胞(8，8)。公式array = " = sum(R2c[-1]:r[-1]c[-1]* R2c:r[-1]c)" '註意，必須使用R1C1樣式的表達式。
圖表
(70)active sheet . chart objects . count '獲取當前工作表中的圖表數。
(71)活動工作表。ChartObjects ("Chart1 ")。在當前工作表中選擇“選擇圖表1”。
(72)活性薄片。ChartObjects("Chart1 ")。使活動
活動圖表。'選擇當前圖表區。
(73)工作表(“Sheet1”)。圖表對象(“圖表2”)圖表。
'更改工作表中圖表的圖表區的顏色。
(74)張(“圖表2”)。圖表區。內飾。'更改圖表工作表中圖表區的顏色。
(75)圖表。添加新的圖表工作表
(76)活動圖表。set Source data Source:= Sheets(" sheet 1 ")。範圍(" A1:D5 ")，_
Plotby: = xlcolumns '指定圖表數據源並按列排列。
(77)活動圖表。location where:= xllocationasnewsheet '新圖表用作新圖表工作表。
(78)活動圖表。繪圖區域。內飾。'將繪圖區域的顏色更改為白色。
(79)工作表(“Sheet1”)。圖表對象(1).圖表. _
Exportfilename: = "c: MyChart.gif "，FilterName: = "gif " '將圖表1導出到驅動器C，命名為MyChart.gif。
形式
(80) MsgBox“妳好！”消息框中將顯示消息Hello
(81) Ans=MsgBox("繼續？"，vbYesNo)'點擊消息框中的“是”按鈕，Ans值為vbYes；點擊“否”按鈕，Ans值為vbNo。
如果MsgBox("繼續？，vbYesNo)& lt；& gt如果vbYes Then Exit Sub '的返回值不是“Yes”，則退出。
(82)Config = vbyesno+VB question+vbdefaultbutton 2 '使用常量組合來分配組配置變量，並將第二個按鈕設置為默認按鈕。
(83) MsgBox“這是第壹行。”& ampvbNewLine & amp“二線。”在消息框中強制換行，可以用vbCrLf代替vbNewLine。
(84) MsgBox“平均值是:“& amp格式(應用。WorksheetFunction.Average(選擇)，" #，##0.00 ")，vbInformation，"選擇計數平均值" & ampChr(13)'使用worksheet函數返回選定區域的平均值，並以指定格式顯示。
(85)用戶表單1。顯示用戶表單。
(86) loaduserform1 '加載用戶窗體，但它是隱藏的。
(87) userform1.hide '隱藏用戶表單。
(88)卸載用戶表單1或卸載我'卸載用戶表單。
(89)(圖像控制)。Picture=LoadPicture("圖像路徑")'在用戶表單中顯示圖形。
(90)用戶表單1。' Show 0或userform1.showvbmodeless '將窗體設置為無模式狀態。
(91)me . height = int(0.88 * active window . height)'窗體的高度是當前活動窗口高度的0.88。
me . width = int(0.88 * active window . width)'窗體寬度是當前活動窗口高度的0.88。
事件
(92)申請。“EnableEvents = false”禁用所有事件。
申請。EnableEvents=True '啟用所有事件。
註意:不適用於由用戶表單控件觸發的事件。
目標
(93)set excel sheet = createobject(" excel。sheet ")'創建壹個Excel工作表對象。
Excelsheet。' Application.visible = true '設置Application對象以使Excel可見。
Excelsheet。申請。單元格(1，1)。value = "data " '在表格的第壹個單元格中輸入文本。
ExcelSheet。另存為" C:\TEST。XLS " '將表格保存到C:\test.xls目錄下
ExcelSheet。應用程序。退出'關閉Excel。
' Set ExcelSheet = Nothing '釋放對象變量。
(94)'聲明並創建壹個Excel對象引用。
將xlApp調成Excel。應用
將xlBook調成Excel。練習本
將xlSheet調成Excel格式。工作表
Set xlApp = CreateObject("Excel。應用”)
設置xlBook = xlApp。工作簿.添加
設置xlSheet = xlBook。工作表(1)
(95)'創建引用並將其傳遞給Excel。應用對象。
調用MySub (CreateObject("Excel。應用”))
(96) set d = createobject(腳本。'創建壹個字典對象變量。
(97) d .添加“a”，“雅典”'添加對象變量的關鍵字和條目。
其他的
(98)申請。onkey“I”，“宏”'設置Ctrl+I為宏進程的快捷鍵。
(99)application . cutcopymode = false '退出剪切/復制模式。
(100)申請。' Volatile True '每當工作表中的任何單元格被重新計算時，函數都被強制計算。
申請。只有當函數的壹個或多個參數發生變化時，才會重新計算函數。