Excel VBA常用语法辞典(1).docx

《Excel VBA常用语法辞典(1).docx》由会员分享，可在线阅读，更多相关《Excel VBA常用语法辞典(1).docx（6页珍藏版）》请在第一文库网上搜索。

1、，/冗VJ亍用士定立英华Mrosoftcd-1X9刑搐人页即5公式数据事何祖根开发工JR-CX9空旗符号SnagIta窗口09MindjetMindManager英单金令出定义工耳样图9.5删除菜单选项后的工作表程序分析：在上面的代码中，首先获取当前活动菜单的引用myMenubar,接着使用FOrEachNext循环，逐个比较myMenubar菜单栏中的菜单（包含在Contro1s集合中）,找到CaPtiOn属性为“NewItems”的菜单,最后使用DeIete方法将其删除。案例172创建快捷菜单功能说明：在EXCe1中，用户可以根据需要创建个性化的快捷菜单选项。语法说明：EXCe1的快捷菜单

2、有很多，在不同的对象上单击鼠标右键将弹出不同的快捷菜单项目。若要向这些快捷菜单中添加菜单项，首先需获取对应菜单的引用，再使用以下代码添加菜单项。案例说明：本案例的主要功能是在操作工作表的时候，创建自定义的快捷菜单。编写代码：（1）本例中添加单元格快捷菜单的代码如下：SubAddHtocontro1()DinCbCaAaCCWMn1tfkHCMtro1%CbCAjCommcBnKkmtrnISetcbcs-AppIicatix.CctnarxBarsCe11).CocktiYi1ftSetCbCybC3.Add(Type：-nscontroIButtea.bfoni=ktHBpornrfi=Tn

3、MoVitbcbc.Ceikm=自定义的菜的达联.Tac-ManikmTMdVithIindSUb以上代码首先获取单元格的快捷菜单，接着使用Add方法向单元格快捷菜单中添加自定义菜单项。行标签和列标签快捷菜单的代码与此类似。（2）关闭工作簿之前，删除上步新增的菜单项，具体代码如下：1*rimtcSubTorkbook-BeforcC1osc(Cance1AsBoo1ean)O1ncbcAaCOBBAndBMComro1ForEAChcbcInApp1ica1ico.CanandBarsCc11Ifcf1ueTbcncbc.De1ete7tEdSUb运行结果：本例的主要功能是为单元格对象添加快捷

4、菜单，添加的结果如图9.6所示。图9.6添加的快捷菜单程序分析：在实际开发中，用户可以为多种对象添加快捷菜单。例如，用户可以为选择工作表的列标签事件添加快捷菜单，也可以为工作表的行标签事件添加快捷菜单。这里就不详细展开介绍了。9.2自定义EXCeI2007的功能区功能区（RibbonX）是OffiCe2007新引进的用户界面，用户对其也可以进行自行定制。但是，自定义RibbOnX不是通过VBA代码，而是XM1语言实现的。本节中，将详细讲解如何使用XM1定义功能区。案例173自定义OffiCe按钮功能说明：用户可以通过编写XM1代码来自定义EXCe12007中的OffiCe按钮中包含的选项。语法

5、说明：在本例中的OffiCe菜单按钮，多了个自定义菜单项，该菜单项中包含了三个控件，分别是按钮、切换按钮和复选框。共使用到了四种控件，分别是Inenu、button、togg1eButton和CheCkBoXo另外在使用这些控件时，还涉及了多个属性的使用，如1abe1SUPertip、imageMso和itemSize。其中关键控件的内容如下:menu控件：可以包含按钮、复选框、菜单和切换按钮等多种控件元素作为其子元素。其可以指定的属性分为两种，其一是通用属性，其二是特有属性。通用属性十分众多，例如Iabe1属性可以指定标签、SUPertiP可以指定提示文字。menu还具有一个其特有的属性即i

6、temSize,该属性可以设置norma1和Iarge两种值。默认情况下为norma1,此时其图标为小图标。当设置为Iarge时，将使用大图标显示其图标。button控件：该控件不包含任何子元素，大部分的可设置属性都为通用属性。示例中指定该控件的三个属性，1abe1、SUPertiP和imageMso属性。imageMso属性通过字符串的形式指定内置控件的图像名称。设置该属性后，按钮的图标将使用该指定图标。togg1eButton和CheCkBoX控件：这两个控件具有一定的相似性。不同的是togg1eButton控件可以由用户指定其显示的图标，而CheCkBOX控件无法指定。当用户选择了这两种

7、控件后，其图标将会切换到选中状态。togg1eButton按钮控件和button、CheckBox两控件都具有相似性，是两种控件功能的结合。编写代码：有关使用XM1文件自定义EXCe12007工作簿的具体步骤可参见本例，下面列出自定义菜单选项的XM1代码。custc11m)ns*http:,scbcns.Bicroeoft.ccoorric57,200601cu81oocwwid=*VyVnnu*II=*trIktnuvIiuportip=珈/ginagcNsOJDratrinfCanvasSca1c*itVbU11gid=*Vyhtn1*AM=wMrRutton*sortip-*MyButt

8、on*Imgc(k=*Dr(iIngbjcIpoiiMtDInvtnCxinvAufixptind*/VCbeCkBOXid-*Mychk-1abe1-*MyChoCkBox,8uperUp=%CheckBox*/ofc,cuxu运行结果：本例的主要功能是自定义OffiCe的菜单按钮。在EXCe12007中，为用户提供了新的OffiCe按钮。用户可以通过XM1来自定义OffiCe菜单按钮，如图9.7所示。同时,还可以为自定义的菜单按钮添加被选中的效果，如图9.8所示。图9.7自定义OffiCe按钮图9.8设置菜单的选中状态同时，用户还可以为菜单设定提示信息，这里就不详细说明了。程序分析：同样地

9、，用户可以通过IE查看上面的XM1代码，如图9.9所示。C.cventsSetti.G1AdaiMiitratozA直面口定义Oie。接用.”1文件9赤限qj)B看9K)工fir班助啜X2收械段t*XIJ11JC*1u-h0J3*1Qic4ficir1c1J2KfiS5t/m1Norton,堂苫ITfijtiIftG-V11bborIstartFromStchtrue-buttoidMvttn1abe1-MyButtonsjrtiMyBttC.B*cucut3a4SCttiAAdaiBiNratoxA克而且定义OffiS发你.i1文件任)尚8也)石若9枚益Ift(I)帮助如皓),；”也F泰土里

10、心，冽/&)三S1总刊Xfnins=office2061customui-CEenUid-MyMcnuIabeI-1MyMcnu1supertp1yMenuirrageMsoIJrawingGanvasScciIeitcmSe=Urge图9.9查看XM1代码案例174自定义快速访问栏功能说明：在EXCeI中，用户可以根据自己操作习惯来定义快速访问栏。将自己最常用的操作按钮添加到快速访问栏中。语法说明：对于大多数的用户而言，复制与粘贴操作是日常处理中最常用的功能。用户可以使用快捷键完成复制与粘贴操作，但是在进行特殊的复制与粘贴时，用户必须到开始选项卡的剪贴板组中找寻相应的命令。例如复制为图片、粘

11、贴公式、粘贴值、转置粘贴以及粘贴图片等。本示例将把这些功能按钮通过XM1代码将其显示在快捷访问工具栏。编写代码：有关使用XM1文件自定义EXCe12007工作簿的具体步骤可参见本例，下面列出自定义快速访问工具栏有关的XM1代码。9thtr*dCcntrbttniVbU1g*AcVbUtUmI(M)m=CopyMP1cBm,IiiAgGVjm;*PbotMb!nsert*.buttonidS。=P。夕tQASP1eturh*rontrnUe号tcc运行结果：本例的主要功能是自定义EXCeI的快速访问工具栏。在EXCeI2007界面的顶部、Office菜单按钮的右侧包含了众多可以被直接使用的快捷访问按钮。用户可以通过XM1来定制这些按钮，结果如图9.10所