2022-12-12 13:00来源：m.sf1369.com作者：宇宇
要注意的是公式中的双引号容易写错。建议使用 Chr(34) 函数来代替。比如，第一个公式写成如下：ActivateCell.FormulaR1C1 = "COUNTIFS('500+'!R[-29]C[1]:R[965]C[1]," & CHR(34) & ">=2.0*" & CHR(34) & ",'5000+!R[-29]C[5]:R[965]C[5]," & CHR(34) & ">=201901" & CHR(34) & ")"
Sub dfsa()an = Sheets(Sheets.Count - 1).NameSheets(Sheets.Count - 3).SelectActiveSheet.Cells(4, 5).Select ActiveCell.FormulaR1C1 = "=" & an & "!R[2]C[2]"End Sub
首先了解一下VBA是啥：
是微软公司开发出来的一种事件驱动编程语言，他的作用就是扩展office应用程序，使得我们使用office的时候效率更高。
VBA的用途：
1、步骤简化：如可以通过一个按钮实现多个步骤的操作，迅速省力完成大量重复操作。
2、权限划分：设置登陆对话框可以设置不同操作人对每个表的访问权限和操作权限。同时保护数据不被其他人员修改和想看。
3、复杂的筛选排序：excel内只是提供了比较简单的一些筛选和排序功能，如果我们需要一些多条件复杂的筛选和排序，就可以用VBA来帮我们解决问题。如：比划排序。
4、自动执行任务：我们可以编写指定时间或者指定条件下执行某些操作。
5、保证数据准确性：可以通过VBA设置对输入的数据进行限制，可以防止用户不小心录入不符号内容的数据。如：大小写规范，小数点规范，标点符号规范。
6、扩展Excel没有的功能：警告对话框，修改、删除、生成文件等一些操作。甚至还可以操作注册表。
7、开发专业程序：可以利用VBA把EXCEL文件开发成专业的程序，如人事的人员管理系统，财务报表系统，学生信息管理系统等。
cells，是一种计算机vba语言，用于访问excel表格对应行列的单元格。
访问excel表格对应行列的单元格。
VBA中的Cells语法是:Cells(行数,列数),行数和列数都是整数值,如:
cells(1,1)代表第一行第一列,也就是A1单元格
也可以写成cells(1,"A")
cells(2,1)代表第二行第一列,也就是A2单元格
也可以写成cells(2,"A") (责任编辑：admin)
将vba代码放到一个模板excel文件中，然后每次要用此功能时找到模板excel调用
当vlookup找不到匹配的结果，就会返回错误值#N/A，这个错误值使vba报错。为了避免找不到而报错，可以使用以下错误捕获当然，你使用find方法也可以，方法不唯一，就看你习惯用哪个。
1楼的方法有可取之处不过不直接如果你的公式是固定的.那么就用1楼的第1个: range("B14").Formula="=SUM(B1:F3)"如果想用相对的,就是这样了,range("B14").FormulaR1C1="sum(R1C:R3C[4])"说明: RC分表代表行列,后面的数字代表了相应的行列号,如果没加" [ ]" ,就是绝对引用,如果加了"[ ]"就是相对引用了. 方向由正负号控制再举个例子: 比如: 当前单元格值总是等于它左边三个单元格的和.那么公式为: activecell.FormulaR1C1="=sum(RC[-3]:RC[-1])"
Excel里的VBA是Visual Basic的一种宏语言。VBA是微软开发出来在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。主要能用来扩展Windows的应用程序功能，特别是Microsoft Office软件。也可说是一种应用程式视觉化的Basic 脚本。
掌握了VBA，可以发挥以下作用：
1.规范用户的操作，控制用户的操作行为；
2.操作界面人性化，方便用户的操作；
3.多个步骤的手工操作通过执行VBA代码可以迅速的实现；
4.实现一些VB无法实现的功能。
5.用VBA制做EXCEL登录系统。
6.利用VBA可以Excel内轻松开发出功能强大的自动化程序。
扩展资料：
宏语言VBA 适用于在Office 2000 中的所有应用程序，包括Word 、 Excel、PowerPoint、Access、Outlook 以及Project。在Office 97 的各应用程序中，新增了Visual Basic 编辑器。这样，用户无论是在Excel 中，还是在Word 中以至是在Access 中建立和管理VBA 都具有统一的方法和标准。
VBA可以访问许多操作系统函数并支持文档打开时自动执行宏。这使得用这种语言写计算机病毒成为可能。1990年代中后期，宏病毒成为了最流行的计算机病毒类型之一。其它的包括宏语言的项目，如OpenOffice.org，故意从其宏语言中排除了一些功能（如：自动执行）以避免破坏程序。然而，这一特性在很多事务中受到欢迎。
VBA 是基于Visual Basic 发展而来的，它们具有相似的语言结构。Visual Basic 是Microsoft 的主要图形界面开发工具，VBA 5.0 （亦即VBA 97）则是Visual Basic 5.0 的子集。Visual Basic 是由Basic 发展而来的第四代语言。Visual Basic 作为一套独立的 Windows 系统开发工具，可用于开发Windows 环境下的各类应用程序，是一种可视化的、面向对象的、采用事件驱动方式的结构化高级程序设计语言。它具有高效率、简单易学及功能强大的特点
其实就是为了得到一个逻辑值TRUE。
因为OFFSET(B$1,MATCH(A2,A$2:A$10,),,,31)""这个子函数，就是将当前这一行的B:AF这31个单元格，逐一判断是否不为空，不为空则返回TRUE，为空则返回FALSE。
而MATCH函数匹配到第一个TRUE值，于是可以用INDEX函数从第一行中取得相应的标题值。
打开EXCEL，在选项里修改默认新建的文件为1个工作表（没修改默认新建的文件是3个工作表）。然后删除SHEET2\SHEET3，将SHEE1全选，设置好行高20、列宽10、对齐等自己需要的属性。选文件另存为，保存类型选择“EXCEL模板”，文件名和位置有两种情况。
（1）如果这台电脑基本上是自己用，可以选择默认的NORMAL模板的位置，替换NORMAL模板，这样每次点开EXCEL就是你想要的。
（2）如果这台电脑是几人共用的，就自己选个位置取个名字，每次要打开EXCEL时，直接点你保存的这个模板文件名就行了。这样不影响别人使用习惯。
不在电脑旁边，可能描述有些不准确，但是思路应该是这样。
VBA内置函数中没有求最大值的函数，但可以利用excel中表格可以用max函数，在VBA中也可以用，只需通过WorksheetFunction对象就可以引用，后面加函数名称，然后加range来引用单元格。举个例子： Application.WorksheetFunction.Max(range("A1:C5")) 从 Visual Basic 中调用工作表函数： 在 Visual Basic 中，通过 WorksheetFunction 对象可使用 Microsoft Excel 工作表函数。
