代碼常用的VBA短句帶注釋

-.z.常用的VBA短句（帶注釋）[A65536].End(*lUp).Row'A列末行向上第一個(gè)有值的行數(shù)[A1].End(*lDown).Row'A列首行向下第一個(gè)有值之行數(shù)[IV1].End(*lToLeft).Column'第一行末列向左第一列有數(shù)值之列數(shù)。[A1].End(*lToRight).Column'第一行首列向右有連續(xù)值的末列之列數(shù)Application.mandBars("Standard").Controls(2).BeginGroup=True'在常用工具欄的第二個(gè)按鈕前插入分隔符Cells.WrapTe*t=False'取消自動(dòng)換行IfLen(Target)>5Then'如果當(dāng)前單元格中的字符數(shù)超過5個(gè),執(zhí)行下一行Target.WrapTe*t=True'自動(dòng)換行EndIf[A1:B10].SpecialCells(*lCellTypeBlanks).Rows.Hidden=True'有空格即隱藏行[A2].Parent.Name'返回活動(dòng)單元格的工作表名[A2].Parent.Parent.Name'返回活動(dòng)單元格的工作簿名勾選"VBA項(xiàng)目的信任"Application.SendKeys"%(tmstv){ENTER}"'在E*cel窗口操作Application.SendKeys"%(qtmstv){ENTER}"'在VBE窗口操作Application.mandBars("命令按鈕名稱").Position=msoBarFloating'使[命令按鈕]懸浮在表格中Application.mandBars("命令按鈕名稱").Position=msoBarTop'使[命令按鈕]排列在工具欄中ActiveSheet.ProtectPassword:="wshzw"'為工作表保護(hù)加口令A(yù)ctiveSheet.UnprotectPassword:="wshzw"'解除工作表保護(hù)ActiveSheet.ProtectContents'判斷工作表是否處于保護(hù)狀態(tài)Application.DisplayAlerts=False'屏蔽確認(rèn)提示ActiveCell.CurrentRegion.Select'選擇與活動(dòng)單元格相連的區(qū)域Range("a2:a20").NumberFormatLocal="00-00"'區(qū)域的格式化ActiveSheet.Cells.SpecialCells(*lCellTypeLastCell).Row'已用區(qū)域的最末行ActiveSheet.CopyBefore:=Sheets(1)'復(fù)制活動(dòng)工作表到第一工作表之前Range("a2:a20").FormulaHidden=True'工作表處于保護(hù)狀態(tài)時(shí)隱藏部分單元格公式Application.AskToUpdateLinks=False'不詢問是否更新,并自動(dòng)更新ActiveSheet.Hyperlinks.Delete'刪除活動(dòng)工作表超ActiveWorkbook.SaveLinkValues=False'不保存活動(dòng)工作簿的外部值A(chǔ)ctiveSheet.PageSetup.CenterFooter=Range("k2").Value'打印時(shí)設(shè)置自定義頁腳ActiveSheet.PageSetup.Orientation=*lLandscape'設(shè)置為橫向打印ActiveSheet.PageSetup.Orientation=*lPortrait'設(shè)置為縱向打印Application.WindowState=*lMinimized'最小化窗口Application.WindowState=*lNormal'最大化窗口ActiveWorkbook.FullName'當(dāng)前窗口文件名與路徑Application.AltStartupPath="E:\My\MyStart"'替補(bǔ)啟動(dòng)目錄路徑Application.AutoRecover.Path'返回/設(shè)置E*cel存儲(chǔ)"自動(dòng)恢復(fù)"臨時(shí)文件的完整路徑Application.DefaultFilePath'選項(xiàng)>常規(guī)中的默認(rèn)工作目錄Application.Evaluate("=INFO(""directory"")")'默認(rèn)工作目錄Application.LibraryPath'返回庫文件夾的路徑Application.NetworkTemplatesPath'返回保存模板的網(wǎng)絡(luò)路徑Application.Path'返回應(yīng)用程序完整路徑Application.RecentFiles.Item(1).Path'返回最近使用的*個(gè)文件路徑,Item(1)=第一個(gè)文件Application.StartupPath'E*cel啟動(dòng)文件夾的路徑Application.TemplatesPath'返回模板所存儲(chǔ)的本地路徑Application.UserLibraryPath'返回用戶計(jì)算機(jī)上加載宏的安裝路徑Debug.PrintApplication.PathSeparator'路徑分隔符"\"CurDir'默認(rèn)工作目錄E*cel.Parent.DefaultFilePath'默認(rèn)工作目錄ThisWorkbook.Path'返回當(dāng)前工作薄的路徑ActiveCell.Offset(,-1).Name="hzw"'定義名稱ActiveCell.Precedents.Address'被當(dāng)前單元格所引用的區(qū)域地址ActiveCell.Resize(0,2).Select'選定當(dāng)前單元格并向右延伸二格ActiveSheet.AutoFilter.Range.Columns(1).SpecialCells(*lCellTypeVisible).Count-1'顯示自動(dòng)篩選后的行數(shù)Workbooks.Close'關(guān)閉所有工作簿Application.Quit'關(guān)閉所有工作簿Application.ScreenUpdating=False'Application.ScreenUpdating=True'凍結(jié)屏幕以加快程序運(yùn)行Application.EnableEvents=False'Application.EnableEvents=True'抑制事件連鎖執(zhí)行Application.EnableEvents=FalseActiveWorkbook.Save'抑制BeforeSave事件的發(fā)生Application.EnableEvents=True'抑制指定事件FileDateTime("E:\MyDocuments\33.*ls")或FileDateTime(ThisWorkbook.FullName)'文件被創(chuàng)建或最后修改后的日期和時(shí)間FileLen(ThisWorkbook.FullName)/1024或FileLen("E:\MyDocuments\temp\33.*ls")/1024'文件的長度(大小),單位是KBDimmm(2,10)Range("a1:b10")=mm'可以將二維數(shù)組賦值給RangeApplication.Dialogs(*lDialogSaveAs).Show'顯示保存對(duì)話框T=Application.GetOpenFilename("Te*tFiles(*.dat),*.dat")'選擇文件打開路徑'如下代碼可使工作簿打開后30秒(或閑置30秒)不輸入、不重新選擇等,自動(dòng)關(guān)閉工作簿PrivateSubWorkbook_Open()'工作簿打開事件tt'工作簿打開時(shí)啟動(dòng)tt過程EndSubPrivateSubWorkbook_SheetChange(ByValShAsObject,ByValTargetAsRange)'工作表變化事件tt'工作表中任一單元格有變化時(shí)啟動(dòng)tt過程EndSubPrivateSubWorkbook_SheetSelectionChange(ByValShAsObject,ByValTargetAsRange)'工作表選擇變化事件tt'工作表中單元格的選擇有變化時(shí)啟動(dòng)tt過程EndSubSubtt()'tt過程DimmyNowAsDate,BLAsInteger'定義myNow為日期型;定義BL為長整型myNow=Now'把當(dāng)前的時(shí)間賦給變量myNowDo'開始循環(huán)語句DoBL=Second(Now)-Second(myNow)'循環(huán)中不斷檢查變量BL的值IfBL=30ThenGoToCl'當(dāng)BL=30即跳轉(zhuǎn)到CLDoEvents'轉(zhuǎn)讓控制權(quán),以便sheets可繼續(xù)操作LoopUntilBL>30'當(dāng)BL>30即跳出循環(huán)E*itSubCl:Application.EnableEvents=False'避免引起其他事件ActiveWorkbook.CloseTrue'關(guān)閉活動(dòng)工作簿并保存Application.EnableEvents=True'可觸發(fā)其他事件EndSubRange("e4").Addment.Te*t"代頭"&Chr(10)&"容……"'添加批注Range("e4").ment.Visible=True'顯示批注把工作簿中所有工作表的指定列調(diào)整為最佳列寬:Sub調(diào)整列寬()Dimi%Fori=1ToSheets.Count'遍歷工作簿中所有的工作表Sheets(i).Columns("A:K").AutoFit'把每個(gè)工作表的[A:K]列調(diào)整為最佳列寬Ne*tiEndSubDo循環(huán)語句的幾種形式:'1.DoWhilei>1'條件為True時(shí)執(zhí)行'......'要執(zhí)行的語句Loop'2.DoUntili>1'條件為False時(shí)執(zhí)行'......'要執(zhí)行的語句Loop'3.Do'......'要執(zhí)行的語句LoopWhilei>1'條件為True時(shí)執(zhí)行'4.Do'......'要執(zhí)行的語句LoopUntili>1'條件為False時(shí)執(zhí)行'5.While...Wend語句Whilei>1'條件為True時(shí)執(zhí)行'......'要執(zhí)行的語句Wend工作表的復(fù)制與命名Subwshzw()DimiAsIntegerFori=1To5Sheets("Sheet1").CopyAfter:=Sheets(1)'Before/After復(fù)制新表在Sheets("Sheet1")前/后ActiveSheet.Name=i&"月"'為復(fù)制的新表命名Ne*tiSheets("Sheet1").Name="總表"'為Sheets("Sheet1")改名EndSubSub刪除工作表()Application.DisplayAlerts=FalseSheet1.DeleteApplication.DisplayAlerts=TrueEndSubSub添加工作表()Fori=1To5Worksheets.Add.Name=iNe*tEndSub[A1:A20].AdvancedFilter*lFilterCopy,[B1],Unique:=True'可去掉重復(fù)數(shù)據(jù)[A2:C32].ReplaceWhat:="F",Replacement:="G"'指定圍的查找與替換ActiveSheet.AutoFilterMode=False'取消自動(dòng)篩選'執(zhí)行以下語句可有效縮小工作簿的大小，執(zhí)行前請(qǐng)先看清每條語句的作用:ActiveSheet.UsedRange.Clearments'清除活動(dòng)工作表已使用圍所有批注ActiveSheet.UsedRange.ClearFormats'清除活動(dòng)工作表已使用圍所有格式ActiveSheet.UsedRange.Validation.Delete'取消活動(dòng)工作表已使用圍的數(shù)據(jù)有效性ActiveSheet.Hyperlinks.Delete'刪除活動(dòng)工作表超ActiveSheet.DrawingObjects.Delete'刪除活動(dòng)工作表已使用圍的所有對(duì)象ActiveSheet.UsedRange=ActiveSheet.UsedRange.Value'取消活動(dòng)工作表已使用圍的公式并保留值還有:Sub*()DimmyRangeAsStringmyRange=ActiveSheet.UsedRange.Address'去除活動(dòng)工作表無數(shù)據(jù)的行列EndSub'這相當(dāng)于把新的已使用區(qū)域賦值給變量，效果等同于手工刪除多余的列或行后立即保存;來一個(gè)函數(shù)的PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)'右邊單元格反向顯示活動(dòng)單元格文本IfActiveCell.Column<256ThenActiveCell.Offset(0,1)=StrReverse(ActiveCell)EndSubSubtest()DimmyRangeAsStringDebug.Print"LastRow="&Cells.SpecialCells(*lCellTypeLastCell).RowDebug.Print"LastColumn="&Cells.SpecialCells(*lCellTypeLastCell).ColumnmyRange=""EndSub如上下相鄰單元格數(shù)據(jù)相同則刪除一個(gè)SubYjue()DimmyCellAsRange,NCellAsRange'定義SetmyCell=ActiveSheet.Range("b2")'把對(duì)象ActiveSheet.Range("b2")賦給變量myCellDoWhileNotIsEmpty(myCell)'條件為True時(shí)執(zhí)行SetNCell=myCell.Offset(1,0)'把對(duì)象myCell的下一個(gè)單元格賦給變量NCellIfNCell.Value=myCell.ValueThen'如上下相鄰單元格數(shù)據(jù)相同,則望下執(zhí)行myCell.Delete'刪除myCellEndIf'結(jié)束條件語句SetmyCell=NCell'把變量NCell賦給變量myCell,等于在循環(huán)中把原myCell下移了一格LoopEndSub復(fù)制行高列寬與容:SubYjue()'過程的名稱Sheet2.Rows("2:23").Copy'復(fù)制行區(qū)域Sheet3.Select'選擇粘貼區(qū)域Range("A2").PasteSpecialPaste:=*lPasteColumnWidths'粘貼類型ActiveSheet.Paste'實(shí)施粘貼Application.CutCopyMode=False'取消復(fù)制模式EndSub如整行為空白則刪除整行:SubDelRow()DimiAsInteger,LastRowAsIntegerLastRow=ActiveSheet.Cells.SpecialCells(*lCellTypeLastCell).Row'把最后行的行號(hào)賦給變量Fori=LastRowTo1Step-1'倒循環(huán)IfRange("iv"&i).End(*lToLeft).Column=1AndRange("a"&i)=""ThenRange("a"&i).EntireRow.Delete'如整行為空白則刪除整行EndIfNe*tiEndSub'通過依次賦色給單元格的例子，展示簡單的OnErrorGoToLine1用法：SubYjue()'過程名DimiAsInteger'定義i為整型OnErrorGoToLine1'遇到錯(cuò)誤跳轉(zhuǎn)到Line1Fori=0To65'予設(shè)從0循環(huán)到65Cells(i+1,2).Interior.ColorInde*=i'依次賦色給第2列的單元格Cells(i+1,1)=i'依次給第1列的單元格標(biāo)上色索引號(hào)Ne*tiE*itSub'退出過程Line1:'遇到錯(cuò)誤跳轉(zhuǎn)到這行繼續(xù)執(zhí)行MsgBo*"默認(rèn)顏色只有"&i-1&"種。"'提示對(duì)話框EndSub'結(jié)束過程'通過顯示或取消網(wǎng)格線，展示運(yùn)算符“Not”應(yīng)用的簡單示例：DimmyLineAsBoolean'定義變量myLine為布爾型WithmandButton1'With語句結(jié)構(gòu)If.Caption="取消網(wǎng)格線"Then'如按鈕上顯示為"取消網(wǎng)格線".Caption="顯示網(wǎng)格線"'改按鈕上的字幕為"顯示網(wǎng)格線"myLine=ActiveWindow.DisplayGridlines'把活動(dòng)窗口當(dāng)前網(wǎng)格線的顯示狀態(tài)賦給變量ActiveWindow.DisplayGridlines=NotmyLine'進(jìn)行邏輯否定運(yùn)算Else.Caption="取消網(wǎng)格線"'否則按鈕上顯示為"取消網(wǎng)格線"ActiveWindow.DisplayGridlines=NotmyLine'進(jìn)行邏輯否定運(yùn)算EndIfEndWith'結(jié)束With語句結(jié)構(gòu)'有選擇地刪除指定區(qū)域的單元格，點(diǎn)擊按鈕可選擇性的刪除[A1：A20]區(qū)域含有[D1]中字樣的單元格；再點(diǎn)擊按鈕可返回原樣；如果替換了[D1]中的字樣，點(diǎn)擊按鈕后所刪除[A1：A20]區(qū)域中的單元格亦會(huì)隨著變化。WithmandButton1If.Caption="刪除單元格"Then'如按鈕顯示的字符為:"刪除單元格",.Caption="反悔刪除"'則改為:"反悔刪除"Fori=20To1Step-1'倒循環(huán)IfCells(i,1)Like"*"&Range("d1")&"*"ThenCells(i,1).DeleteShift:=*lUp'如循環(huán)中發(fā)現(xiàn)*個(gè)單元格含有[D1]中字符,則刪除該單元格EndIfNe*tiElse.Caption="刪除單元格"'否則讓按鈕顯示的字符為:"刪除單元格"Range("a1:a20")=Range("f1:f20").Value'把[F1:F20]賦給[A1:A20],為了可反復(fù)測試EndIfEndWith'限制鼠標(biāo)只能在[B2:G60]以外的區(qū)域活動(dòng)的例子：WithActiveSheet'With語句,在一個(gè)單一對(duì)象上執(zhí)行一系列的語句.Unprotect'解除沒設(shè)密碼的工作表保護(hù).Cells.Locked=False'解除活動(dòng)工作表中所有單元格的“鎖定”.Range("b2:g60").Locked=True'只鎖定[B2:G60]區(qū)域.EnableSelection=*lUnlockedCells'僅允許選定未被有效鎖定的單元格.Protect'工作表保護(hù)(沒設(shè)密碼)EndWith'With語句結(jié)束'一個(gè)復(fù)制數(shù)據(jù)后，只能粘貼數(shù)值的例子PrivateSubWorksheet_SelectionChange(ByValTAsRange)'工作表SelectionChange事件OnErrorResumeNe*t'忽略代碼運(yùn)行中的錯(cuò)誤,并越過錯(cuò)誤繼續(xù)執(zhí)行后面的語句IfT.Column=1Then'如活動(dòng)單元格為第一列時(shí)執(zhí)行下面的語句Selection.PasteSpecialPaste:=*lPasteValues'粘貼數(shù)值A(chǔ)pplication.CutCopyMode=False'立即清空剪貼板EndIf'IF結(jié)構(gòu)結(jié)束EndSub'本過程結(jié)束'如何用VBA獲得工作簿名稱"ForEachwbkInWorkbooksMsgBo*wbk.NameNe*t1.顯示活動(dòng)工作簿名稱MsgBo*"當(dāng)前活動(dòng)工作簿是"&ActiveWorkbook.Name2.保存活動(dòng)工作簿Activeworkbook.Save3.保存所有打開的工作簿關(guān)閉E*CELForEachWinApplication.WorkbooksW.SaveNe*tWApplication.Quit4.將網(wǎng)格線設(shè)置為藍(lán)色ActiveWindow.GridlineColorInde*=55.將工作表sheet1隱藏Sheet1.Visible=*lSheetVeryHidden6.將工作表Shtte1顯示Sheet1.Visible=*lSheetVisible7.單擊*單元格,該單元格所在的行以藍(lán)色背景填充,字體顏色為白色PrivateSubWorksheet_SelectionChange(ByValTargetAsE*cel.Range)IfTarget.Row>=2Then’第二行以下的區(qū)域OnErrorResumeNe*t[ChangColor_With1].FormatConditions.DeleteTarget.EntireRow.Name="ChangColor_With1"With[ChangColor_With1].FormatConditions.Delete.Add*lE*pression,,"TRUE".Item(1).Interior.ColorInde*=5.Item(1).Font.ColorInde*=2EndWithEndIfEndSub8.使窗體在啟動(dòng)的時(shí)候自動(dòng)最大化PrivateSubUserForm_Initialize()Application.WindowState=*lMa*imizedWithApplicationMe.Top=.TopMe.Left=.LeftMe.Height=.HeightMe.Width=.WidthEndWithEndSub9.不保存工作簿退出E*CELApplication.DisplayAlerts=FalseApplication.Quit10.使窗體的關(guān)閉按紐不好用PrivateSubUserForm_QueryClose(CancelAsInteger,CloseModeAsInteger)IfCloseMode=vbformcontrdmenuThenMsgBo*"請(qǐng)用關(guān)閉按鈕關(guān)閉窗口!!",64,"提示"Cancel=TrueEndIfEndSub11.使窗體在3秒后自動(dòng)關(guān)閉PrivateSubUserForm_Activate()Application.WaitNow+TimeValue("00:00:03")UserForm1.HideEndSub12.啟動(dòng)窗體的時(shí)候自動(dòng)使Label1顯示Sheet1工作表3列,8行的容PrivateSubUserForm_Activate()Label1.Caption=Sheets("sheet1").Cells(3,8)EndSub13.讓按紐mandButton1在窗體上以不可用狀態(tài)顯示mandButton1.Enabled=False14.讓按紐mandbutton1在窗體上以隱藏方式存在mandButton10.Visible=False15.點(diǎn)擊mandbutton1按紐進(jìn)入”工資”工作表Sheets("工資").Select16.在Te*tbo*1中輸入數(shù)據(jù),窗體可顯示出”工資”工作表中與輸入容關(guān)聯(lián)的項(xiàng)PrivateSubTe*tBo*1_Change()For*=1ToApplication.CountA(Sheets("工資").Range("a:a"))IfSheets("工資").Cells(*,1)=Te*tBo*1.Te*tThen’在工資表第一列查找與Te*tbo*1輸入相符的項(xiàng)Label2.Caption=Sheets("工資").Cells(*,2)’在Label2中顯示Te*tbo*1數(shù)據(jù)所在的第二列的數(shù)據(jù)Label7.Caption=Sheets("工資").Cells(*,3)’在Label2中顯示Te*tbo*1數(shù)據(jù)所在的第三列的數(shù)據(jù)EndIfNe*tEndSub17.使E*CEL啟動(dòng)的時(shí)候自動(dòng)最小化/最大化PrivateSubWorkbook_Open()Application.WindowState=*lMinimized’最小化Application.WindowState=*lMa*imized’最大化EndSub18.在Label25以數(shù)字的形式顯示Te*tBo*12×Label14的結(jié)果Label25.Caption=Val(Te*tBo*12.Te*t)*Val(Label14.Caption)19.單選按紐名與Sheet6工作表名相同OptionButton6.Caption=Sheet6.Name20.”登陸”窗體的顯示,隱藏登陸.Show’顯示登陸.Hide’隱藏21.使窗體的標(biāo)題欄不顯示(1)插入類模塊”CFormChanger”代碼如下:PrivateDeclareFunctionFindWindowLib"user32"Alias"FindWindowA"(ByVallpClassNameAsString,ByVallpWindowNameAsString)AsLongPrivateDeclareFunctionGetWindowLongLib"user32"Alias"GetWindowLongA"(ByValhWndAsLong,ByValnInde*AsLong)AsLongPrivateDeclareFunctionSetWindowLongLib"user32"Alias"SetWindowLongA"(ByValhWndAsLong,ByValnInde*AsLong,ByValdwNewLongAsLong)AsLongPrivateDeclareFunctionDrawMenuBarLib"user32"(ByValhWndAsLong)AsLongPrivateConstGWL_STYLEAsLong=(-16)PrivateConstWS_CAPTIONAsLong=&HC00000DimhWndFormAsLong……………………………..PublicPropertySetForm(oFormAsObject)'29IfVal(Application.Version)<9ThenhWndForm=FindWindow("Thunder*Frame",oForm.Caption)ElsehWndForm=FindWindow("ThunderDFrame",oForm.Caption)EndIfSetFormStyleEn