Excel之VBA简单宏编程 | 您所在的位置:网站首页 › 简单的表格公式怎么写出来图片 › Excel之VBA简单宏编程 |
Excel之VBA简单宏编程
excel是一款很经典的数据分析的工具,里面包含了很多内置函数,但实际情况有时却复杂得多,而excel的宏编程提供了自定义函数的功能,正好有老师需要帮忙做一些数据分析,就学习了一下,下面是我的学习笔记。本人使用的是excel2013。有出入的地方可以参考。 文章目录 Excel之VBA简单宏编程1、准备工作2、VBA编程2.1模块声明2.2变量声明及赋值2.3if-else结构2.4循环结构2.5比较运算符2.6注释 3、常用功能3.1获取表格数据3.2复制单元格且保留原单元格列宽3.3设置单元格、某一行或某一列颜色3.4获取表格有用列数和有用行数 4、调试运行 1、准备工作 打开开发工具面板(excel的主选项卡默认是没有开发工具选项卡的)文件->选项->自定义功能区-> 这时候主选项卡就有开发工具项了 进入vba编辑点击visual basic进入 在VBAProject上右键->插入->模块 出现一个编辑文件如下图 然后就可以在这里写入vba代码。 2、VBA编程 2.1模块声明类似于一个程序,一个模块要有一个主程序入口即模块声明,如 Sub sname() ··· ··· End Sub 2.2变量声明及赋值声明格式为: Dim ‘变量名称’ As ‘变量类型’ 如 Dim i As Integer Dim str As String 赋值格式为: i = 3 str = “hello world!” 直接等号赋值 数据类型定义符号备注字符串String整型数字Integer-32768~32767长整型数字Long-2147483648~2147483647单精度浮点型数字Single精度为6双精度浮点型数字Double精度为14日期型Date布尔型Boolean变体型Variant万用的类型,尽量避免使用对象型Object没有深究枚举型枚举类型数据定义格式: Public|Private Enum 变量名 成员1[=常数表达式1] 成员1[=常数表达式1] ··· ··· End Enum 例如: Public Enum WorkDays 星期日 星期一 星期二 星期三 星期四 星期五 星期六 End Enum 2.3if-else结构 If ······ Then ······ ElseIf ······ Then ······ Else ······ End If 2.4循环结构 Do While ······ ······ Loop For i = 0 To 100 Step 1 ······ Next i跳出for循环可以用 Exit For 2.5比较运算符 名称运算符等于=不等于小于=字符串匹配Like 2.6注释VBA里的单行注释以单引号'标识 3、常用功能 3.1获取表格数据 获取第i行j列单元格数据 Sheets(‘表格名’).Cells(i,j).Value获取第i行数据 Sheets('表格名').Rows(i)获取第j列 Sheets('表格名').Columns(j)获取一块 Range("a1:b60") 3.2复制单元格且保留原单元格列宽 Sheets(name_1).Cells(i, k).copy Sheets(name_result).Cells(i,k).PasteSpecial xlPasteColumnWidths 3.3设置单元格、某一行或某一列颜色 Sheets(name_1).Rows(i).Interior.ColorIndex = 3' Sheets(name_1).Rows(i).Font.ColorIndex = 1 Sheets(name_1).Cells(i,j).Interior.ColorIndex = 3' Sheets(name_1).Cells(i,j).Font.ColorIndex = 1 3.4获取表格有用列数和有用行数 irows1 = Sheets(name_1).UsedRange.Rows.Count icolumns1 = Sheets(name_1).UsedRange.Columns.Count 4、调试运行 快捷键功能F8逐语句运行Shift+F8逐过程运行Ctrl+F8运行到光标处F9光标处添加断点调试->添加监视添加监视 |
CopyRight 2018-2019 实验室设备网 版权所有 |