excel vba常用代码
Visual Basic for Applications（简称VBA）是新一代标准宏语言，是基于Visual Basic for Windows 发展而来的。它与传统的宏语言不同，传统的宏语言不具有高级语言的特征，没有面向对象的程序设计概念和方法。而VBA 提供了面向对象的程序设计方法，提供了相当完整的程序设计语言。VBA 易于学习掌握，可以使用宏记录器记录用户的各种操作并将其转换为VBA 程序代码。这样用户可以容易地将日常工作转换为VBA 程序代码，使工作自动化。 [1] 数据类型基本数据类型即Primary Type Data，下述列表的括号内为字节数： Byte (1)：无符号数类型，取值范围0-255Boolean (2)Integer(2)Long (4)Single (4)Double (8)Currency (8)Decimal (14)Date (8)StringObject (4)Variant （根据分配确定） [2] 自定义的数据类型相当于C语言的struct，例如： [2] Type 自定义类型名 元素名 As 类型 … [元素名 As 类型] End Type数组Option Base 0 ：数组索引值从0开始 [2] Option Base 1 ：数组索引值从1开始Dim MyArray(10) ：声明一个数组变量，10是最大的可用的数组索引值MyArray(5) = 101 ：给数组的元素赋值Dim Data(10,5) ：声明一个二维数组变量Data(1,1) = "A001" ：给数组元素赋值Dim cArr(-11 To 20, 1 To 3) As String ：声明一个数组，定义数组索引值的上下界Dim dArr() As String ：声明动态数组ReDim dArr(0 To 5, 1 To 2) ：改变动态数组的尺寸默认把原数据清除。如果保留原来的数据，必须加上参数Preserve：使用Preserve参数时只能改变最后一位的大小If UBound(vTemp) = -1 Then：判断数组变量vTemp是否为空数组End If Erase MyArrar, Data Erase语句清除数组元素，释放变量占用的空间 [2] 常量编辑系统定义常量系统定义常量有3个：True、False和Null。 [4] 固有常量固有常量是编程时引用的对象库定义的常量。所有固有常量都可以在宏或VBA代码中使用。通常，固有常量通过前两个字母来指明定义该常量。来自VB库的常量则以“vb”开头。来自Access的常量以“ac”开头。可以使用对象浏览器来查看所有对象库中的固有常量列表。 [4] 在VBA中，常量的数据类型有整型、长整型、单精度型、双精度型、字节型、货币型、字符型、日期型和逻辑型。一个整型数据就是一个整型常量，一个长整型数据就是一个长整型常量。例如，12%、-1%是整型常量，32768&、10000000&是长整型常量，-2.5 1、3.14是单精度实型常量，3.1415926#是双精度实型常量，China、Shanghai是字符型常量，#07/13/2001 11:45PM#是日期常量，由符号 “ # ” 将字符括起来。 [4] 符号常量可以自行定义的常量即符号常量，必须先定义，后使用。可见，需要声明的常量都是符号常量。 [4] 基本语法格式:1 [ Publicr/ Private] Const 常量名[As 类型]=表达式 如：Global Const 符号常量名称 = 常量值 [4] 语句功能:定义一个符号常量，并将指定表达式的值赋给符号常量。 [4] 语句说明如下: [4] 1)“常量名”指定符号常量的名字。符号常量名可以由字母、数字和下画线组成，但只能以字母开头，不能含有空格。 [4] 2)“表达式”指定符号常量的值。该表达式通常由数值型、字符型、逻辑型或日期型数据以及各种运算符组成，但在表达式中不能出现变量和函数。 [4] 3) public用来表示这个常量的作用范围是整个数据库的所有模块。 [4] 4) private则表示这个常量只在使用该声明常量语句的模块中起作用。 [4] 说明：1)除用户定义的符号常量外，VBA还提供了许多符号常量，我们可以直接使用。 [4] 2)对数码比较长，并且在程序中多次使用的常量，通常使用符号常量代替。运行程序时，系统自动把程序中的所有符号常量换为赋给它的值。 [4] 变量编辑与常量一样，变量也是一块内存空间，用于保存程序运行过程中可能变化的数据。变量的名称是用户定义的一个标识符。 [5] 在代码中需要使用该变量时，只需引用相应的标识符即可，而不用管变量当前的值具体是什么。 [5] 声明与用户自定义的常量相似，变量在使用之前都需要声明，在VBA中声明变量的语法格式有以下几种： [5] 关键字变量名 AS 数据类型关键字变量1，变量2 ... 变量n AS 数据类型关键字变量1 AS 数据类型，变量2 As 数据类型， ... ，变量n AS数据类型在第二种语法格式中， “变量n”的数据类型为AS关键字后定义的数据类型，而“变量1”、“变量2”、…的数据类型为变体型。 [5] 在VBA中，可用Dim、Private、Public和Static这4个关键字来声明变量，使用不同关键字声明的变量其含义也有所不同。 [5] ◆ 利用Dim关键字声明变量：Dim关键字主要用来在内存中分配一块空间，并为该空间命名，是VBA中声明变量最常用的关键字。使用Dim关键字声明的变量只能在当前过程或模块中使用。 [5] ◆ 利用Private关键字声明变量：Private关键字用于在类模块中声明一个私有变量，它只能在当前的类模块中使用。当定义变量的位置同处于类模块中时，其使用效果与使用Dim关键字定义的变量相同。 [5] ◆ 利用Public关键字声明变量：利用Public关键字声明的变量可以在程序的任何地方调用，而与声明变量的位置无关。 [5] ◆ 利用Static关键字声明变量：Static关键字用于声明静态变量，即变量的值在整个代码运行期间都能被保留。 [5] 赋值变量在使用时还需要对其进行赋值。在VBA中对变量进行赋值可通过 “ = ” 符号或 “ Set ” 关键字进行。通过 “ = ” 符号对变量赋值的语法格式有以下几种。 [5] 变量名=数据变量1=变量2 运算符 数据变量1=变量2 运算符 变量3 … 运算符 变量n如果在定义变量时指定了变量的数据类型，则为变量所赋的值也必须是该数据类型的值。如果变量定义为Integer类型，而在赋值时却给了变量一个String类型的数据，则在编译运行的过程中将弹出错误弹框。 [5] 运算符编辑运算符是在程序中执行计算功能的某些特殊符号，它是程序代码的重要组成部分。在程序代码中，运算符不能单独使用，必须与其操作数共同组成表达式后才具有运算意义。VBA中的运算符包含算术运算符、连接运算符、比较运算符和逻辑运算符等。 [4] 算术运算符算术运算符主要用于执行四则运算，仅用算术运算符连接起来的表达式称为算术表达式。算术运算符及其作用与示例如表所示。 [5] 例子名称结果-$a 取反 $a 的负值。 $a + $b 加法 $a 和 $b 的和。 $a - $b 减法 $a 和 $b 的差。 $a * $b 乘法 $a 和 $b 的积。 $a / $b 除法 $a 除以 $b 的商，允许小数。 $a \ $b 除法 $a 除以 $b 的商，结果取整。 $a Mod $b 取余 $a 除以 $b 的余数 注意：在执行算术运算时，运算符两侧操作的数据类型必须相同，否则会出现“类型不匹配”的错误提示。当“+”运算符左右两侧都是字符串类型的操作数时，执行的是连接运算，如表达式“"Pass+"word"的计算结果为字符串“ PassWord ”。 [5] 连接运算符连接运算符的作用是将运算符两侧的操作数连接成一个数，其操作数的数据类型通常都为String类型。VBA中的连接运算符有“&”和“+”两种，由于使用“+”执行连接运算时，容易与加法运算混淆，所以通常都采用“&”进行连接运算。 [5] 比较运算符比较运算符可以对运算符两侧的操作数执行比较运算，其返回结果为Boolean类型的True或False。比较运算符的操作数通常为具体的数值，当操作数为字符串或其他符号时，是根据该符号的ASCII码进行比较的。VBA中的比较运算符及其作用与示例如表所示。 [5] 例子名称结果$a = $b 等于 TRUE，如果 $a 等于 $b。 $a $b 不等 TRUE，如果 $a 不等于 $b。 $a < $b 小于 TRUE，如果 $a 严格小于 $b。 $a > $b 大于 TRUE，如果 $a 严格大于 $b。 $a <= $b 小于等于 TRUE，如果 $a 小于或者等于 $b。 $a >= $b 大于等于 TRUE，如果 $a 大于或者等于 $b。 逻辑运算符逻辑运算符用于对运算符两侧的操作数执行逻辑运算，参与逻辑运算的操作数本身可以是逻辑表达式(表达式的最终结果为True或 False)，也可以是算术表达式(表达式的最终返回值为0或非0)。 [5] 在逻辑运算中，数值0与逻辑值 False相同，表示逻辑假；非0数值与True相同，表示逻辑真。逻辑运算符及其含义与示例如表所示。 [5] 例子名称结果$a and $b And（逻辑与） TRUE，如果 $a 与 $b 都为TRUE。 $a or $b Or（逻辑或） TRUE，如果 $a 或 $b 任一为TRUE。 $a xor $b Xor（逻辑异或） TRUE，如果 $a 或 $b 同位相异。 Not(1>2) Not（逻辑非） TRUE。 (1>2) Eqv (1>2) 两个操作数同为假，返回False;两个操作数同为真，返回True；两个操作数一真一假，返回False TRUE。 21 Imp 3<5 运算符左右同为真,返回True;左右同为假,返回True;左真右假,回返 False;左假右真,返回True TRUE。 语法结构编辑if 语句1 if 条件1 then 语句1elseif 条件2 then 语句2elseif ... ...else 语句nend if Select Case 语句1 Select Case 表达式 Case 表达式列表1 语句1 Case 表达式列表2 语句2 ... Case 表达式列表n 语句nEnd Select 其中的表达式列表可以为： [5] 表达式 例： "A"用逗号分隔的一组枚举表达式例：2,4,6,8表达式1 To 表达式2 例：60 To 100Is 关系运算符表达式 例：Is < 60Do...Loop 语句1 Do While或Until 条件 语句块1 Exit Do 语句块2Loop For...Next语句1 Do 语句块1 Exit Do 语句块2Loop While或Until 条件 For Each … Next语句1 For 循环控制变量=初值To 终值Step 步长 语句块 ‘Exit For语句可以跳出循环体Next 跳出本次循环的continue语句1 For 循环控制变量=初值 To 终值 Step 步长 Do '用于模拟continue 语句块 If 条件 Then Exit Do '用于模拟continue 语句块 Loop While False '用于模拟continue Next With语句1 With 对象引用 语句块End With On Error语句1 On Error Goto 出错处理语句的label '跳转到出错处理语句 或1 On Error Resume Next '遇到错误，不管错误，继续往下执行 具有控制作用的函数If(条件式,表达式1,表达式2) [5] Switch(条件式1,表达式1,[条件式2,表达式2[,...,条件式n,表达式n]])Choose(索引式,选项1[,选项2,...[,选项n]]) '这是基于1的索引其他语句编辑注释语句使用REM或者单引号开始的行。 [6] 语句的连写与续行如果一行包括多条语句，用冒号分割各个语句。跨多行的语句，在行末用“空格加下划线”表示续行 [6] 。过程与函数编辑12 Sub 过程名(参数表) 语句块 Exit Sub 语句块End Sub 1 Function 函数名(参数表) As Type 语句块 函数名=表达式 Exit FunctionEnd Function 可以是Private、Public、Friend、Static等修饰。 [6] 调用函数/过程时，可以加括号或者不加括号。如果调用表达式作为一行的一部分，那么必须用参数，例如函数调用的返回值赋给变量。 调用过程时， 可以使用/不使用call关键字。使用call语句调用过程，如果无参数，则不加括号；如果有参数，必须加括号。如果调用时用括号包住单个参数，则该参数强行按值传递。需要特别注意，不用call不加括号的调用，形参与实参是传值(passed by value)而不是传引用(passed by reference)，这会导致一些对象的方法调用失败。例如： [6] 1 Dim cn As ADODB.Connection Set cn = CurrentProject.Connection Dim rs As New ADODB.Recordset rs.Open "SELECT * FROM myTable" , cn Dim ExcelApp As New Excel.Application Dim ExcelWst As Worksheet Set ExcelWst = ExcelApp.Workbooks.Add.Worksheets(1) ExcelWst.Range("A2").CopyFromRecordset(rs) '失败，无法执行该行 ExcelWst.Range("A2").CopyFromRecordset rs '可成功执行该行 常用内置函数编辑VBA的常用内置函数： [5] MsgBoxInputBox舍入函数：Fix 向0取整,Int向下取整, Round四舍五入Rnd： 返回0-1内的单精度随机数字符串函数： [5] Filter：对字符串的一维数组的过滤InStr([Start, ],[, Compare])与InStrRev： 查找子串Len：字符串长度Join：连接一维数组中的所有子字符串Left,Right,Mid： 截取子字符串Space(数值) ：生成空格字符串Ucase,Lcase：大小写转换函数Ltrim, Rtrim,Trim ：删除首尾空格ReplaceSplit：分割一个字符串成为一维数组StrComp：字符串比较StrConv：字符串转换String(number, character)：制定字符重复若干次StrReverse日期/时间有关函数： [5] Year, Month, Day, WeekDay,Hour,Minute,Second： 截取日期时间分量DateAdd： 日期/时间增量函数DateDiff(,,[,W1][,W2])日期/时间的距离函数DatePart(,[,w1][,w2])时间分割函数DateSerial(,,) 合成日期；DateValue(“字符串表达式”)返回日期；Date,Time,Now,Timer： 返回日期时间DateValueTimeSerial：由时间序列得到时间对象TimeValue：由时间字符串得到时间对象Weekday：获得日期的周几WeekdayName转换函数：CBool、CByte、CCur、 CDate、 CDbl、CDec、CInt、 CLng、CLngLng、CLngPtr、 [5] CSng、CStr、CVar、CVErr、Asc()返回第一个字符的Ascii编码值、Chr(ASCII码)返回字符、Hex、Oct、Str()返回字符串、Val(string)、Format、FormatCurrency、FormatDateTime、FormatNumber、FormatPercent、MonthName。Nz(表达式或字段属性值[,规定值])如果是空，则返回0或者""或者函数的第二个参数值 [5] 验证函数：isNumeric、isDate、isNull、isEmpty、IsArray、IsError、IsMissing、IsObject [5] 数学函数：Abs、Sqr、Tan、Atn（即atan）、Sin、Cos、Exp（e为基的指数）、Log自然对数 [5] Array：构造一个Array对象 [5] CallByName: get or set a property, or invoke a method at run time using a string name. [5] 控制流：Choose:类似于C语言的select语句、If相当于IF-ELSE语句、Switch [5] Command：获取命令行参数 [5] CreateObject：创建ActiveX对象CurDir：返回指定驱动器的当前工作路径 [5] 由基本数学函数导出的函数：Sec、Cosec、Cotangent、Cotan、Arcsin、Arccos、Arcsec、Arccosec、Arccotan、HSin、HCos、HTan、HSec、HCosec、HCotan、HArcsin、HArccos、HArctan、HArcsec、HArccosec、HArccotan、LogNDoEvents：暂时把CPU控制权交回给系统 [5] Environ：返回环境变量的值 [5] 文件操作： [5] Dir：返回满足条件的所有文件、目录的名字EOFFileAttrFileDateTimeFileLenFreeFile FunctionGetAttr：返回文件、目录的属性值Input：读取文件Loc：文件指针位置LOF：文件打开时的指针位置Seek：文件指针定位Spc：使用Print做position outputTab：用于Print函数Error:错误号对应的错误消息 [5] Windows Registry中的数据：GetAllSettings、SaveSetting、DeleteSetting、GetSetting [5] GetObject：ActiveX组建的引用 [5] IMEStatus：返回当前Input Method Editor (IME) [5] Macintosh平台：MacID、MacScript [5] 金融函数： [5] DDB：使用double-declining balance计算贬值FV:计算固定利率的年金IPmt：计算利率IRR：计算利率MIRR：计算利率NPer：计算周期数NPV：计算net present valuePmt：计算支付数PPmt：计算本金支付数PV：计算present valueRate：利息率SLN：straight-line depreciationSYD：计算sum-of-years' digits depreciationPartition：返回字符串，表示一个数值名字落在各个range内。常用于SQL select语句 [5] QBColor：颜色值 [5] RGB：颜色值 [5] TypeName：得到变量的类型名 [5] VarType：得到变量的类型数 [5]
vba编程教程是什么？
vba编程入门教程：1、打开vba编辑器打开vba编辑器有下边三种方法供大家使用：方法1：点击excel菜单中的【开发工具】，然后在代码选项卡中点击【Visual Basic】 即可，如下图所示：方法2：右击excel左下角【Sheet1】，在弹出的菜单中点击【查看代码】即可，如下图所示：2、编写第一个vba程序步骤：通过上边的方法打开vba编辑器。在第一个下拉菜单中选中【worksheet】，在第二个下拉菜单中选中【BeforeDoubleClick】（BeforeDoubleClick的意思是在本工作表鼠标双击之前发生）。然后编辑器中会自动生成两行代码，我们在两行代码之间写入自己的代码即可。比如我们输入：“Sheet1.Cells(2, 3) = Sheet1.Cells(2, 1) + Sheet1.Cells(2, 2)”。意思是当我们鼠标双击时触发，第二行第三列的单元将显示第二行第一列和第二行第二列的和。VBA的英文全称是Visual Basic for Applications，是一门标准的宏语言。VBA语言不能单独运行，只能被office软件（如：Word、Excel等）所调用。VBA是一种面向对象的解释性语言，通常使用来实现Excel中没有提供的功能、编写自定义函数、实现自动化功能等。
学习vba的方法
我觉得首先你要想明白学习VBA的的目的是什么，考虑题主本身做财务的，想在实际工作中的应用，那么目标应该就是提高工作效率，减少加班时间，从而更多的思考和提高自己，获取更高的收入。或者发现自己对编程感兴趣，转而成为程序员（逃）？如何提高财务的工作效率呢？其实与其他工作相同，第一步并不是动手系统性地学习VBA，而是应该问自己为什么效率不高？或者效率也不低，还需要寻求更高的办法。我的建议是：先拿Excel表格将你的主要工作按每天，每周，每月，每季度，每年的分类进行统计，并备注每项工作所花费的大概时间。这样可以看出来哪些重复性工作对你的工作时长影响最大，可以针对性的解决。注意强调的是重复性工作，因为非重复性工作往往不值得花大量的时间去优化和自动化。第一步选择一项待优化的工作之后，还不要着急动手敲代码。要先将这项工作的输入和输出标准化、模板化。什么意思呢？举个简单的例子，现在要将前一天公司的销售数据以报表、图表形式提交上级，这里的输入就是系统中的原始数据，输出就是更新的报表和图表。标准化说的就是，原始数据、报表、图表的格式在日常使用时不应当修改其格式（除非必需时），只是将新的原始数据导入模板，然后刷新透视表。要多用条件格式、公式，尽量减少手工修改格式，尽量少改动公式，以减少工作量和出错的机会。这个时候，你的工作量已经减少了大部分，可能只剩下一些打开关闭文件，复制粘贴数据等简单操作了，这些工作无法用模板、公式解决，就可以用VBA来做了。到了这个阶段，你的在这项工作上花时间已经可以缩短50%了。这个时候，如果你有VBA的基础，使用宏录制功能，结合搜索引擎，可以解决大部分问题，花的时间可以缩短80%。而且在这时需要解决实际问题的学习，效果绝对比抱着一本大而全的宝典来得好。总结起来就是下面三点：减少重复性工作所花的时间打好基础，基本的语法、对象需要掌握。用解决问题的方式来学习。
教学视频网站哪个好
1.国家教育资源公共服务平台http://www.eduyun.cn/这是一个涵盖小学到高中各个科目的优质资源网站，里面备课资源非常丰富，有资源包、教学设计、教学课件、课堂实录、素材、习题等等，输入关键词就能搜索到相关的资料。桃源悟道想找各种学习资源、升学辅导考试资源、职场提升资源、图书资源、影视资源，关注我就对了76篇原创内容公众号2.中国高校课件下载中心http://download.cucdc.com/cw/c/ 这个网站里专门提供大学阶段的课件，整合了各大名校的优质教育资源，大学里的各个专业课件，支持搜索查找，都可以免费下载，真正实现了优质教育资源的共享。 3.第一课件网http://www.1kejian.com/ 这是一个提供免费教学资源下载的网站，包含各学段、各学科、不同教材版本的教学课件、教案、试题等等。在课件专区中，每个教学课件里还附上了详细的教案简介和使用说明，搭配教案进行备课进度会快很多。4.电子课本网http://www.dzkbw.com/ 电子课本网是一个在线阅读教材资源的网站，教材资源丰富且全面，国内正在使用的教材的电子版本在这都能找到，使用它来整合教案都方便许多。5.办公资源https://www.bangongziyuan.com/ 从课件网站下载好的PPT内容是足够的，但由于年代原因很多课件的版图设计都比较简单。这是一个提供各种Word、Excel、PPT模板的网站，平时备课经常需要用到PPT，自己制作起来又很麻烦，就可以在办公资源查找一些合适的PPT模板使用，做得又快又好看。6.菁优网www.jyeoo.com 这是一个专门用来组卷的网站，老师们可以自己选择年级、题型、难度、题类、试题来源、年份等等，然后它会给出一些题目，我们可以根据教学安排来选择题目并组成一个试卷，可以用来日常测试或者是假期作业。 另外它还可以直接查看一些中考真题、竞赛题、一些学校的期末试卷等等，答案解析什么都有的，组卷的时候也可以参考以往的真题题型。7.考试酷https://www.examcoo.com/ 这是一个在线考试的平台，适用于各个领域的考试，比如月度考试、随堂测试等等。老师可以设置班级，邀请学生进入，然后就可以添加试卷、设置考试、通知学生，就类似于那种线上考试的模式，交卷之后还能进行评阅和成绩管理。8.学科网www.zxxk.com 一个专门提供试题试卷、课件、教案等资源的网站，网站有免费和付费的资源，在这里你可以找到小学到高中各个科目不同版本教材的备课资料。 9.百度智慧课堂https://study.baidu.com/ 百度智慧课堂在百度文库、优质图书等的基础上，提供覆盖17个学科、127种教材版本、2亿多个优质资源包括教学课件、教案、套卷、学案等，而且备课资源还能上传到云空间中，十分方便。10.大学资源网http://www.dxzy163.com/ 这个网站提供了各种考研、小学到大学的免费视频教学课程，它按照不同的年级和学科将所有的课程都进行了详细分类，每个视频都有对应的详细的课程列表以及文字内容，看起来也非常方便。
最好的视频学习网站是？
三优网
由中国十大教育集团、总裁首选学堂——世华智业集团全线投资、投智，集课程学习、资源互动、网上商城、人际交流等于一体，最受华人企业和企业家推崇的大型商务网站。
首期业务为视频学习：
凭借世华智业集团强大的实战名师资源，为华人企业提供最具权威、最现价值、最有意义的网络视频学习。
二期业务为整合人才：
为企业输送适用型人才基础上，帮助高校毕业生和在职人士实现就业和再就业梦想，猎头公司线上线下服务。
三期业务为商城开发：
快速传递商业智慧，网罗世界最全的适合中国企业发展壮大的经管类图书和杂志，及时为企业提供智力援助。
后期业务为空间交流：
通过个企博客、广告发布、休闲游戏、快乐团购展示广大用户和企业明星的魅力与风采，同时尽显三优优势。
目前，三优视频内容高清、丰富多样、实战性强，涵盖管理、战略、咨询、销售、策划、礼仪、亲子、口才等各大领域之学习所需，三优网是每个拥有梦想并渴望成功的人士首选学习网站。
