VBA智慧办公7——进阶函数模块

最新推荐文章于 2023-09-05 23:14:22 发布

华东设计之美

最新推荐文章于 2023-09-05 23:14:22 发布

阅读量941

点赞数

分类专栏： VBA技术教程专栏文章标签： html 前端

本文链接：https://blog.csdn.net/yyfloveqcw/article/details/130007736

版权

VBA技术教程专栏专栏收录该内容

11 篇文章 1 订阅

订阅专栏

经过前面一系列的学习，可以发现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 = "recipient@example.com"  
    objCC = "cc@example.com"  
    objBCC = "bcc@example.com"  
      
    '设置主题和正文  
    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	“缩放”对话框

华东设计之美

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
打赏
0
评论
VBA智慧办公7——进阶函数模块

经过前面一系列的学习，可以发现VBA的工具使用时十分方便的，但是有一个问题，倘若有大规模的内容需要修改，那岂不是需要一遍一遍自己写，Ctrl+C/V或许方便，但是数量多了呢，于是我们便考虑将其封装起来，变成函数来进行访问。
复制链接

扫一扫