vBA里常用单词范文

36年来，支月英坚守岗位，把爱意播撒在这青山绿水，让这份爱生根发芽，承载起贫瘠山村的绿色希望。Ellipticityofelbowpipeswithdiameterslessthanorequalto150mmmustbenotgreaterthan8%diameterof200mmorlessshallnotbegreaterthan6%.Wallthicknessofthepipewallthinningratemustnotexceedtheoriginal15%.Creaseroughness:diameter125mmorless,shallnotexceed3mmdiameterlessthanorequalto200mm,notmorethan4mm.7.3.9simmeringbendingproductionofsquaresteeltubeextension,tousethewholetubebending.Interfaceifnecessary,theweldingpositionshouldbelocatedinthemiddleoftheverticalarm.7.3.10installexpansionjointsshouldbedone.Ifdesignisnotrequired,pipecompensatorlengthenshouldconformtotherequirementsinthefollowingtable:squarescalelengthδxisequalto1/2.Prestretchtolerance:casing+5mm,+10mm.7.3.11pipeform,location,spacingshallmeetthedesignandspecifications.7.3.12pipingonbackorreturnpipeathigherlevelsoftheuppertoautomaticvalvetoinstalladrainvalvebelowthehorizontalparts.7.3.13supportsandhangersofchecksandthenumber1)hangerinstalledmustbecheckedbeforeinstallationofsupportsandhangerspartmodels,specificationsofspringssettingvalues,whetherthematerialsmeettherequirementsofdrawingsanddocuments;2)supportsandhangersofmaterial,sizeandaccuracyshallconformtotheprovisionsofthedesigndrawings,materialtechnicalrequirementsshouldbeconsistentwithnationalstandards,industrystandardsandtechnicalrequirementsrelatedtothealloyspectrumreviewshouldbecarriedout;3)pipesupportsandhangerspartplantproductqualitycertificateforeachvariablespringsupports,constantsupporthangers,dampers,damperfunction,thereshouldbefactorycalibratedtestvBA里常用单词Sub开始End结束Range单元格，单元格区域Msgbox输出函数Inputbox输入函数Cells所有单元格Sheets工作表集合Worksheets工作表集合Workbooks工作簿集合Thisworkbook:代码所在的工作簿Activeworkbook活动工作簿Ativecell活动单元格Dim定义变量关键字Redim重新定义变量关键字Integer整型，简写%Long长整型，简写&Single单精度简写!Double双精度简写#String字符串型$Variant变体型，有的叫做万能型，如果不定义就是这个变体型Object对象Usedrange用过的区域Union联合Intersect交叉Resize重新定义区域大小CurrentRegion：相连的Value值Call呼叫Visible可见性Rows所有的行Columns所有列Createobject引用动态库文件函数Dictionary字典Regexp正则ApplicationExcel里最高对象Format格式函数Timer记时器WorksheetFunction工作表函数Transpose工作表里的转置函数Add添加Before前面After后面Kye关键字36年来，支月英坚守岗位，把爱意播撒在这青山绿水，让这份爱生根发芽，承载起贫瘠山村的绿色希望。Ellipticityofelbowpipeswithdiameterslessthanorequalto150mmmustbenotgreaterthan8%diameterof200mmorlessshallnotbegreaterthan6%.Wallthicknessofthepipewallthinningratemustnotexceedtheoriginal15%.Creaseroughness:diameter125mmorless,shallnotexceed3mmdiameterlessthanorequalto200mm,notmorethan4mm.7.3.9simmeringbendingproductionofsquaresteeltubeextension,tousethewholetubebending.Interfaceifnecessary,theweldingpositionshouldbelocatedinthemiddleoftheverticalarm.7.3.10installexpansionjointsshouldbedone.Ifdesignisnotrequired,pipecompensatorlengthenshouldconformtotherequirementsinthefollowingtable:squarescalelengthδxisequalto1/2.Prestretchtolerance:casing+5mm,+10mm.7.3.11pipeform,location,spacingshallmeetthedesignandspecifications.7.3.12pipingonbackorreturnpipeathigherlevelsoftheuppertoautomaticvalvetoinstalladrainvalvebelowthehorizontalparts.7.3.13supportsandhangersofchecksandthenumber1)hangerinstalledmustbecheckedbeforeinstallationofsupportsandhangerspartmodels,specificationsofspringssettingvalues,whetherthematerialsmeettherequirementsofdrawingsanddocuments;2)supportsandhangersofmaterial,sizeandaccuracyshallconformtotheprovisionsofthedesigndrawings,materialtechnicalrequirementsshouldbeconsistentwithnationalstandards,industrystandardsandtechnicalrequirementsrelatedtothealloyspectrumreviewshouldbecarriedout;3)pipesupportsandhangerspartplantproductqualitycertificateforeachvariablespringsupports,constantsupporthangers,dampers,damperfunction,thereshouldbefactorycalibratedtestItem条目对Remove清空Removeall清空所有Exists存在Count点数Array数组函数Preserve保存Ubound上界Lbound下界Erase清空数组Split分割Join连接，组合Filter筛选Index工作表引用函数Function函数Volatile易失性ColorIndex颜色索引Interior底纹Font字体Show显示Unload关闭窗体Onkey按钮事件Ontime事件Delete删除Open打开SaveSs保存vba语句(1)OptionExplicit'强制对模块内所有变量进行声明(2)OptionBase1'指定数组的第一个下标为1(3)OnErrorResumeNext'忽略错误继续执行VBA代码,避免出现错误消息(4)OnErrorGoTo100'当错误发生时跳转到过程中的某个位置(5)OnErrorGoTo0'恢复正常的错误提示(6)Application.DisplayAlerts=False'在程序执行过程中使出现的警告框不显示(7)Application.DisplayAlerts=True'在程序执行过程中(8)Application.ScreenUpdating=False'关闭屏幕刷新(9)Application.ScreenUpdating=True'打开屏幕刷新(10)Workbooks.Add()'创建一个新的工作簿(11)Workbooks(“book1.xls”).Activate'激活名为book1的工作簿(12)ThisWorkbook.Save'保存工作簿(13)ThisWorkbook.close'关闭当前工作簿(14)ActiveWorkbook.Sheets.Count'获取活动工作薄中工作表数(15)ActiveWorkbook.name'返回活动工作薄的名称36年来，支月英坚守岗位，把爱意播撒在这青山绿水，让这份爱生根发芽，承载起贫瘠山村的绿色希望。Ellipticityofelbowpipeswithdiameterslessthanorequalto150mmmustbenotgreaterthan8%diameterof200mmorlessshallnotbegreaterthan6%.Wallthicknessofthepipewallthinningratemustnotexceedtheoriginal15%.Creaseroughness:diameter125mmorless,shallnotexceed3mmdiameterlessthanorequalto200mm,notmorethan4mm.7.3.9simmeringbendingproductionofsquaresteeltubeextension,tousethewholetubebending.Interfaceifnecessary,theweldingpositionshouldbelocatedinthemiddleoftheverticalarm.7.3.10installexpansionjointsshouldbedone.Ifdesignisnotrequired,pipecompensatorlengthenshouldconformtotherequirementsinthef