课编写代码常规则

11VBA代码，有必要尊守一些不成文的规则。这些规则往往没有强制性，11.111.1.111VBA代码，有必要尊守一些不成文的规则。这些规则往往没有强制性，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区域中存在大量的空白单元Sub60分的成绩Fori2To10000IFLen(Cells(i2)0ThenMsgBoxCells(i1).Address(00&没有录入成绩"IFCells(i,2)<60ThenCells(i,2).Interior.ColorIndex=3EndMsgBoxFormat(DateAAAAyyyy年mm月dd日End在《ExcelVBA在《ExcelVBA程序开发自学宝典(2版)27VBA代码的百宝箱插11.2_AAAABBBBSub磁盘信息DimAsString,AsStringFori=1To24OnErrorResumeMid("CDEFGHIJKLMNOPQRSTUVWXYZ",i,SelectCaseCreateObject("Scripting.FileSystemObject").GetDrive(&":").DriveTypeCase0:类型="无法识别"Case1:类型="移动磁盘"Case2:类型="固定磁盘"Case3:类型="网络磁盘"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键宽度”来指定这个缩进单位。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 例如需要遍历工作表中所有图形对象，那么对变量名声明为“图形计数”或者Sub图形左对齐DimAsFor1ToActiveSheet.Shapes.CountActiveSheet.Shapes(图形计数).Left=0EndDimShape_intAs ShapeInt则表示它的数据数型Integer。而两段之间用下画线“_”连接便于区分。DimShape_intAs ShapeInt则表示它的数据数型Integer。而两段之间用下画线“_”连接便于区分。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”而产生编译错误。11.611.7VBA中数千个属性与方法，几乎不可能有一个人能准确地记得所有单词。而手工录入11.7VBA中数千个属性与方法，几乎不可能有一个人能准确地记得所有单词。而手工录入VBA.如下图所示。其中“VBAAppActivateApplication“Application.：列表；而当需要录入应用程序的各种属性时，则改用“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区域升序排列With Worksheets("Sheet1").Sort.SetRangeRan