变量名（命名规则）

共同发财 · 发表于 2008-7-2 22:40

变量名在程序运行中值发生变化的数据称为变量，变量是代表数据的一个名称，通过变量可以引用它所储存的值.变量的命名必须遵循下列规则：（1）.变量名必须以字母或汉字开头，不能以数字或其他字符开头如：A，股票价格，部门3，B4等是合法的变量名，而6BB,$AA都是非法的变量名.（2）.变量名必须由字母，数字，汉字或下划线（-）组成（3）.变量名中不能包括含句点（.），空格或者其他类型声明字符（如%，$,@,!,&)(4).变量名最不能超过255个字符（5）.变量名不能与关键词同名，如：OR,AND,IF,LOOP,ABS,PUBLIC,PRIVATE,DIM,GOTO,NEXT,WITH等（6）.在同一过程内，变量名必须是唯一的 补充3.     On Error错误处理写法规则On Error GoTo ErrorHandle'Your CodeOn Error GoTo 0Exit SubErrorHandle:MsgBox "Error " & Err.Number & vbCrLf & " (" & Err.Description & ")"4.    清除变量写法规则Erase vArrDataSet vArrData = NothingSet objDictionary = NothingSet rngSourceData = Nothing5.    With与其他循环、判断写法规范For iRowCnt = 1 To iRowNum    'Your CodeNextFor iRowCnt = 1 To iRowNum    'Your CodeNext iRowCntSub InputData()Dim iRow As IntegerFor iRow = 1 To 10    Cells(iRow, 1) = iRowNextEnd Sub

ublic Sub InputData()    Dim iRow As Integer    Dim i As Integer        With ActiveSheet        For iRow = 1 To 10            .Cells(iRow, 1) = iRow        Next iRow    End WithEnd Sub以上是转帖不要追究哟

[此贴子已经被作者于2008-7-2 22:57:26编辑过]

共同发财 · 发表于 2008-7-2 22:42

VBA代码规范一、Excel VBA变量命名规则1.    一般变量命名规则Array       arr         arrNamesBoolean     b           bCheckInteger     int         intColumnsCountLong        lng         lngRowsCountSingle      sng         sngReturnDecimal     dec         decRateDouble      dbl         dblResultString      str         strFirstNameVariant     var         varClipboardDateByte        byt         bytSignCurrency    cur         curSalaryDate        dte         dteBirthObject      obj         objDictionary1.     对象变量命名规则Office.PowerPoint           ppt         pptApplicationOffice.Word                 wd          wdApplicationOffice.Excel                xl          xlApplicationOffice.Access               mdb         mdbApplication Excel.Workbook              wbExcel.Worksheet             wsExcel.Range                 rngExcel.Chart                 cht Office.Commandbar           cbrOffice.CommandbarControl    ctl UserForm                    frmMSForms.ListBox             lstMSForms.OptionButton        optMSForms.TextBox             txtRefEdit                     refMSForms.CheckBox            chkMSForms.ComboBox            cboMSForms.Image               imgMSForms.Lable               lbl

yqdfd · 发表于 2008-7-2 22:43

占位学习!~

共同发财 · 发表于 2008-7-2 22:43

1.    其他命名规则 Module                      mdlClass Module                cls二、过程命名规则1.  Sub 写法规则Sub test()    'Your CodeEnd Sub

ublic Sub test()    'Your CodeEnd Sub

rivate Sub test()    'Your CodeEnd Sub

ublic Function test(iColCount As Integer, lRowCount As Long) As String    'Your CodeEnd Function

ublic Function test(ByRef iColCount As Integer, ByVal lRowCount As Long) As String    'Your CodeEnd Function 2.  Dim声明写法规则 Dim iColCnt, iRowCntDim iColCnt%, iRowCnt&Dim iColCnt As Integer, iRowCnt As LongDim arrTemp(1 To 2, 1 To 1) As Integer  Dim iColCnt As IntegerDim iRowCnt As Long Dim arrTemp(3) As IntegerDim arrTemp(1 To 3) As Integer

laosanjie · 发表于 2008-7-2 22:44

不错！谢谢分享！[em17][em17]

YX63 · 发表于 2008-7-2 22:45

谢谢分享

zh001 · 发表于 2008-7-2 22:46

做个记号，谢谢楼主!

随风1 · 发表于 2008-7-2 22:47

谢谢分享

wayy · 发表于 2008-7-2 22:52

收藏学习了，谢谢楼主。

Qinjabil · 发表于 2008-7-3 05:28

ths!

		自动登录	找回密码
密码			注册