VBA代码规范.docVIP

VBA代码规范 一、Excel VBA变量命名规则 一般变量命名规则 Array arr arrNames Boolean b bCheck Integer int intColumnsCount Long lng lngRowsCount Single sng sngReturn Decimal dec decRate Double dbl dblResult String str strFirstName Variant var varClipboardDate Byte byt bytSign Currency cur curSalary Date dte dteBirth Object obj objDictionary 对象变量命名规则 Office.PowerPoint ppt pptApplication Office.Word wd wdApplication Office.Excel xl xlApplication Office.Access mdb mdbApplication Excel.Workbook wb Excel.Worksheet ws Excel.Range rng Excel.Chart cht Office.Commandbar cbr Office.CommandbarControl ctl UserForm frm MSForms.ListBox lst MSForms.OptionButton opt MSForms.TextBox txt RefEdit ref MSForms.CheckBox chk MSForms.ComboBox cbo MSForms.Image img MSForms.Lable lbl 其他命名规则 Module mdl Class Module cls 二、过程命名规则 1. Sub 写法规则 Sub test() Your Code End Sub Public Sub test() Your Code End Sub Private Sub test() Your Code End Sub Public Function test(iColCount As Integer, lRowCount As Long) As String Your Code End Function Public Function test(ByRef iColCount As Integer, ByVal lRowCount As Long) As String Your Code End Function 2. Dim声明写法规则 Dim iColCnt, iRowCnt Dim iColCnt%, iRowCnt Dim iColCnt As Integer, iRowCnt As Long Dim iColCnt As Integer Dim iRowCnt As Long Dim arrTemp(3) As Integer Dim arrTemp(1 To 3) As Integer Dim arrTemp(1 To 2, 1 To 1) As Integer On Error错误处理写法规则 On Error GoTo ErrorHandle Your Code On Error GoTo 0 Exit Sub ErrorHandle: MsgBox Error Err.Number vbCrLf ( Err.Description ) 清除变量写法规则 Erase vArrData Set vArrData = Nothing Set objDictionary = Nothing Set rngSourceData = Nothing With与其他循环、判断写法规范 For iRowCnt = 1 To iRowNum Your Code Next For iRowCnt = 1 To iRowNum Your Code Next iRowCnt Sub InputData() Dim iRow As Integer For iRow = 1 To 10 Cells(iRow, 1) = iRow Next End Sub Public Sub InputData() Dim iRow As Integer Dim i As I