VBA常用英語單詞

VBA常用英語單詞Sub開始End結束Range單元格，單元格區(qū)域Msgbox輸出函數(shù)Inputbox輸入函數(shù)Cells所有單元格Sheets工作表集合Worksheets工作表集合Workbooks工作簿集合Thisworkbook:代碼所在的工作簿Activeworkbook活動工作簿Ativecell活動單元格Dim定義變量關鍵字Redim重新定義變量關鍵字Integer整型，簡寫%Long長整型，簡寫&Single單精度簡寫!Double雙精度簡寫#String字符串型$Variant變體型，有的叫做萬能型，如果不定義就是這個變體型Object對象Usedrange用過的區(qū)域Union聯(lián)合Intersect交叉Resize重新定義區(qū)域大小CurrentRegion：相連的Value值Call呼叫Visible可見性Rows所有的行Columns所有列Createobject引用動態(tài)庫文件函數(shù)Dictionary字典Regexp正則ApplicationExcel里最高對象Format格式函數(shù)Timer記時器WorksheetFunction工作表函數(shù)Transpose工作表里的轉置函數(shù)Add添加?Before前面After后面Kye關鍵字Item條目對Remove清空Removeall清空所有Exists存在Count點數(shù)Array數(shù)組函數(shù)Preserve保存Ubound上界Lbound下界Erase清空數(shù)組Split分割Join連接，組合Filter篩選Index工作表引用函數(shù)Function函數(shù)Volatile易失性ColorIndex顏色索引Interior底紋Font字體Show顯示Unload關閉窗體Onkey按鈕事件Ontime事件Delete刪除Open打開SaveSs保存????????????????vba語句OptionExplicit'強制對模塊內(nèi)所有變量進行聲明OptionBase1'指定數(shù)組的第一個下標為1⑶OnErrorResumeNext'忽略錯誤繼續(xù)執(zhí)行VBA代碼,避免出現(xiàn)錯誤消息OnErrorGoTo100'當錯誤發(fā)生時跳轉到過程中的某個位置OnErrorGoTo0'恢復正常的錯誤提示=False'在程序執(zhí)行過程中使出現(xiàn)的警告框不顯示?=True'在程序執(zhí)行過程中=False'關閉屏幕刷新=True'打開屏幕刷新(10)??()'創(chuàng)建一個新的工作簿(11)??Workbooks(“”).Activate'激活名為book1的工作簿'保存工作簿'關閉當前工作簿(14)??'獲取活動工作薄中工作表數(shù)(15)????'返回活動工作薄的名稱‘返回當前工作簿名稱‘返回當前工作簿路徑和名(18)‘當前工作表中已使用的行數(shù)‘獲取工作表的行數(shù)(注：考慮兼容性)(20)??Sheets(Sheet1).Name=“Sum”'將Sheet1命名為Sum(21)??Before:=Worksheets(1)'添加一個新工作表在第一工作表前(22)??After:='將當前工作表移至工作表的最后(23)??Worksheets(Array(“sheet1”,”sheet2”)).Select'同時選擇工作表1和工作表2(24)??Sheets(“sheet1”).Delete或Sheets(1).Delete'刪除工作表1(25)??‘刪除當前工作表中所有的條件格式(26)??‘取消當前工作表所有超鏈接(27)選擇當前活動單元格所包含的范圍，上下左右無空行(28)??‘選定當前工作表的所有單元格(29)??Range(“A1”).ClearContents'清除活動工作表上單元格A1中的'清除選定區(qū)域內(nèi)容Range("A1:D4").Clear'徹底清除A1至D4單元格區(qū)域的內(nèi)容，包括格式(30)??'清除工作表中所有單元格的內(nèi)容(31)(1,0).Select'活動單元格下移一行，同理，可下移一列(32)??Range(“A1”).CopyRange(“B1")‘復制單元格A1,粘貼到單元格B1中Range(“A1:D8”).CopyRange(“F1”)'將單元格區(qū)域復制到單元格F1開始的區(qū)域中Range("A1:D8").CutRange(“F1")’剪切單元格區(qū)域A1至D8,復制到單元格F1開始的區(qū)域中Range(“A1”).Sheets(“Sheet2”).Range(“A1”)'復制包含A1的單元格區(qū)域到工作表2中以A1起始的單元格區(qū)域中注：CurrentRegion屬性等價于定位命令，由一個矩形單元格塊組成，周圍是一個或多個空行或列'活動窗口中選擇的單元格數(shù)(37)??'當前選中區(qū)域的單元格數(shù)Range(“A1”).‘獲取單元格A1背景色(39)??‘返回當前工作表的單元格數(shù)Range(“B3”).Resize(11,3)Union(Range(“A1:A9”),Range(“D1:D9”))區(qū)域連接Intersect(Range(“A1:B9”),Range(“A1:D9”)))‘返回的交叉區(qū)域(43)??‘當前選中的單元格區(qū)域中的列數(shù)‘當前選中的單元格區(qū)域中的行數(shù)??‘獲取單元格區(qū)域中使用的第一行的行號(46)??'使用工作表函數(shù)檢查A1單元格中的數(shù)據(jù)是否為數(shù)字Range(“A:A”).Find'激活單元格區(qū)域A列中最大值的單元格MsgBox“Hello!”'消息框中顯示消息HelloAns=MsgBox("Continue”,vbYesNo)'在消息框中點擊“是"按鈕，貝UAns值為vbYes;點擊“否”按鈕，則Ans值為vbNo。(50)??‘顯示用戶窗體(51)LoadUserform1‘加載一個用戶窗體,但該窗體處于隱藏狀態(tài)(52)??‘隱藏用戶窗體UnloadUserform1或UnloadMe‘卸載用戶窗體0‘將窗體設置為無模式狀態(tài)(55)??=False'禁用所有事件=True'啟用所有事件Setd=CreateObject‘創(chuàng)建一個Dictionary對象變量(58)??"a","Athens"'為對象變量添加關鍵字和條(59)??"z","macro"'設置Ctrl+I鍵為macro過程的快捷鍵(60)??=False‘退出剪切/復制模式(61)??True'無論何時工作表中任意單元格重新計算，都會強制計算該函數(shù)False'只有在該函數(shù)的一個或多個參數(shù)發(fā)生改變時，才會重新計算該函數(shù)(63)??‘清除程序運行過程中所有的錯誤‘關閉所有打開的工作簿‘返回當前工作簿的路徑(注:若工作簿未保存,則為空)‘返回工作簿的存儲值(若已保存則為False)=False‘隱藏工作簿=True‘顯示工作簿(69)??("B").Insert'在A列右側插入列，即插入B列("E").Cut??("B").Insert??70,71兩句將E列數(shù)據(jù)移至B歹U,原B列及以后的數(shù)據(jù)相應后移‘計算當前工作表(“sheet1”).Visible=xlSheetHidden‘正常隱藏工作表，同在Excel菜單中選擇“格式——工作表——隱藏”操作一樣(“sheet1”).Visible=xlSheetVeryHidden‘隱藏工作表，不能通過在Excel菜單中選擇“格式——工作表——取消隱藏”來重新顯示工作(“sheet1”).Visible=xlSheetVisible‘顯示被隱藏的工作表(76)??(1).ProtectContents‘檢查工作表是否受到保護(77)??Count:=2,Before:=(2)或(2),,2??‘在第二個工作表之前添加兩個新的工作表(78)(3).Copy‘復制一個工作表到新的工作簿(79)??(3).Copy(2)‘復制第三個工作表到第二個工作表之前(1).Activate‘當前工作簿中的第一個工作表被激活(81)??("Sheet1").Rows(1).Hidden=True‘將工作表Sheet1中的1隱藏=True‘將當前工作表中活動單元格所在的行隱藏(83)??(“A:A”).‘自動調(diào)整當前工作表A列列寬‘選中當前工作表中常量和文本單元格‘選中當前工作表中常量和文本及錯誤值單元格(86)??‘獲取A列的下一個空單元格(87)SetFirstCell=Range.Range(“A1”)‘設置某單元格區(qū)域左上角單元格(88)??Now+TimeValue("00:00:15"),"myProcedure"‘等待15秒后運行myProcedure過程(89)Application對象(90)??‘返回應用程序的用戶名(91)??‘返回調(diào)用函數(shù)的工作簿名稱(92)??="請等待……”’將文本寫到狀態(tài)欄(93)??=False‘將狀態(tài)欄重新設置成正常狀態(tài)(94)??(Array(“Sun”,”Mon”,”Tur”,”Wed”,”Thu”,”Fri”,”Sat”))‘返回一個垂直的數(shù)組(95)??‘返回活動單元格的地址(注:返回的是絕對地址)(96)??‘返回活動工作表的名稱(97)??‘返回活動窗口的標題(98)‘返回活動工作簿的名稱(99)??‘返回所選區(qū)域的地址(100)‘返回當前工作簿的名稱(101)??Range(A1:A10).Value=‘將一含有10個元素的數(shù)組轉置成垂直方向的工作表單元格區(qū)域(A1至A10)注：因為當把一維數(shù)組的內(nèi)容傳遞給某個單元格區(qū)域時，該單元格區(qū)域中的單元格必須是水平方向的，即含有多列的一行。若必須使用垂直方向的單元格區(qū)域，則必須先將數(shù)組進行轉置，成為垂直的。Cells,1).End(xlUp).Row+1'返回A列最后一行的下一行(103)??(“A1”)‘返回區(qū)域左上角的單元格(104)??("A:B").SortKey1:=Columns("B"),Key2:=Columns("A"),Header:=xlYes‘兩個關鍵字排序，相鄰兩列，B列為主關鍵字，A列為次關鍵字，升序排列(105)??(“A1”).HasFormula‘檢查單元格或單元格區(qū)域中的第一個單元格是否含有公式或‘工作表中單元格是否含有公式(106)??‘單元格所在的整列‘單元格所在的整行‘返回rng區(qū)域的地址(109)??Range(“D5:D10”).Cells(1,1)‘返回單元格區(qū)域D5:D10中左上角單元格(110)??‘活動單元格所在的行數(shù)(111)‘活動單元格所在的列數(shù)(112)??Set