VBA常用英语单词_第1页
VBA常用英语单词_第2页
VBA常用英语单词_第3页
VBA常用英语单词_第4页
VBA常用英语单词_第5页
已阅读5页,还剩1页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

VBA常用英语单词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关键字Item条目对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语句OptionExplicit'强制对模块内所有变量进行声明OptionBase1'指定数组的第一个下标为1⑶OnErrorResumeNext'忽略错误继续执行VBA代码,避免出现错误消息OnErrorGoTo100'当错误发生时跳转到过程中的某个位置OnErrorGoTo0'恢复正常的错误提示=False'在程序执行过程中使出现的警告框不显示?=True'在程序执行过程中=False'关闭屏幕刷新=True'打开屏幕刷新(10)??()'创建一个新的工作簿(11)??Workbooks(“”).Activate'激活名为book1的工作簿'保存工作簿'关闭当前工作簿(14)??'获取活动工作薄中工作表数(15)????'返回活动工作薄的名称‘返回当前工作簿名称‘返回当前工作簿路径和名(18)‘当前工作表中已使用的行数‘获取工作表的行数(注:考虑兼容性)(20)??Sheets(Sheet1).Name=“Sum”'将Sheet1命名为Sum(21)??Before:=Worksheets(1)'添加一个新工作表在第一工作表前(22)??After:='将当前工作表移至工作表的最后(23)??Worksheets(Array(“sheet1”,”sheet2”)).Select'同时选择工作表1和工作表2(24)??Sheets(“sheet1”).Delete或Sheets(1).Delete'删除工作表1(25)??‘删除当前工作表中所有的条件格式(26)??‘取消当前工作表所有超链接(27)选择当前活动单元格所包含的范围,上下左右无空行(28)??‘选定当前工作表的所有单元格(29)??Range(“A1”).ClearContents'清除活动工作表上单元格A1中的'清除选定区域内容Range("A1:D4").Clear'彻底清除A1至D4单元格区域的内容,包括格式(30)??'清除工作表中所有单元格的内容(31)(1,0).Select'活动单元格下移一行,同理,可下移一列(32)??Range(“A1”).CopyRange(“B1")‘复制单元格A1,粘贴到单元格B1中Range(“A1:D8”).CopyRange(“F1”)'将单元格区域复制到单元格F1开始的区域中Range("A1:D8").CutRange(“F1")’剪切单元格区域A1至D8,复制到单元格F1开始的区域中Range(“A1”).Sheets(“Sheet2”).Range(“A1”)'复制包含A1的单元格区域到工作表2中以A1起始的单元格区域中注:CurrentRegion属性等价于定位命令,由一个矩形单元格块组成,周围是一个或多个空行或列'活动窗口中选择的单元格数(37)??'当前选中区域的单元格数Range(“A1”).‘获取单元格A1背景色(39)??‘返回当前工作表的单元格数Range(“B3”).Resize(11,3)Union(Range(“A1:A9”),Range(“D1:D9”))区域连接Intersect(Range(“A1:B9”),Range(“A1:D9”)))‘返回的交叉区域(43)??‘当前选中的单元格区域中的列数‘当前选中的单元格区域中的行数??‘获取单元格区域中使用的第一行的行号(46)??'使用工作表函数检查A1单元格中的数据是否为数字Range(“A:A”).Find'激活单元格区域A列中最大值的单元格MsgBox“Hello!”'消息框中显示消息HelloAns=MsgBox("Continue”,vbYesNo)'在消息框中点击“是"按钮,贝UAns值为vbYes;点击“否”按钮,则Ans值为vbNo。(50)??‘显示用户窗体(51)LoadUserform1‘加载一个用户窗体,但该窗体处于隐藏状态(52)??‘隐藏用户窗体UnloadUserform1或UnloadMe‘卸载用户窗体0‘将窗体设置为无模式状态(55)??=False'禁用所有事件=True'启用所有事件Setd=CreateObject‘创建一个Dictionary对象变量(58)??"a","Athens"'为对象变量添加关键字和条(59)??"z","macro"'设置Ctrl+I键为macro过程的快捷键(60)??=False‘退出剪切/复制模式(61)??True'无论何时工作表中任意单元格重新计算,都会强制计算该函数False'只有在该函数的一个或多个参数发生改变时,才会重新计算该函数(63)??‘清除程序运行过程中所有的错误‘关闭所有打开的工作簿‘返回当前工作簿的路径(注:若工作簿未保存,则为空)‘返回工作簿的存储值(若已保存则为False)=False‘隐藏工作簿=True‘显示工作簿(69)??("B").Insert'在A列右侧插入列,即插入B列("E").Cut??("B").Insert??70,71两句将E列数据移至B歹U,原B列及以后的数据相应后移‘计算当前工作表(“sheet1”).Visible=xlSheetHidden‘正常隐藏工作表,同在Excel菜单中选择“格式——工作表——隐藏”操作一样(“sheet1”).Visible=xlSheetVeryHidden‘隐藏工作表,不能通过在Excel菜单中选择“格式——工作表——取消隐藏”来重新显示工作(“sheet1”).Visible=xlSheetVisible‘显示被隐藏的工作表(76)??(1).ProtectContents‘检查工作表是否受到保护(77)??Count:=2,Before:=(2)或(2),,2??‘在第二个工作表之前添加两个新的工作表(78)(3).Copy‘复制一个工作表到新的工作簿(79)??(3).Copy(2)‘复制第三个工作表到第二个工作表之前(1).Activate‘当前工作簿中的第一个工作表被激活(81)??("Sheet1").Rows(1).Hidden=True‘将工作表Sheet1中的1隐藏=True‘将当前工作表中活动单元格所在的行隐藏(83)??(“A:A”).‘自动调整当前工作表A列列宽‘选中当前工作表中常量和文本单元格‘选中当前工作表中常量和文本及错误值单元格(86)??‘获取A列的下一个空单元格(87)SetFirstCell=Range.Range(“A1”)‘设置某单元格区域左上角单元格(88)??Now+TimeValue("00:00:15"),"myProcedure"‘等待15秒后运行myProcedure过程(89)Application对象(90)??‘返回应用程序的用户名(91)??‘返回调用函数的工作簿名称(92)??="请等待……”’将文本写到状态栏(93)??=False‘将状态栏重新设置成正常状态(94)??(Array(“Sun”,”Mon”,”Tur”,”Wed”,”Thu”,”Fri”,”Sat”))‘返回一个垂直的数组(95)??‘返回活动单元格的地址(注:返回的是绝对地址)(96)??‘返回活动工作表的名称(97)??‘返回活动窗口的标题(98)‘返回活动工作簿的名称(99)??‘返回所选区域的地址(100)‘返回当前工作簿的名称(101)??Range(A1:A10).Value=‘将一含有10个元素的数组转置成垂直方向的工作表单元格区域(A1至A10)注:因为当把一维数组的内容传递给某个单元格区域时,该单元格区域中的单元格必须是水平方向的,即含有多列的一行。若必须使用垂直方向的单元格区域,则必须先将数组进行转置,成为垂直的。Cells,1).End(xlUp).Row+1'返回A列最后一行的下一行(103)??(“A1”)‘返回区域左上角的单元格(104)??("A:B").SortKey1:=Columns("B"),Key2:=Columns("A"),Header:=xlYes‘两个关键字排序,相邻两列,B列为主关键字,A列为次关键字,升序排列(105)??(“A1”).HasFormula‘检查单元格或单元格区域中的第一个单元格是否含有公式或‘工作表中单元格是否含有公式(106)??‘单元格所在的整列‘单元格所在的整行‘返回rng区域的地址(109)??Range(“D5:D10”).Cells(1,1)‘返回单元格区域D5:D10中左上角单元格(110)??‘活动单元格所在的行数(111)‘活动单元格所在的列数(112)??Set

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论