VBA智慧办公7——进阶函数模块
经过前面一系列的学习，可以发现VBA的工具使用时十分方便的，但是有一个问题，倘若有大规模的内容需要修改，那岂不是需要一遍一遍自己写，Ctrl+C/V或许方便，但是数量多了呢，于是我们便考虑将其封装起来，变成函数来进行访问。
VBA的常用内置函数
VBA的内置函数是VBA编程语言的一部分，可以用于执行各种操作，包括常用的内置函数。以下是一些常用的内置函数及其用途：
-
SUM函数：用于计算两个或多个数字的总和。
SUM(range1, range2)
- AVERAGE函数：用于计算一组数字的平均值。
AVERAGE(range1, range2)-
MAX函数：用于返回一个数字的最大值。
MAX(range1, range2)-
MIN函数：用于返回一个数字的最小值。
MIN(range1, range2)- COUNT函数：用于计算一个数字出现的次数。
COUNT(range1, range2)-
COUNTIF函数：用于根据条件计算一个数字出现的次数。
COUNTIF(range1, range2, criteria)
-
AVERAGEIF函数：用于根据条件计算一个数字出现的次数，并返回平均值。
AVERAGEIF(range1, range2, criteria)-
MAXIF函数：用于根据条件计算一个数字出现的次数，并返回最大值。
MAXIF(range1, range2, criteria)-
MINIF函数：用于根据条件计算一个数字出现的次数，并返回最小值。
MINIF(range1, range2, criteria)-
LEN函数：用于返回一个数字的长度。
LEN(range1, range2)- CONCAT函数：用于将两个或多个字符串连接起来。
CONCAT(range1, range2)-
CONCAT_WS函数：用于将两个或多个字符串连接起来，并在连接后添加一个空格。
CONCAT_WS(range1, range2)-
DATEDIFF函数：用于计算两个日期之间的天数差。
DATEDIFF(date1, date2)- DAYS函数：用于返回一个日期中的天数。
DAYS(date1)-
MONTHS函数：用于返回一个日期中的月数。
MONTHS(date1)-
WEEKS函数：用于返回一个日期中的周数。
WEEKS(date1)- YEARS函数：用于返回一个日期中的年数。
YEARS(date1)这些函数是VBA编程语言的基本组成部分，可以用于执行各种操作。
自定义函数、Function过程
VBA中的自定义函数是一种在VBA中定义的函数，它可以在VBA程序中使用。自定义函数可以用于执行各种操作，包括常用的内置函数。
要使用VBA中的自定义函数，需要按照以下步骤进行操作：
- 创建一个新的VBA项目。
- 在VBA项目中创建一个新的模块。
- 在模块中创建一个新的函数。
- 在函数中编写自定义函数的代码。
- 在模块中调用自定义函数。
下面是一个简单的示例，演示如何在VBA中创建一个自定义函数：
Sub MyMacro()
Dim myFunc As Function
Set myFunc = CreateObject("Scripting.Dictionary")
myFunc("myKey") = "myValue"
myFunc("anotherKey") = "anotherValue"
End Sub在上面的示例中，我们创建了一个名为MyMacro的自定义函数，它接受两个参数：myKey和anotherKey。我们将这两个参数传递给myFunc函数，并将返回值存储在myFunc函数中。
要使用自定义函数，只需要在VBA程序中调用MyMacro函数，并将需要传递给自定义函数的参数作为参数传递给MyMacro函数即可。例如：
Sub Main()
Dim myFunc As Function
Set myFunc = MyMacro
myFunc("myKey") = "myValue"
myFunc("anotherKey") = "anotherValue"
MsgBox "myFunc('myKey') = 'myValue'"
End Sub在上面的示例中，我们调用了MyMacro函数，并将myKey和anotherKey作为参数传递给它。然后，我们使用MsgBox函数显示myFunc('myKey') = 'myValue'的消息。
需要注意的是，自定义函数的名称必须与模块中的函数名称相同，并且函数的参数类型必须与模块中的参数类型相同。此外，自定义函数的返回值类型也必须与模块中的返回值类型相同。
VBA读取txt文件
在VBA中，可以使用 VBA.ParseText 函数来读取文本文件并将其赋值到 Excel 工作表中。以下是一个简单的示例代码，可以读取名为 example.txt 的文本文件，并将其中的内容赋值到名为 Sheet1 的 Excel 工作表中的单元格中：
Sub ReadTextFile()
Dim filePath As String
Dim fileContent As String
Dim fileContentType As Variant
Dim sheet As Worksheet
filePath = "C:\example.txt" '替换为您的文本文件路径
' 打开文件
With CreateObject("Scripting.Dictionary")
.ParseText filePath, 1
End With
' 将文件内容写入工作表
sheet.Range("A1").Value = .Dictionary(1)("content")
End Sub在这个示例中，我们首先声明了一个字符串变量 filePath，它包含了我们要读取的文本文件的路径。然后，我们使用 CreateObject 函数打开了文件，并将其存储在 Dictionary 对象 .ParseText 中。Dictionary 对象是一个动态数据库，它可以用来存储各种类型的数据。在这个例子中，我们将字符串 content 存储在 Dictionary 对象的第一个键中。
接着，我们将文件内容写入了名为 Sheet1 的工作表的单元格 A1 中。您可以根据需要更改单元格的名称和位置。
请注意，这个示例仅适用于简单的文本文件，如果您要处理包含复杂数据结构的文本文件，可能需要使用更复杂的 VBA 代码。
Function定义函数
在VBA中，可以使用Function关键字来定义自定义函数。Function关键字后面可以跟随一个或多个参数，这些参数将被传递给函数。
以下是一个简单的示例，演示如何在VBA中定义一个自定义函数：
Function MyFunction(ByVal arg1 As String, ByVal arg2 As Integer) As String
MyFunction = arg1 & " " & arg2
End Function在这个示例中，我们定义了一个名为MyFunction的自定义函数，它接受两个参数：arg1和arg2。函数体中，我们将arg1和arg2拼接起来，并将结果赋值给MyFunction变量。
要使用自定义函数，只需要在VBA程序中调用MyFunction函数，并将需要传递给函数的参数作为参数传递给MyFunction函数即可。例如：
Sub Main()
Dim myFunction As MyFunction
myFunction = MyFunction("Hello", 5)
MsgBox myFunction("World") ' 输出 "Hello World"
End Sub在这个示例中，我们调用了MyFunction函数，并将字符串"Hello"和整数5作为参数传递给它。函数体中，我们将"Hello"和5拼接起来，并将结果赋值给myFunction变量。最后，我们使用MsgBox函数显示myFunction("World")的值，即字符串"Hello World"。
需要注意的是，自定义函数的名称必须与模块中的函数名称相同，并且函数的参数类型必须与模块中的参数类型相同。此外，自定义函数的返回值类型也必须与模块中的返回值类型相同。
VBA获取表格的行数和列数
可以使用以下VBA代码获取Excel表格的行数和列数：
Sub GetTableInfo()
Dim ws As Worksheet
Dim lastRow As Long
Dim lastCol As Long
'选择要获取行数和列数的工作表
Set ws = ActiveSheet '这里以默认选定的工作表为例
'获取最后一行和最后一列的行数和列数
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
lastCol = ws.Cells(1, Columns.Count).End(xlToLeft).Column
'输出行数和列数
MsgBox "行数：" & lastRow
MsgBox "列数：" & lastCol
End Sub这段代码假设您的Excel表格中有一个名为“Sheet1”的工作表，并且您希望获取它的行数和列数。您可以根据需要更改工作表的名称，并且可以更改
lastRow和lastCol的值以获取其他工作表的行数和列数。
VBA遍历表单
以下是VBA代码，可以遍历Excel中所有的Sheet表单，并输出每个表单的名称：
Sub Main()
Dim sht As Worksheet
Dim name As Variant
'遍历Excel中的所有Sheet表单
For Each sht In ThisWorkbook.Sheets
'检查是否为Sheet表单
If sht.Type <> xlSheetTypeSingle or sht.Type <> xlSheetTypeBlank Then
'输出表单名称
name = sht.Name
'在此处添加其他代码以处理表单
End If
Next sht
End Sub这个代码假设你有一个名为“Sheet1”的Sheet表单，并且你想要遍历其他所有的Sheet表单。在代码中，我们使用了一个循环来遍历每个Sheet表单，然后使用一个条件语句来检查它是否为Sheet表单，如果是，我们就输出它的名称。如果你想要处理这个表单，你可以在这里添加其他代码。
VBA同文件夹文件获取
以下是VBA代码，可以获取当前文件路径，并打开路径内的其他Excel文件：
Sub OpenFiles()
Dim filePath As String
Dim file As Object
'获取当前文件路径
filePath = Dir("C:\*.xlsx")
'循环打开每个Excel文件
Do While filePath <> ""
'创建Excel文件对象
Set file = CreateObject("Excel.Application")
'打开Excel文件
file.Visible = True
file.Documents.Open filePath & "\" & filePath
'关闭Excel文件
file.Quit
'移动光标到下一个Excel文件
filePath = Dir()
Loop
End Sub这个代码使用了Dir函数来获取当前文件夹下所有的Excel文件路径，然后循环打开每个Excel文件。在循环中，我们使用CreateObject函数创建了一个Excel应用程序对象，然后使用Open方法打开了指定的Excel文件。最后，我们使用Quit方法关闭了Excel文件，并使用Dir函数移动了光标到下一个Excel文件。
请注意，这个代码假设你的Excel文件都在同一个文件夹下。如果你的文件夹结构不同，你需要根据实际情况修改代码。
VBA发送邮件
以下是一个简单的VBA代码示例，用于向指定的收件人发送电子邮件：
Sub SendEmail()
Dim objMail As Object
Dim objTo As Object
Dim objCC As Object
Dim objBCC As Object
Dim objSubject As String
Dim objBody As String
'设置收件人和抄送人
objTo = "[email protected]"
objCC = "[email protected]"
objBCC = "[email protected]"
'设置主题和正文
objSubject = "这是一封电子邮件的主题"
objBody = "这是一封电子邮件的正文"
'创建电子邮件对象
Set objMail = CreateObject("Outlook.Application")
'设置电子邮件属性
objMail.To = objTo
objMail.CC = objCC
objMail.BCC = objBCC
objMail.Subject = objSubject
objMail.Body = objBody
'发送电子邮件
objMail.Send
'关闭电子邮件对象
Set objMail = Nothing
End Sub在这个示例中，我们首先定义了一个名为SendEmail的子过程，它包含了一个名为objMail的电子邮件对象和一些属性。然后，我们设置了收件人和抄送人，以及主题和正文。接下来，我们创建了一个电子邮件对象，并设置了它的属性。最后，我们使用SendEmail子过程发送了一封电子邮件。
请注意，这只是一个简单的示例，你可以根据需要进行修改和扩展。例如，你可以添加更多的属性和方法，以便更好地控制电子邮件的发送。
VBA控制对齐方式，字体格式，填充，对话框的值
您可以使用以下VBA代码来控制对齐方式，字体格式，填充和对话框的值：
Sub SetDialogValues()
Dim objDialog As Object
Dim objRange As Object
Dim objValue As Object
'创建对话框对象
Set objDialog = CreateObject("CDialogEx")
'创建选项框对象
Set objRange = objDialog.Create("Range")
'设置选项框的值
objRange.Value = "Hello, World!"
'设置对话框的值
objDialog.Values.Add objValue, "Value1"
objDialog.Values.Add objValue, "Value2"
objDialog.Values.Add objValue, "Value3"
'显示对话框
objDialog.Show
'关闭对话框
Set objDialog = Nothing
End Sub在这个示例中，我们创建了一个名为SetDialogValues的子过程，它包含了一个对话框对象和三个选项框对象。我们设置了选项框的值，并将它们添加到对话框的值列表中。最后，我们显示了对话框，并在单击“确定”按钮后关闭了它。
请注意，这只是一个简单的示例，你可以根据需要进行修改和扩展。例如，你可以添加更多的属性和方法，以便更好地控制对话框的行为。
对齐方式
With Selection
'水平对齐方式
.HorizontalAlignment = xlRight
'垂直对齐方式
.VerticalAlignment = xlCenter
'自动换行
.WrapText = False
'文字方向
.Orientation = 0
'缩进
.AddIndent = False
'缩进量
.IndentLevel = 0
'缩小字体填充
.ShrinkToFit = False
'文字方向
.ReadingOrder = xlContext
'合并单元格
.MergeCells = False
End With
字体格式
With Selection.Font
'字体
.Name = "华文琥珀"
'字号
.Size = 9
'删除线
.Strikethrough = False
'上标
.Superscript = False
'下标
.Subscript = False
'大纲字体
.OutlineFont = False
'阴影
.Shadow = False
'下划线
.Underline = xlUnderlineStyleNone
'字体颜色
.ColorIndex = xlAutomatic
'颜色变深或变浅
.TintAndShade = 0
'主题字体
.ThemeFont = xlThemeFontNone
End With
填充
With Selection.Interior
'图案样式
.Pattern = xlSolid
'图案颜色
.PatternColorIndex = xlAutomatic
'主体颜色
.ThemeColor = xlThemeColorDark1
'颜色变深或变浅
.TintAndShade = -4.99893185216834E-02
'填充色
.Color = 65535
'对象的淡色和底纹图案
.PatternTintAndShade = 0
End With
对话框的值
名称 值 说明
xlDialogActivate 103 “激活”对话框
xlDialogActiveCellFont 476 “活动单元格字体”对话框
xlDialogAddChartAutoformat 390 “添加图表自动套用格式”对话框
xlDialogAddinManager 321 “加载项管理器”对话框
xlDialogAlignment 43 “对齐方式”对话框
xlDialogApplyNames 133 “应用名称”对话框
xlDialogApplyStyle 212 “应用样式”对话框
xlDialogAppMove 170 “AppMove”对话框
xlDialogAppSize 171 “AppSize”对话框
xlDialogArrangeAll 12 “全部重排”对话框
xlDialogAssignToObject 213 “给对象指定宏”对话框
xlDialogAssignToTool 293 “给工具指定宏”对话框
xlDialogAttachText 80 “附加文本”对话框
xlDialogAttachToolbars 323 “附加工具栏”对话框
xlDialogAutoCorrect 485 “自动校正”对话框
xlDialogAxes 78 “坐标轴”对话框
xlDialogBorder 45 “边框”对话框
xlDialogCalculation 32 “计算”对话框
xlDialogCellProtection 46 “单元格保护”对话框
xlDialogChangeLink 166 “更改链接”对话框
xlDialogChartAddData 392 “图表添加数据”对话框
xlDialogChartLocation 527 “图表位置”对话框
xlDialogChartOptionsDataLabelMultiple 724 “图表选项多个数据标签”对话框
xlDialogChartOptionsDataLabels 505 “图表选项数据标签”对话框
xlDialogChartOptionsDataTable 506 “图表选项数据表”对话框
xlDialogChartSourceData 540 “图表源数据”对话框
xlDialogChartTrend 350 “图表趋势”对话框
xlDialogChartType 526 “图表类型”对话框
xlDialogChartWizard 288 “图表向导”对话框
xlDialogCheckboxProperties 435 “复选框属性”对话框
xlDialogClear 52 “清除”对话框
xlDialogColorPalette 161 “调色板”对话框
xlDialogColumnWidth 47 “列宽”对话框
xlDialogCombination 73 “组合图”对话框
xlDialogConditionalFormatting 583 “条件格式”对话框
xlDialogConsolidate 191 “合并计算”对话框
xlDialogCopyChart 147 “复制图表”对话框
xlDialogCopyPicture 108 “复制图片”对话框
xlDialogCreateList 796 “创建列表”对话框
xlDialogCreateNames 62 “创建名称”对话框
xlDialogCreatePublisher 217 “创建发布者”对话框
xlDialogCustomizeToolbar 276 “自定义工具栏”对话框
xlDialogCustomViews 493 “自定义视图”对话框
xlDialogDataDelete 36 “数据删除”对话框
xlDialogDataLabel 379 “数据标签”对话框
xlDialogDataLabelMultiple 723 “多个数据标签”对话框
xlDialogDataSeries 40 “数据系列”对话框
xlDialogDataValidation 525 “数据有效性”对话框
xlDialogDefineName 61 “定义名称”对话框
xlDialogDefineStyle 229 “定义样式”对话框
xlDialogDeleteFormat 111 “删除格式”对话框
xlDialogDeleteName 110 “删除名称”对话框
xlDialogDemote 203 “降级”对话框
xlDialogDisplay 27 “显示”对话框
xlDialogDocumentInspector 862 “文档检查器”对话框
xlDialogEditboxProperties 438 “编辑框属性”对话框
xlDialogEditColor 223 “编辑颜色”对话框
xlDialogEditDelete 54 “编辑删除”对话框
xlDialogEditionOptions 251 “编辑选项”对话框
xlDialogEditSeries 228 “编辑数据系列”对话框
xlDialogErrorbarX 463 “误差线 X”对话框
xlDialogErrorbarY 464 “误差线 Y”对话框
xlDialogErrorChecking 732 “错误检查”对话框
xlDialogEvaluateFormula 709 “公式求值”对话框
xlDialogExternalDataProperties 530 “外部数据属性”对话框
xlDialogExtract 35 “提取”对话框
xlDialogFileDelete 6 “文件删除”对话框
xlDialogFileSharing 481 “文件共享”对话框
xlDialogFillGroup 200 “填充组”对话框
xlDialogFillWorkgroup 301 “填充工作组”对话框
xlDialogFilter 447 “对话框筛选”对话框
xlDialogFilterAdvanced 370 “高级筛选”对话框
xlDialogFindFile 475 “查找文件”对话框
xlDialogFont 26 “字体”对话框
xlDialogFontProperties 381 “字体属性”对话框
xlDialogFormatAuto 269 “自动套用格式”对话框
xlDialogFormatChart 465 “设置图表格式”对话框
xlDialogFormatCharttype 423 “设置图表类型格式”对话框
xlDialogFormatFont 150 “设置字体格式”对话框
xlDialogFormatLegend 88 “图例格式”对话框
xlDialogFormatMain 225 “设置主要格式”对话框
xlDialogFormatMove 128 “设置移动格式”对话框
xlDialogFormatNumber 42 “设置数字格式”对话框
xlDialogFormatOverlay 226 “设置重叠格式”对话框
xlDialogFormatSize 129 “设置大小”对话框
xlDialogFormatText 89 “设置文本格式”对话框
xlDialogFormulaFind 64 “查找公式”对话框
xlDialogFormulaGoto 63 “转到公式”对话框
xlDialogFormulaReplace 130 “替换公式”对话框
xlDialogFunctionWizard 450 “函数向导”对话框
xlDialogGallery3dArea 193 “三维面积图库”对话框
xlDialogGallery3dBar 272 “三维条形图库”对话框
xlDialogGallery3dColumn 194 “三维柱形图库”对话框
xlDialogGallery3dLine 195 “三维折线图库”对话框
xlDialogGallery3dPie 196 “三维饼图库”对话框
xlDialogGallery3dSurface 273 “三维曲面图库”对话框
xlDialogGalleryArea 67 “面积图库”对话框
xlDialogGalleryBar 68 “条形图库”对话框
xlDialogGalleryColumn 69 “柱形图库”对话框
xlDialogGalleryCustom 388 “自定义库”对话框
xlDialogGalleryDoughnut 344 “圆环图库”对话框
xlDialogGalleryLine 70 “折线图库”对话框
xlDialogGalleryPie 71 “饼图库”对话框
xlDialogGalleryRadar 249 “雷达图库”对话框
xlDialogGalleryScatter 72 “散点图库”对话框
xlDialogGoalSeek 198 “单变量求解”对话框
xlDialogGridlines 76 “网格线”对话框
xlDialogImportTextFile 666 “导入文本文件”对话框
xlDialogInsert 55 “插入”对话框
xlDialogInsertHyperlink 596 “插入超链接”对话框
xlDialogInsertObject 259 “插入对象”对话框
xlDialogInsertPicture 342 “插入图片”对话框
xlDialogInsertTitle 380 “插入标题”对话框
xlDialogLabelProperties 436 “标签属性”对话框
xlDialogListboxProperties 437 “列表框属性”对话框
xlDialogMacroOptions 382 “宏选项”对话框
xlDialogMailEditMailer 470 “编辑邮件发件人”对话框
xlDialogMailLogon 339 “邮件登录”对话框
xlDialogMailNextLetter 378 “发送下一信函”对话框
xlDialogMainChart 85 “主要图”对话框
xlDialogMainChartType 185 “图表类型”对话框
xlDialogMenuEditor 322 “菜单编辑器”对话框
xlDialogMove 262 “移动”对话框
xlDialogMyPermission 834 “我的权限”对话框
xlDialogNameManager 977 “名称管理器”对话框
xlDialogNew 119 “新建”对话框
xlDialogNewName 978 “新建名称”对话框
xlDialogNewWebQuery 667 “新建 Web 查询”对话框
xlDialogNote 154 “注意”对话框
xlDialogObjectProperties 207 “对象属性”对话框
xlDialogObjectProtection 214 “对象保护”对话框
xlDialogOpen 1 “打开”对话框
xlDialogOpenLinks 2 “打开链接”对话框
xlDialogOpenMail 188 “打开邮件”对话框
xlDialogOpenText 441 “打开文本”对话框
xlDialogOptionsCalculation 318 “计算选项”对话框
xlDialogOptionsChart 325 “图表选项”对话框
xlDialogOptionsEdit 319 “编辑选项”对话框
xlDialogOptionsGeneral 356 “常规选项”对话框
xlDialogOptionsListsAdd 458 “添加列表选项”对话框
xlDialogOptionsME 647 “ME 选项”对话框
xlDialogOptionsTransition 355 “转换选项”对话框
xlDialogOptionsView 320 “视图选项”对话框
xlDialogOutline 142 “大纲”对话框
xlDialogOverlay 86 “覆盖图”对话框
xlDialogOverlayChartType 186 “覆盖图图表类型”对话框
xlDialogPageSetup 7 “页面设置”对话框
xlDialogParse 91 “分列”对话框
xlDialogPasteNames 58 “粘贴名称”对话框
xlDialogPasteSpecial 53 “选择性粘贴”对话框
xlDialogPatterns 84 “图案”对话框
xlDialogPermission 832 “权限”对话框
xlDialogPhonetic 656 “拼音”对话框
xlDialogPivotCalculatedField 570 “数据透视表计算字段”对话框
xlDialogPivotCalculatedItem 572 “数据透视表计算项”对话框
xlDialogPivotClientServerSet 689 “设置数据透视表客户机服务器”对话框
xlDialogPivotFieldGroup 433 “组合数据透视表字段”对话框
xlDialogPivotFieldProperties 313 “数据透视表字段属性”对话框
xlDialogPivotFieldUngroup 434 “取消组合数据透视表字段”对话框
xlDialogPivotShowPages 421 “数据透视表显示页”对话框
xlDialogPivotSolveOrder 568 “数据透视表求解次序”对话框
xlDialogPivotTableOptions 567 “数据透视表选项”对话框
xlDialogPivotTableWizard 312 “数据透视表向导”对话框
xlDialogPlacement 300 “位置”对话框
xlDialogPrint 8 “打印”对话框
xlDialogPrinterSetup 9 “打印机设置”对话框
xlDialogPrintPreview 222 “打印预览”对话框
xlDialogPromote 202 “升级”对话框
xlDialogProperties 474 “属性”对话框
xlDialogPropertyFields 754 “属性字段”对话框
xlDialogProtectDocument 28 “保护文档”对话框
xlDialogProtectSharing 620 “保护共享”对话框
xlDialogPublishAsWebPage 653 “发布为网页”对话框
xlDialogPushbuttonProperties 445 “按钮属性”对话框
xlDialogReplaceFont 134 “替换字体”对话框
xlDialogRoutingSlip 336 “传送名单”对话框
xlDialogRowHeight 127 “行高”对话框
xlDialogRun 17 “运行”对话框
xlDialogSaveAs 5 “另存为”对话框
xlDialogSaveCopyAs 456 “副本另存为”对话框
xlDialogSaveNewObject 208 “保存新对象”对话框
xlDialogSaveWorkbook 145 “保存工作簿”对话框
xlDialogSaveWorkspace 285 “保存工作区”对话框
xlDialogScale 87 “缩放”对话框
xlDialogScenarioAdd 307 “添加方案”对话框
xlDialogScenarioCells 305 “单元格方案”对话框
xlDialogScenarioEdit 308 “编辑方案”对话框
xlDialogScenarioMerge 473 “合并方案”对话框
xlDialogScenarioSummary 311 “方案摘要”对话框
xlDialogScrollbarProperties 420 “滚动条属性”对话框
xlDialogSearch 731 “搜索”对话框
xlDialogSelectSpecial 132 “特殊选定”对话框
xlDialogSendMail 189 “发送邮件”对话框
xlDialogSeriesAxes 460 “系列坐标轴”对话框
xlDialogSeriesOptions 557 “系列选项”对话框
xlDialogSeriesOrder 466 “系列次序”对话框
xlDialogSeriesShape 504 “系列形状”对话框
xlDialogSeriesX 461 “系列 X”对话框
xlDialogSeriesY 462 “系列 Y”对话框
xlDialogSetBackgroundPicture 509 “设置背景图片”对话框
xlDialogSetPrintTitles 23 “设置打印标题”对话框
xlDialogSetUpdateStatus 159 “设置更新状态”对话框
xlDialogShowDetail 204 “显示明细数据”对话框
xlDialogShowToolbar 220 “显示工具栏”对话框
xlDialogSize 261 “大小”对话框
xlDialogSort 39 “排序”对话框
xlDialogSortSpecial 192 “选择性排序”对话框
xlDialogSplit 137 “拆分”对话框
xlDialogStandardFont 190 “标准字体”对话框
xlDialogStandardWidth 472 “标准宽度”对话框
xlDialogStyle 44 “样式”对话框
xlDialogSubscribeTo 218 “订阅”对话框
xlDialogSubtotalCreate 398 “创建分类汇总”对话框
xlDialogSummaryInfo 474 “摘要信息”对话框
xlDialogTable 41 “表”对话框
xlDialogTabOrder 394 “Tab 键次序”对话框
xlDialogTextToColumns 422 “分列”对话框
xlDialogUnhide 94 “取消隐藏”对话框
xlDialogUpdateLink 201 “更新链接”对话框
xlDialogVbaInsertFile 328 “VBA 插入文件”对话框
xlDialogVbaMakeAddin 478 “VBA 创建加载项”对话框
xlDialogVbaProcedureDefinition 330 “VBA 过程定义”对话框
xlDialogView3d 197 “三维视图”对话框
xlDialogWebOptionsBrowsers 773 “Web 浏览器选项”对话框
xlDialogWebOptionsEncoding 686 “Web 编码选项”对话框
xlDialogWebOptionsFiles 684 “Web 文件选项”对话框
xlDialogWebOptionsFonts 687 “Web 字体选项”对话框
xlDialogWebOptionsGeneral 683 “Web 常规选项”对话框
xlDialogWebOptionsPictures 685 “Web 图片选项”对话框
xlDialogWindowMove 14 “窗口移动”对话框
xlDialogWindowSize 13 “窗口大小”对话框
xlDialogWorkbookAdd 281 “添加工作簿”对话框
xlDialogWorkbookCopy 283 “复制工作簿”对话框
xlDialogWorkbookInsert 354 “插入工作簿”对话框
xlDialogWorkbookMove 282 “移动工作簿”对话框
xlDialogWorkbookName 386 “命名工作簿”对话框
xlDialogWorkbookNew 302 “新建工作簿”对话框
xlDialogWorkbookOptions 284 “工作簿选项”对话框
xlDialogWorkbookProtect 417 “保护工作簿”对话框
xlDialogWorkbookTabSplit 415 “拆分工作簿标签”对话框
xlDialogWorkbookUnhide 384 “取消隐藏工作簿”对话框
xlDialogWorkgroup 199 “工作组”对话框
xlDialogWorkspace 95 “工作区”对话框
xlDialogZoom 256 “缩放”对话框