VBA函数-大全

只要一个下载卷就可以下载了，谢谢分享Accent属性适用于CalloutFormat对象描述如果在标注文字和标注线之间有垂直的强调线，本属性为True。Long类型，可读写。示例本示例向myDocument中添加椭圆和指向该椭圆的标注。该标注的文字没有边框，但用垂直的强调线分开标注文字和标注线。SetmyDocument=Worksheets(1)WithmyDocument.Shapes.AddShapemsoShapeOval,180,200,280,130With.AddCallout(msoCalloutTwo,420,170,170,40).TextFrame.Characters.Text=MyovalWith.Callout.Accent=True.Border=FalseEndWithEndWithEndWithAcceptAllChanges方法适用于Workbook对象描述接受指定的共享工作簿中的所有修改。句法expression.AcceptAllChangesexpression必选。该表达式返回Workbook对象。另见RejectAllChanges方法示例本示例接受活动工作簿中的所有修改。ActiveWorkbook.AcceptAllChangesAcceptLabelsInFormulas属性适用于Workbook对象描述如果可在工作表公式中使用标志，本属性为True。默认值为True。Boolean类型，可读写。另见FormulaLabel属性示例本示例对活动工作簿设置AcceptLabelsInFormulas属性，然后将第一张工作表中的单元格“B1:D1”设置为列标志。ActiveWorkbook.AcceptLabelsInFormulas=TrueWorksheets(1).Range(b1:d1).FormulaLabel=xlColumnLabelsActivate事件适用于Chart对象，Workbook对象，Worksheet对象描述激活一个工作簿、工作表、图表或嵌入式图表时产生此事件。句法PrivateSubobject_Activate()ObjectChart，Workbook或者Worksheet。说明切换两个显示同一工作簿的窗口时，将产生WindowActivate事件，但不产生工作簿的Activate事件。新建窗口时不产生本事件。另见Deactivate事件，SheetActivate事件，SheetDeactivate事件，WindowActivate事件，WindowDeactivate事件，WorkbookActivate事件，WorkbookDeactivate事件。示例本示例当激活工作表时对A1:A10区域进行排序。PrivateSubWorksheet_Activate()Range(a1:a10).SortKey1:=Range(a1),Order:=xlAscEndingEndSubActivate方法适用于Chart对象，ChartObject对象，OLEFormat对象，OLEObject对象，Pane对象，Range对象，Window对象，Workbook对象，Worksheet对象描述激活对象，如下表所示。对象说明Chart,ChartObject使该图表成为活动图表。Worksheet使该工作表成为活动工作表，等同于单击工作表选项卡。OLEObject激活对象。Pane激活窗格。如果该窗格不在活动窗口，则该窗格所属的窗口也将激活。不能激活冻结的窗格。Range激活单个单元格，该单元格必须处于当前选定区域内。可用Select方法选定单元格区域。Window将窗口提到Z-顺序的最前面，这样不会引起可能附加在工作簿上的Auto_Activate或Auto_Deactivate宏的运行（可用RunAutoMacros方法运行这些宏）。Workbook活该工作簿的第一个窗口，这样不会引起可能附加在工作簿上的Auto_Activate或Auto_Deactivate宏的运行（可用RunAutoMacros方法运行这些宏）。句法expression.Activateexpression必选。该表达式返回“适用于”列表中的对象。另见RunAutoMacros方法，Select方法示例本示例激活工作表Sheet1。Worksheets(Sheet1).Activate本示例选定工作表“Sheet1”中的单元格区域“A1:C3”，并激活单元格“B2”。Worksheets(Sheet1).ActivateRange(A1:C3).SelectRange(B2).Activate本示例激活工作簿“Book4.xls”。如果工作簿“Book4.xls”有若干窗口，本示例激活第一个，即“Book4.xls:1”。Workbooks(BOOK4.XLS).ActivateActivateMicrosoftApp方法适用于Application对象描述激活一个Microsoft应用程序。如果该应用程序已经处于运行状态，则本方法激活的是正在运行的此应用程序。如果该应用程序不处于运行状态，本方法将启动该应用程序的新实例。句法expression.ActivateMicrosoftApp(index)expression必选。该表达式返回一个Application对象。IndexLong类型，必选。指定要激活的Microsoft应用程序，可为下列XlMSApplication常量之一：xlMicrosoftWord、xlMicrosoftPowerPoint、xlMicrosoftMail、xlMicrosoftAccess、xlMicrosoftFoxPro、xlMicrosoftProject或xlMicrosoftSchedulePlus。示例本示例启动并激活Word。Application.ActivateMicrosoftAppxlMicrosoftWordActivateNext方法适用于Window对象描述激活指定窗口，并将其移到窗口z-次序的末尾。句法expression.ActivateNextexpression必选。该表达式返回一个Window对象。另见ActivatePrevious方法，DisplayNoteIndicator属性，Next属性示例本示例将活动窗口移到窗口z-次序的末尾。ActiveWindow.ActivateNextActivatePrevious方法适用于Window对象描述激活指定窗口，然后激活窗口z-次序末尾的窗口。句法expression.ActivatePreviousexpression必选。该表达式返回一个Window对象。另见ActivateNext方法，DisplayNoteIndicator属性，Next属性示例本示例激活z-次序末尾的窗口。ActiveWindow.ActivatePreviousActiveCell属性适用于Application对象，Window对象描述返回一个Range对象，该对象代表活动窗口的活动单元格（最上面的窗口），或指定窗口的活动单元格。如果该窗口显示的不是工作表，则该属性无效。只读。说明如果不指定对象识别符，本属性返回的是活动窗口中的活动单元格。注意区分活动单元格和选定区域。活动单元格是当前选定区域内的单个单元格。选定区域可能包含多个单元格，但只有一个是活动单元格。下列表达式都是返回活动单元格，并都是等价的。ActiveCellApplication.ActiveCellActiveWindow.ActiveCellApplication.ActiveWindow.ActiveCell示例本示例在消息框中显示活动单元格的值。由于活动表不是工作表而导致ActiveCell属性无效，因此本示例使用ActiveCell属性之前先激活Sheet1。Worksheets(Sheet1).ActivateMsgBoxActiveCell.Value本示例更改活动单元格的字体格式设置。Worksheets(Sheet1).ActivateWithActiveCell.Font.Bold=True.Italic=TrueEndWithActiveChart属性适用于Application对象，Window对象，Workbook对象描述返回Chart对象，该对象代表活动图表（包括嵌入式图表或图表工作表）。当选定或激活嵌入式图表时，该嵌入式图表就成为活动的。如果当前没有活动的图表，本属性返回Nothing。只读。说明如果未指定对象识别符，本属性返回活动工作簿上的活动图表。示例本示例打开活动图表的图例。ActiveChart.HasLegend=TrueActivePane属性适用于Window对象描述返回一个Pane对象，此对象代表指定窗口中的活动窗格。只读。说明此属性仅用于工作表和宏表。此属性返回Pane对象。必须使用Index属性得到活动窗格的索引。另见ActiveWindow属性示例本示例激活Book1.xls中当前窗口的下一个窗格。如果当前窗格处于被冻结状态则不能激活下一个窗格。本示例必须在除Book1.xls外的另一工作簿上运行。运行本示例之前，必须确保Book1.xls的活动工作表有两个或四个窗格。Workbooks(BOOK1.XLS).ActivateIfnotActiveWindow.FreezePanesThenWithActiveWindow14i=.ActivePane.IndexIfi=.Panes.CountThen.Panes(1).ActivateElse.Panes(i+1).ActivateEndIfEndWithEndIfActivePrinter属性适用于Application对象描述返回或者设置活动打印机的名称。String类型，可读写。示例本示例显示活动打印机的名称。MsgBoxThenameoftheactiveprinteris&_Application.ActivePrinterActiveSheet属性适用于Application对象，Window对象，Workbook对象描述返回一对象，该对象代表活动工作簿中的，或者指定的窗口或工作簿中的活动工作表（最上面的工作表）。如果没有活动的工作表，则返回Nothing。只读。说明如果未给出对象识别符，本属性返回活动工作簿中的活动工作表。如果某一工作簿在若干个窗口中出现，那么该工作簿的ActiveSheet属性在不同窗口中可能不同。另见Activate方法，Select方法示例本示例显示活动工作表的名称。MsgBoxThenameoftheactivesheetis&ActiveSheet.NameActiveWindow属性适用于Application对象描述返回一个Window对象，该对象代表活动窗口（最上面的窗口）。只读。如果没有打开的窗口则返回Nothing。另见Activate方法，Select方法示例本示例显示活动窗口的名称（Caption属性）。MsgBoxThenameoftheactivewindowis&ActiveWindow.CaptionActiveWorkbook属性适用于Application对象描述返回一个Workbook对象，该对象代表活动窗口（最上面的窗口）的工作簿。只读。如果没有打开任何窗口或者活动窗口为信息窗口(InfoWindow)或剪贴板窗口(ClipboardWindow)则返回Nothing。示例本示例显示活动工作簿的名称。MsgBoxThenameoftheactiveworkbookis&ActiveWorkbook.NameAdd方法（AddIns集合）适用于AddIns集合对象描述向加载宏(add-ins)列表中添加新的加载宏文件。返回AddIn对象。句法expression.Add(Filename,CopyFile)expr