服务人文书店Excel VBA完全自学手册/宋翔
开&&&&&&本：16开页&&&&&&数：361页字&&&&&&数：I&&S&&B&&N：4售&&&&&&价：46.82元
原书售价：59.00元品&&&&&&相：运&&&&&&费：北京东城
至挂号印刷品：6.00元上书时间：购买数量：（库存40件）
微信购买商品分类：关 键 字：详细描述："本店图书库存一般在10本内，请您尽量在订单确认当日付款！所有图书均为正品行货全新，与您亲临地面商店选购的商品享有同样的品质保证！基本信息书名:Excel&VBA完全自学手册原价：59.00元作者：宋翔出版社：化学工业出版社出版日期：ISBN：4字数：页码：361版次：1装帧：平装开本：16开商品标识：jd编辑推荐n《Excel&VBA完全自学手册》适合希望学习与掌握Excel&VBA程序开发的任何用户，主要适合初、中级水平的用户，对高级开发人员也有一定的参考价值。另外，《Excel&VBA完全自学手册》还可作为社会相关专业的培训教材。内容提要《Excel&VBA完全自学手册》是一本详细介绍Excel&VBA程序开发的书籍，全书自始至终以Excel&VBA中最实用且被大多数用户频繁使用的功能为核心内容，详细介绍了使用Excel&VBA进行Excel二次开发的技术与方法。全书一共包括19章和4个附录，对Excel&VBA编程基础、Excel应用程序、工作簿、工作表、单元格区域、图表、数据透视表、命令栏、RibbonX功能区、用户窗体、FSO文件系统、Office组件交互、注册表、加载宏等内容进行了详细的讲解以及列举了大量的实际应用。随书光盘中包含《Excel&VBA完全自学手册》案例源文件、Excel实用操作多媒体视频教程、Windows7实用操作多媒体视频教程、Excel案例模板200例、自定义函数加载项的文件。另外，本书最后的4个附录分别是VBA函数速查、VBA语句速查，VBA错误代码速查以及Excel&VBA常用对象速查，以便在编写代码的过程中遇到问题可以随时查阅。目录第1章&Excel&VBA编程概述1.1&Excel&VBA简介1.1.1&Excel&VBA的发展历程1.1.2&为什么要使用Excel&VBA1.1.3&Excel&VBA提供了哪些功能1.2&电子表格应用程序开发流程1.2.1&优秀电子表格应用程序的标准1.2.2&确定用户类型1.2.3&确定用户需求1.2.4&构思用户界面1.2.5&编写代码1.2.6&对应用程序进行测试1.2.7&修复任何可能的错误1.2.8&发布应用程序1.3&Excel&VBA文件格式与安全性1.3.1&Excel&文件格式的改变1.3.2&禁止运行VBA代码1.3.3&防止VBA代码被意外修改1.4&录制宏1.4.1&【开发工具】选项卡1.4.2&录制宏以前需要做的事1.4.3&录制宏1.4.4&运行宏1.4.5&修改宏1.5&使用VBE窗口1.5.1&打开VBE窗口1.5.2&工程资源管理器1.5.3&属性窗口1.5.4&代码窗口1.5.5&管理模块1.6&数据类型、变量与常量1.6.1&数据类型1.6.2&变量声明1.6.3&变量的可用范围和有效时间1.6.4&常量1.6.5&命名约定1.7&Sub过程1.7.1&声明Sub过程1.7.2&Sub过程的使用范围1.7.3&包含参数的Sub过程1.7.4&在VBA代码中调用Sub过程1.7.5&Sub过程的递归1.8&Function过程1.8.1&Sub过程与Function过程的区别1.8.2&声明Function过程1.8.3&调用Function过程1.9&判断和循环结构1.9.1&判断结构之If&Then1.9.2&判断结构之Select&Case1.9.3&循环结构之For&Next1.9.4&循环结构之Do&Loop1.10&VBA内置函数1.11&数组1.11.1&数组的类型1.11.2&声明数组1.11.3&为数组赋值1.11.4&动态数组1.12&错误处理1.12.1&错误类型1.12.2&调试代码1.12.3&错误的常见处理方式1.12.4&利用错误编写高效的代码1.13&VBA代码编写规则与提速技巧1.13.1&使用缩进格式突显代码层次结构1.13.2&为长代码换行1.13.3&为代码添加注释1.13.4&强制声明变量1.13.5&关闭屏幕刷新1.13.6&使用With语句使程序变得简洁1.13.7&将重复使用的属性值预先赋值给变量1.13.8&利用数组代替单元格区域进行读、写操作第2章&使用对象编程2.1&对象与集合2.1.1&类与对象2.1.2&引用集合中的对象2.1.3&Excel对象模型2.1.4&父对象与子对象2.1.5&使用【对象浏览器】2.1.6&通过录制宏+F1键学习更多对象2.2&属性2.2.1&引用对象的属性2.2.2&为属性赋值2.2.3&某些属性可返回新的对象2.3&方法2.3.1&方法的参数2.3.2&使用命名参数2.3.3&某些方法可返回新的对象2.4&事件2.4.1&事件分类2.4.2&事件过程的一个简单示例2.5&对象编程中的3个有用技巧2.5.1&使用对象变量简化对象引用2.5.2&使用With结构简化对象引用2.5.3&使用For&Each结构遍历集合中的对象第3章&使用Excel应用程序3.1&全局属性3.2&定制代码运行时的环境3.2.1&控制状态栏信息的显示3.2.2&控制警告提示的显示方式3.2.3&控制屏幕刷新3.3&OnTime——安排定时任务3.4&OnKey——为操作指定快捷键3.5&在VBA中使用工作表函数第4章&使用工作簿4.1&Workbooks集合和Workbook对象4.1.1&Workbooks集合的常用属性和方法4.1.2&Workbook对象的常用属性和方法4.1.3&This&Work&book和Active&Workbook4.2&Workbooks和Workbook应用示例4.2.1&新建指定数量的多个工作簿4.2.2&判断工作簿是否存在4.2.3&批量打开多个工作簿4.2.4&保存并关闭所有工作簿4.2.5&覆盖现有工作簿4.2.6&关闭多余的工作簿窗口4.2.7&清除所有打开工作簿中的密码4.2.8&拆分大工作簿第5章&使用工作表5.1&Worksheets集合和Worksheet对象5.1.1&Worksheets集合的常用属性和方法5.1.2&Worksheet对象的常用属性和方法5.1.3&Worksheets集合与Sheets集合5.2&Worksheets和Worksheet应用示例5.2.1&批量重命名工作表5.2.2&隐藏除【主表】以外的其他工作表5.2.3&删除指定工作表以外的其他工作表5.2.4&创建工作表目录5.2.5&同步工作表第6章&使用单元格区域6.1&引用单元格或单元格区域6.1.1&引用一个单元格（Range和Cells属性）6.1.2&引用连续或不连续的区域（Range属性）6.1.3&引用行（Rows和Entire&Row属性）6.1.4&引用列（Columns和Entire&Column属性）6.1.5&[A1]引用方式6.1.6&通过偏移引用新的单元格或区域（Offset属性）6.1.7&调整引用的范围（Resize属性）6.1.8&引用多个不连续的区域（Union方法）6.1.9&引用多个区域的重叠部分（Intersect方法）6.1.10&引用当前区域（Current&Region属性）6.1.11&引用工作表中的数据区域（Used&Range属性）6.1.12&定位区域边界（End属性）6.1.13&定位指定类型的数据（Special&Cells方法）6.2&在区域中读写数据6.2.1&常规方法6.2.2&使用数组6.2.3&选择性粘贴（Paste&Special方法）6.3&区域应用示例6.3.1&复制数据6.3.2&删除工作表中的空行6.3.3&高亮显示活动单元格所在的行和列6.3.4&选择工作表中的所有合并单元格6.3.5&禁止用户选择指定区域6.3.6&删除区域中的重复值6.3.7&取消工作表中的超链接6.4&使用名称6.4.1&命名单元格区域6.4.2&在名称中存储值6.4.3&在名称中存储公式6.4.4&在名称中存储数组6.4.5&Name对象和Name属性6.4.6&在VBA代码中使用名称6.4.7&Excel内部名称6.4.8&隐藏名称6.4.9&删除名称6.5&排序和筛选数据6.5.1&排序数据6.5.2&自动筛选6.5.3&高级筛选第7章&使用自定义函数7.1&一个自定义函数示例7.1.1&编写自定义函数7.1.2&在工作表公式中使用自定义函数7.1.3&在VBA过程中使用自定义函数7.1.4&分析自定义函数的工作原理7.1.5&自定义函数不能做什么7.2&函数开发基础7.2.1&创建无参数的函数7.2.2&创建包含一个参数的函数7.2.3&创建包含两个参数的函数7.2.4&创建包含可选参数的函数7.2.5&创建使用单元格区域作为参数的函数7.2.6&创建包含不定数量的参数的函数7.2.7&创建返回数组的函数7.2.8&创建返回错误值的函数7.3&更多自定义函数示例7.3.1&获取固定不变的日期和时间7.3.2&获取当前工作簿的路径和名称7.3.3&确定单元格数据的类型7.3.4&返回区域中第一个非空单元格的值7.3.5&从文本中提取数字7.3.6&在区域内搜索特定的文本7.3.7&统计非重复值的数量7.3.8&反转单元格内容的顺序7.3.9&多功能函数7.4&为函数添加帮助信息与封装函数7.4.1&为自定义函数添加帮助信息7.4.2&使用加载宏封装自定义函数第8章&使用图表8.1&嵌入图表和图表工作表8.1.1&嵌入图表8.1.2&图表工作表8.1.3&图表的结构8.1.4&图表对象模型8.1.5&在嵌入图表和图表工作表之间转换8.2&创建与设置图表8.2.1&创建嵌入图表8.2.2&创建图表工作表8.2.3&更改图表类型8.2.4&使用预置的图表布局8.2.5&自定义图表布局8.2.6&使用预置的图表样式8.2.7&自定义设置图表格式8.2.8&编辑图表的数据系列8.2.9&确定图表使用的单元格区域8.2.10&为图表添加数据标签8.2.11&统一所有嵌入图表的大小8.2.12&将所有嵌入图表转换为图表工作表8.2.13&批量删除图表8.3&将图表导出为图片8.3.1&导出单个图表8.3.2&导出所有图表第9章&使用数据透视表9.1&数据透视表基础9.1.1&创建一个数据透视表9.1.2&数据透视表的结构9.1.3&数据透视表常用术语9.1.4&数据透视表缓存9.2&数据透视表对象模型9.2.1&Pivot&Cache/Pivot&Caches对象9.2.2&Pivot&Table/Pivot&Tables对象9.2.3&Pivot&Field/Pivot&Fields对象9.2.4&PivotItem/PivotItems对象9.3&使用VBA创建数据透视表9.3.1&创建基本的数据透视表9.3.2&对字段布局9.3.3&刷新数据透视表9.3.4&编辑字段9.3.5&设置数据透视表的布局方式9.3.6&控制总计的显示与隐藏9.3.7&修改数字格式9.3.8&设置字段的汇总方式9.3.9&设置数据的显示方式第10章&定制工具栏10.1&命令栏简介10.1.1&命令栏的类型10.1.2&罗列Excel中的内置命令栏10.1.3&罗列所有工具栏及其上的控件10.1.4&罗列Excel内置控件的FaceId及其图像10.2&操作工具栏10.2.1&引用指定的工具栏10.2.2&引用工具栏中的控件10.2.3&在现有工具栏中添加控件10.2.4&设置控件的属性10.2.5&从工具栏中删除控件10.2.6&禁止修改工具栏10.2.7&隐藏工具栏10.2.8&删除工具栏10.3&创建新的工具栏第11章&定制菜单和快捷菜单11.1&在现有菜单栏中添加菜单11.1.1&罗列所有菜单栏及其上的控件11.1.2&引用指定的菜单栏11.1.3&引用菜单栏中的菜单11.1.4&在现有菜单栏中添加菜单11.1.5&在菜单中添加菜单项11.1.6&使用Parameter存储额外信息11.1.7&禁用菜单或菜单项11.1.8&隐藏菜单或菜单项11.1.9&重置菜单11.1.10&删除菜单或菜单项11.2&创建新的菜单栏11.3&定制快捷菜单11.3.1&罗列所有快捷菜单及其上的控件11.3.2&在快捷菜单中添加新的菜单项11.3.3&删除快捷菜单中的菜单项11.3.4&禁用快捷菜单和菜单项11.3.5&禁用所有快捷菜单11.3.6&创建可响应上下文的快捷菜单第12章&定制RibbonX功能区12.1&功能区使用基础12.1.1&功能区的结构12.1.2&自定义功能区12.2&使用VBA操作功能区12.2.1&使用VBA可以对功能区进行的操作12.2.2&访问功能区中的控件12.2.3&激活功能区中的选项卡12.3&使用XML定制功能区12.3.1&定制功能区的整体流程12.3.2&Excel文件结构12.3.3&编写用于实现功能区中控件功能的VBA过程12.3.4&编写定制功能区的RibbonX代码12.3.5&将包含VBA代码的工作簿更改为压缩文件12.3.6&在压缩文件内创建customUI文件夹12.3.7&将customUI.xml文件移入customUI文件夹中12.3.8&修改.rels文件以便建立关联12.3.9&测试自定义功能区12.3.10&定制过程中可能遇到的问题12.3.11&使用Office&2007&Custom&UI&Editor工具第13章&使用Excel对话框13.1&MsgBox和InputBox函数13.1.1&使用MsgBox函数返回信息13.1.2&使用InputBox函数接收信息13.2&InputBox方法13.2.1&InputBox方法与InputBox函数的区别13.2.2&使用InputBox方法接收指定类型的内容13.2.3&程序防错13.3&Excel的打开和另存对话框13.3.1&GetOpenFilename方法13.3.2&GetSaveAsFilename方法13.4&FileDialog对象13.4.1&FileDialog对象的属性和方法13.4.2&打开不同类型的对话框13.4.3&指定显示的文件类型13.4.4&在对话框中选择一个文件13.4.5&在对话框中选择多个文件13.4.6&执行所选择的文件13.5&Excel内置对话框13.5.1&Dialogs集合13.5.2&执行功能区命令第14章&创建用户窗体14.1&用户窗体简介14.2&用户窗体的基本操作14.2.1&显示和关闭用户窗体14.2.2&模式与无模式用户窗体14.2.3&禁用用户窗体中的关闭按钮14.3&在用户窗体中添加控件14.3.1&表单控件和ActiveX控件14.3.2&用户窗体中的可用控件14.3.3&在用户窗体中添加控件14.3.4&调整控件的位置14.3.5&设置控件的大小14.3.6&设置控件的共同属性14.3.7&设置控件的特有属性14.3.8&设置控件的Tab键顺序14.3.9&为控件设置加速键14.4&编写窗体与控件的事件代码14.4.1&引用用户窗体中的控件14.4.2&用户窗体中的控件集合14.4.3&用户窗体事件14.4.4&用户窗体控件的事件14.5&用户窗体示例14.5.1&创建欢迎界面14.5.2&创建登录窗口14.5.3&创建信息录入窗口14.5.4&创建一个颜色选择器14.5.5&创建程序设置向导14.5.6&使用一个事件过程处理多个控件第15章&利用事件编写自动交互的代码15.1&编写事件代码前需要了解的内容15.1.1&事件发生顺序15.1.2&输入事件代码的方法15.1.3&使用参数的事件代码15.1.4&开启与关闭事件15.2&工作簿事件15.2.1&工作簿包含的事件15.2.2&Open事件15.2.3&Activate事件15.2.4&Deactivate事件15.2.5&BeforeClose事件15.2.6&BeforeSave事件15.2.7&BeforePrint事件15.2.8&SheetActivate事件15.2.9&SheetDeactivate事件15.2.10&NewSheet事件15.2.11&SheetChange事件15.2.12&SheetSelectionChange事件15.2.13&SheetBeforeRightClick事件15.2.14&SheetBeforeDoubleClick事件15.3&工作表事件15.3.1&工作表包含的事件15.3.2&Activate事件15.3.3&Deactivate事件15.3.4&Change事件15.3.5&SelectionChange事件15.3.6&BeforeRightClick事件15.3.7&BeforeDoubleClick事件15.4&图表工作表事件15.5&应用程序级事件与嵌入图表事件15.5.1&类模块简介15.5.2&捕获应用程序级事件15.5.3&捕获嵌入图表事件15.6&事件应用示例15.6.1&新建工作簿时自动创建指定数量和名称的工作表15.6.2&关闭工作簿之前删除所有空白的工作表15.6.3&在状态栏中显示选区地址15.6.4&禁止修改工作表中的标题行第16章&处理文件16.1&VBA内置语句和FSO对象模型16.1.1&用于处理文件和文件夹的VBA语句16.1.2&FSO对象模型16.1.3&使用前创建对FileSystemObject对象的引用16.2&获取磁盘和文件信息16.2.1&获取磁盘信息16.2.2&获取文件夹信息16.2.3&获取文件夹中的所有子文件夹的名称16.2.4&获取指定文件夹下所有文件的名称16.2.5&判断某个文件是否存在16.2.6&判断某个路径是否存在16.3&操作文件和文件夹16.3.1&复制文件16.3.2&重命名文件16.3.3&删除文件16.3.4&创建文件夹16.3.5&删除文件夹16.4&处理文本文件16.4.1&打开文本文件16.4.2&关闭文本文件16.4.3&写入文本文件16.4.4&读取文本文件16.4.5&使用TextStream对象处理文本文件第17章&与其他应用程序交互17.1&自动化与前、后期绑定17.1.1&自动化的基本概念17.1.2&前期绑定17.1.3&后期绑定17.1.4&引用一个已存在的应用程序实例17.2&与Office应用程序交互17.2.1&与Word交互17.2.2&与PowerPoint交互17.2.3&与Access交互17.3&在Excel中启动和激活其他应用程序17.3.1&启动其他应用程序17.3.2&激活其他应用程序第18章&注册表18.1&注册表简介18.1.1&为什么使用注册表18.1.2&进入注册表的方法18.1.3&注册表的结构18.1.4&注册表包含的数据类型18.1.5&注册表的备份与恢复18.2&使用VBA内置函数和语句操作注册表18.2.1&SaveSetting语句18.2.2&GetSetting函数18.2.3&GetAllSettings函数18.2.4&DeleteSetting语句18.2.5&让网格线设置应用于工作簿的所有工作表18.2.6&记忆用户选择的打开文件的默认位置18.3&使用WSH的WshShell对象操作注册表18.3.1&RegWrite方法18.3.2&RegRead方法18.3.3&RegDelete方法18.3.4&限制Excel工作簿的使用次数第19章&加载宏19.1&加载宏简介19.1.1&为什么使用加载宏19.1.2&对比加载宏与普通工作簿19.2&创建加载宏19.3&安装与管理加载宏19.3.1&安装加载宏19.3.2&修改加载宏19.3.3&卸载加载宏19.3.4&删除加载宏19.3.5&使用VBA操作加载宏附录1&VBA函数速查附录2&VBA语句速查附录3&VBA错误代码速查附录4&Excel&VBA常用对象速查作者介绍暂无文摘暂无媒体推荐暂无"
您可能感兴趣的商品38.00元59.40元36.00元35.00元当日付款，过期无货！可开发票，税点 百分之560.00元55.00元65.00元25.00元28.81元17.38元28.27元28.00元18.46元26.11元
Copyright(C)
孔夫子旧书网
京ICP证041501号
海淀分局备案编号
成功加入购物车来自：恐龙书社您可以VBA自定义函数,从数组中删除某一行或某一列
&从arr中删除某一行或某一列(不能低于1行或1列)
'删除一个数组中的某一行或某一列数据Function&Del_LineOrCol(arr&As&Variant,&Optional&delLine&As&Long,&Optional&delCol&As&Long)
&&&&Dim&Line&As&Long
&&&&Dim&lstLine&As&Long
&&&&Dim&COl&As&Long
&&&&Dim&lstCol&As&Long
&&&&Dim&arrNew()&As&Variant
&&&&Dim&Tmp&&As&Boolean
&&&&lstLine&=&UBound(arr,&1)
&&&&lstCol&=&UBound(arr,&2)
&&&&'对行进行处理
&&&&If&delLine&&&0&Then
&&&&&&&&ReDim&arrNew(1&To&lstLine&-&1,&1&To&lstCol)
&&&&&&&&For&Line&=&1&To&lstLine
&&&&&&&&&&&&If&Line&=&delLine&Then
&&&&&&&&&&&&&&&&Tmp&=&True
&&&&&&&&&&&&Else
&&&&&&&&&&&&&&&&For&COl&=&1&To&lstCol
&&&&&&&&&&&&&&&&&&&&arrNew(Line&+&Tmp,&COl)&=&arr(Line,&COl)
&&&&&&&&&&&&&&&&Next&COl
&&&&&&&&&&&&End&If
&&&&&&&&Next&Line
&&&&&&&&Del_LineOrCol&=&arrNew
&&&&&&&&Exit&Function
&&&&End&If
&&&&'对列进行处理
&&&&If&delCol&&&0&Then
&&&&&&&&ReDim&arrNew(1&To&lstLine,&1&To&lstCol&-&1)
&&&&&&&&For&COl&=&1&To&lstCol
&&&&&&&&&&&&If&COl&=&delCol&Then
&&&&&&&&&&&&&&&&Tmp&=&True
&&&&&&&&&&&&Else
&&&&&&&&&&&&&&&&For&Line&=&1&To&lstLine
&&&&&&&&&&&&&&&&&&&&arrNew(Line,&COl&+&Tmp)&=&arr(Line,&COl)
&&&&&&&&&&&&&&&&Next&Line
&&&&&&&&&&&&End&If
&&&&&&&&Next&COl
&&&&&&&&Del_LineOrCol&=&arrNew
&&&&End&If
End&Function
投票已截止
登录之后投票，你也可以出现在此
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。VBA数组参数的传递和返回
我的图书馆
VBA数组参数的传递和返回
为了帮助网友解决“VBA 数组参数的传递和返回”相关的问题，中国学网通过互联网对“VBA
数组参数的传递和返回”相关的解决方案进行了整理,用户详细问题包括:&▲一个子程序：Sub PicInComment(Optional ByVal
PicReserve As Integer = 1, Optional ByVal WidthEdge As Integer =
300)为什么调用并传递参数的时候必须用PicInComment 1, 250，而不能用PicInComment(1,
250)呢？答：用法有三种：1、赋值给变量就要带括号。比如：a = PicInComment(1, 250)2、call
PicInComment(1, 250)3、PicInComment 1, 250 ▲函数定义：Function SearchAllFile() As
String()&&& Dim arr(1 To 100) As String&&& '一些处理&&& SearchAllFile =
arr '返回数组End Function函数调用：Private Sub btnRun_Click()&&& Dim
ClArray(1 To 100) As String&&& ClArray = ModCheck.SearchAllFile
'报错“类型不一致”，请问为什么？End Sub 具体解决方案如下：解决方案：Private Sub
btnRun_Click()&&& 'ClArray不需要定义数组维数即可&&& Dim ClArray() As String
&&& '或：dim ClArray&&& '确保左侧的是大小可以调节的数组，且类型匹配 &&& 'ClArray
只能是动态数组或variant变量。&&& ClArray = ModCheck.SearchAllFile End
Sub▲VBA函数数组参数的问题，用单元格传递不行。
我在VBA的模块中插入了一个函数，作用是计算向量的2范数如下public function fanshu(ParamArray a() as
Variant)&&& dim i as long&&& fanshu=0&&& for i=0 to
UBound(a())&&&&&&& fanshu=fanshu+a(i)^2&&& next i&&&
fanshu=Sqr(fanshu)end
function参数用数组表示能得出正确结果如在单元格输入=fanshu(1,2,3,4)没问题但在单元格A1到A4分别输入1,2,3,4
在A5中输入=fanshu(A1:A4)却得到错误#VALUE!请问如何定义参数使得用选中单元格的方式来传递参数？Public
Function fanshu(rng As Range)&&& Dim Cell As Range&&& fanshu = 0&&&
For Each Cell In rng&&&&&&& fanshu = fanshu + Cell ^ 2&&& Next&&&
fanshu = Sqr(fanshu)End Function▲问：要求在调用子程序后能够将二维数组的数据导入到主程序对应的数组中?答：Sub
test()&&& Dim arr(), H As Long, L As Long&&& arr = Range("A1:C8")&&&
L = 2&&& H = 5&&& Call CD(arr, H, L)End SubSub CD(iarr, iH,
iL)&&& ss = iarr(iH, iL)&&& MsgBox "工作表的第" & iH & "行,第" & iL
& "列的值是:" & ss, Title:="子程序信息"End Sub▲如何使用vba返回动态数组中的元素
？问：现在想用vba写一个函数，返回值为一个维度为a*b 的数组，函数的参数就是...答：Sub Main()
&&& a = 3 &&& b = 4 &&& ReDim Ar(1 To a, 1 To b) &&& Call ub(Ar)
MsgBox Ar(1, 2) End Sub
Function ub(ByRef Arr) &&& For i = LBound(Arr)
To UBound(Arr) &&&&&&& For j = LBound(Arr, 2) To UBound(Arr, 2)
&&&&&&&&&&& Arr(i, j) = i * j &&&&&&& Next j &&& Next i End
Function▲vba如何将数组带入自定义的函数？如何对数组进行自定义函数的运算，然后输出数组？就是说m=f(s,t,L,K)中的s取（2，3，4，5，6），结果m用数组输出
怎么写？求老师们指导～～解决方案1：Private Sub Form_Load()&&& Dim s(),
s1()&&& s = Array(2, 3, 4, 5, 6)&&& Dim t, L, K&&& t = 1&&& L =
2&&& K = 3&&& s1 = Test(s, t, L, K)&&& For i = 0 To
UBound(s1)&&&&&&& MsgBox s1(i)&&& NextEnd SubFunction
Test(s(), t, L, K)&&& Dim a&&& ReDim a(UBound(s))&&& For i = 0 To
UBound(s)&&&&&&& a(i) = s(i) + t + L + K '&&& Next&&& Test =
Function解决方案2：VB中，数组本来就是以传址方式进行传递调用的。也就是说，你这个参数S，可以是一个数组，调用的
时候，以一个数组调用，结果会传递返回给调用处。▲在VBA中调用函数时，怎么实现返回多个参数？解决方案1：按地址引用参数就可以改变传进去的参数的值了。如下列所示代码：m和n就被函数addtest改变为3和4了。Public
Function addtest(ByRef a As Integer, ByRef b As Integer)&&& a = 3&&& b =
4&&& addtest = 5End FunctionSub aa()&&& Dim m As
Integer&&& Dim n As Integer&&& addtest m, n&&& MsgBox m&&&
MsgBox nEnd Sub解决方案2：返回数组地址。▲通过EXCEL
VBA自定义了一个函数，无法把数组传入到函数中。解决方案1：只能传单元格，然后转数组。如下 Function
MyTest(rng As Range) &&& Dim arr() As Variant &&& Set arr = rng.Value
&&& MyTest = UBound(arr)End Function解决方案2：这要用ParamArray的。
TA的最新馆藏[转]&[转]&
喜欢该文的人也喜欢