Excel之VBA简单宏编程 您所在的位置:网站首页 简单的表格公式怎么写出来图片 Excel之VBA简单宏编程

Excel之VBA简单宏编程

2024-07-07 07:54| 来源: 网络整理| 查看: 265

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 实验室设备网 版权所有