課編寫代碼常規(guī)則

11VBA代碼，有必要尊守一些不成文的規(guī)則。這些規(guī)則往往沒有強(qiáng)制性，11.111.1.111VBA代碼，有必要尊守一些不成文的規(guī)則。這些規(guī)則往往沒有強(qiáng)制性，11.111.1.111.1.2對代碼添加注釋有三種方式：Rem和單引號（也稱撇號(1)RemRemcommentVBA在任何代碼窗口錄入以上代碼，RemRem程序功能：獲取ExcelSubMsgBoxApplication.UserNameEndSubRem法更簡單。直接在注釋前添加一個半角單引號即可。在SubUserNameRemExcel:EndSub今天MsgBoxFormat(DateDDDDyyyy年mm月dd日")MsgBoxFormat(Date,"DDDyyyy年mm月dd日")Sub今天MsgBoxFormat(Dateyyyy年mm月dd日End9.611.1.3B2:B100009.611.1.3B2:B1000060B2:B10000區(qū)域中存在大量的空白單元Sub60分的成績Fori2To10000IFLen(Cells(i2)0ThenMsgBoxCells(i1).Address(00&沒有錄入成績"IFCells(i,2)<60ThenCells(i,2).Interior.ColorIndex=3EndMsgBoxFormat(DateAAAAyyyy年mm月dd日End在《ExcelVBA在《ExcelVBA程序開發(fā)自學(xué)寶典(2版)27VBA代碼的百寶箱插11.2_AAAABBBBSub磁盤信息DimAsString,AsStringFori=1To24OnErrorResumeMid("CDEFGHIJKLMNOPQRSTUVWXYZ",i,SelectCaseCreateObject("Scripting.FileSystemObject").GetDrive(&":").DriveTypeCase0:類型="無法識別"Case1:類型="移動磁盤"Case2:類型="固定磁盤"Case3:類型="網(wǎng)絡(luò)磁盤"Case4:DVD"Case5:類型="虛擬磁盤"EndSelectIfErr.Number<>68msgmsg&CreateObject("Scripting.FileSystemObject").GetDrive(&":").DriveLetter&""&類型&"序號"&CreateObject("Scripting.FileSystemObject").GetDrive盤符&":").SerialNumber&"總空間"&CreateObject("Scripting.FileSystemObject").GetDrive盤符&":").TotalSize/1024&"剩余空間"&CreateObject("Scripting.FileSystemObject").GetDrive(盤符&":").FreeSpace/1024&Chr(10)EndIfNextiMsgBoxmsgEndDriveLetterSerialNumber表示序列MsgboxDriveLetterSerialNumber表示序列Msgbox11.3SubMsgBox"123456789"&EndSubMsgBoxEndmsg=msg&CreateObject("Scripting.FileSystemObject").GetDrive(盤符&":").DriveLetter&""&類型&"序號"&_CreateObject("Scripting.FileSystemObject").GetDrive(盤符&":").SerialNumber&" 總空間"&_CreateObject("Scripting.FileSystemObject").GetDrive(盤符&":").TotalSize/1024&" 剩余空間"&_CreateObject("Scripting.FileSystemObject").GetDrive(盤符&":").FreeSpace/1024&Chr(10)11.3.1Tab11.3.1Tab4個單位。用戶可以通過“選項”對話框“編輯器格式”中的“Tab鍵寬度”來指定這個縮進(jìn)單位。11.3.2581114315216Sub生成菜單WithApplication.CommandBars(1).Controls.Add(msoControlPopup,1,,3,.Caption我的菜單With.Controls.Add(msoControlButton,1,,,.Caption菜單一.OnAction=.Style=.FaceId=225EndWithWith.Controls.Add(msoControlButton,1,,,.Caption菜單二.OnAction=.Style=.FaceId=300EndWithEndEnd11.4One11.4OneStringDimMyStras IntegerDiminteAs DimshtAs 例如需要遍歷工作表中所有圖形對象，那么對變量名聲明為“圖形計數(shù)”或者Sub圖形左對齊DimAsFor1ToActiveSheet.Shapes.CountActiveSheet.Shapes(圖形計數(shù)).Left=0EndDimShape_intAs ShapeInt則表示它的數(shù)據(jù)數(shù)型Integer。而兩段之間用下畫線“_”連接便于區(qū)分。DimShape_intAs ShapeInt則表示它的數(shù)據(jù)數(shù)型Integer。而兩段之間用下畫線“_”連接便于區(qū)分。DimMsgBoxCells(Rows.Count,"A").End(3).RowMsgBoxCells(Rows.Count,"A").End(-4162).RowMsgBoxCells(Rows.Count,"A").End(xlUp).RowEndSubMsgBox早上好vbYesNoEndSubMsgBox早上好EndSubMsgBox早上好EndSubMsgBox早上好End11.5IF…endifVBA11.5IF…endifVBAIF…EndifSubIF…ThenIF保不會因忘記錄入“Endif”而產(chǎn)生編譯錯誤。11.611.7VBA中數(shù)千個屬性與方法，幾乎不可能有一個人能準(zhǔn)確地記得所有單詞。而手工錄入11.7VBA中數(shù)千個屬性與方法，幾乎不可能有一個人能準(zhǔn)確地記得所有單詞。而手工錄入VBA.如下圖所示。其中“VBAAppActivateApplication“Application.：列表；而當(dāng)需要錄入應(yīng)用程序的各種屬性時，則改用“Application.VBA會列出所有Application的成員列表供用戶選擇。MultiPage1的方法，錄入“Me.mu”或者“VBA.Me.或者“VBA.Me.Me.Me.11.8Sub主程序Call過程一Call過程二CallEndSub過程一MsgBox"1"EndSubSub過程二MsgBoxSub主程序MsgBoxMsgBoxMsgBox"3"EndSub而“EndwithWith11.9而“EndwithWith11.9VBASub過程和Function200511.10Excel2003Excel2003、2007FileSearchExecl2003DirExcel2003Excel2010200320102003、2007、201020072010Sub對A1A10區(qū)域升序排列With Worksheets("Sheet1").Sort.SetRangeRan