蓝色幻想VBA80集附件代码

【实例简介】

目录

一、宏程序语句：运行后可以完成一个功能

二、函数程序语句：运行后可以返回一个值

三、在程序中应用的语句

1、工作簿

2、工作表

3、单元格

一、VBA属性

二 、VBA方法

一、什么是变量？

二、小盒子里可以放什么？

1 放数字

2 放文本

3 放对象

4 放数组

三、变量的类型和声明

1 变量的类型

四、变量的存活周期

1 过程级变量:过程结束，变量值释放

一、在单元格中输入公式

1、用VBA在单元格中输入普通公式

2、用VBA在单元格输入带引号的公式

3、用VBA在单元格中输入数组公式

二、利用单元格公式返回值

三、借用工作表函数

四、利用VBA函数

五、编写自定义函数

一、VBE的窗口

1、工程窗口

3、代码窗口

4、立即窗口

5、本地窗口

一、END语句

二、Exit语句

1、Exit Sub

2、Exit function

3、Exit for

4、Exit do

1 判断excel文件是否存在

1 判断A.Xls文件是否存在

2 判断A.Xls文件是否打开

1 判断excel文件是否存在

1 判断A工作表文件是否存在

7 保护工作表

8 工作表删除

9 工作表的选取

1 判断excel文件是否存在

1 表示一个单元格(a1)

2 表示相邻单元格区域

3 表示不相邻的单元格区域

4 表示行

5 表示列

6 重置坐标下的单元格表示方法

7 表示正在选取的单元格区域

1 判断excel文件是否存在

1 已使用的单元格区域

2 某单元格所在的单元格区域

3 两个单元格区域共同的区域

4 调用定位条件选取特殊单元格

5 端点单元格

1 单元格的值

2 单元格的地址

3 单元格的行列信息

4、单元格的格式信息

5、单元格批注信息

6 单元格的位置信息

7 单元格的上级信息

8 内容判断

9 单元格数据类型（另讲）

一、判断数值的格式

1 判断是否为空单元格

2 判断是否为数字

3 判断是否为文本

4 判断是否为汉字

5 判断错误值

二、设置单元格自定义格式

三、按指定格式从单元格返回数值

1 判断excel文件是否存在

1 单元格输入

2 单元格复制和剪切

3 填充公式

1 判断excel文件是否存在

3 使用Find方法

1、什么是VBA数组呢？

2 VBA数组存在形态

向VBA数组中写入数据

1、按编号(标)写入和读取

2、动态数组

3、批量写入

1、在内存中读取

2、读取存入单元格中

1、什么是VBA数组呢？

2 VBA数组存在形态

向VBA数组中写入数据

1、按编号(标)写入和读取

2、动态数组

3、批量写入

1、在内存中读取

2、读取存入单元格中

1、数组的大小

2、动态数组的动态扩充

3 清空数组

2、Filter函数：

5 Sumif函数和Countif函数

1 数组的最值

2、求和

3 统计个数

3 在数组里查找

2     End If

2     End If

1 什么是VBA字典？

2 即然有数组，为什么还要学字典？

3 字典有什么局限？

4 字典在哪里？如何创建字典？

工具-引用-浏览-找到scrrun.dll-确定

1 装入数据

2 读取数据

3 修改数据

4 删除数据

1 什么是自定义函数？

2 怎么编写自定义函数？

1 取得工作表总个数的自定义函数

2 取得单元格显示值的自定义函数

3 截取字符串的函数

4 提取不重复值的个数

1 怎么让自定义函数在所有工作簿中使用？

2 怎么给自定义函数添加说明

3、怎么给自定义函数分类

VBA80集第31集：自定义函数的参数设置

一、什么MsgBox函数

用msgbox信息窗口可以增加一个程序对话的机会，以告诉程序下一步应该怎么做

二、基本语法

1、窗口显示的内容

Sub test4()

2  标题的显示文字

1 自动定时关闭消息框,可以用其他消息框完成

1 输入的内容返回给一个变量

2 如果不输入直接点确定返回什么

3 如果直接点了"退出"按钮会有什么值返回

2 公式引用

3 限制输入返回的数值格式

4.数值数组

可以选取单元格区域的值作为数组,也可以输入以带有大括号的一维或二维数组

一、 概述基本语法

二、示例

1 打开类型只限excel文件

2、打开多种文件类型(word和excel)

3 打开多种文件类型,默认显示word文件

4 设置对话框名称

5 选择多个文件,并以数组形式返回

1、完成复杂的字符串判断

1、引用法

2、直接他建法

1 Global属性:

1 例:

2 IgnoreCase 属性

3 Pattern 属性

5  Execute 方法

6、Text方法

2 利用 ?的格式可以分段匹配

1 和括号内的其中一个匹配

2 非括号内的字符

3 在一个区间

1 数据类型综述

2 数据类型对程序运行的影响

1 检查是否为空

2 检查是否为数字

3 检查是否为文本

4 判断结果是否为错误值

5 判断是否为数组

6 判断是否为日期

Sub s6()

二、Format函数

format函数用法等同于工作表中的text函数，可以格式化显示数字或文本

1 返回当前日期、时间（指本机系统设置的日期和时间）

2 格式化显示日期

3 根据年月日返回日期

4 根据小时分种返回时间

5 返回年月日小时分秒

1 计算两个日期相隔天数,月数,年数,小时,分种,秒

2 日期时间加减

1 什么是递归？

2 例:  计算4的阶乘 (4 * 3 * 2 * 1 = 24)

3 例：计算1 2 3 .5

1 利用VBA字典.在查找时替代循环查找.相关方法参见VBA80集字典部分

1 判断文件夹是否存在

2 新建文件夹

3 删除文件夹

4 文件夹重命名

5 文件夹移动

6 文件夹复制

7 打开文件夹

使用shell函数桌面管理程序打开文件夹

一、用Print写入

1 分行输入

2 在同一行输入

3 输入时添加空格符

4 在指定的列数输入

Sub t4()

二、用Write写入

Sub t5()

三、Print和Write区别

Sub t8()

一、窗体的使用

1 窗体的插入和启用

2 窗体的运行

3 窗体的关闭

4 窗体的显示设置

5 窗体的位置和大小

6 窗体显示的一些行为

7 窗体的删除

1 控件的插入

2 控件的删除

3 控件的格式对齐与分布

4 控件的tab顺序

5 控件的循环

6 判断控件的类型

1 窗体加载事件：当窗体出现之前运行的程序

2 窗体关闭前的事件

3 窗体关闭后的事件

4 窗体活动和非活动事件

5 窗体的单击和双击事件

6 键盘事件

7 鼠标事件

1 鼠标放在按钮上时可以显示的提示文字

2 在按钮上添加图片

3 隐藏按钮

1 设置热键,按alt 设置的键可以运行该按钮的click事件

2 按钮是否可用,可以让按钮变成灰色

3 设置按ENTER和Esc按钮时运行指定按钮的命令

4 Tag的用途

5 一个按钮执行多个程序

1 自动适应字体大小。

2 背景透明

3 文字对齐

4 字体的自动换行

1 多行显示

2 文本框对齐

3 密码样式

4 行列超过宽度或高度时添加滚动条

5 强制换行符号

1 自动跳到一下个tab顺序的控件

2 锁定文本和禁用

DragBehavior 属性值为1时,可以进行拖放

1 当文本框值发生改变量时的事件

2 当离开文本框时，如果数据发生了改变，则发生此事件

3 焦点进入文本框时的事件

4 离开文本框时的事件

1 显示多列内容

2、获得焦点自动打开下拉列表

3 列表显示最大条目个数

4 组合框下拉按钮的图标

5 设置列宽

1 向组合框内添加内容

2 删除指定行

3 提取选取的多列内容

MatchRequired 属性值为true时，必须输入组合框中含有的

1 设置最大值和最小值

2 步长(每点击两边按钮和滑块增加或减少的步长)

1 多页控件的多行是指什么？

2 多页控件的值

3 隐藏标签

ElseIf Len(Cells(x, 2)) = 6 Then

1 添加日期控件: 略

2 出库单号码设置

3 回车或点击按钮打开价格表窗口

4窗口加载表时完成treeview价格表导入和listview控件标题行生成

6 输入数量时自动计算金额,和输入后按回车添加到listview控件中

7 清空listview和删除选取的行

8 把listview中的所有数据添加到出库表中.

Dim arr()

一、表示方法

2 CommandBars(命令栏名称) 也可以表示某一个命令栏

1 Excel有哪些命令栏

2 修改Excel的命令栏

3 添加新的命令栏

4 删除命令栏

5 恢复命令栏的默认设置

1 命令的表示方法

Sub cc1() 屏蔽编辑菜单

一、表示方法

2 CommandBars(命令栏名称) 也可以表示某一个命令栏

1 Excel有哪些命令栏

2 修改Excel的命令栏

3 添加新的命令栏

4 删除命令栏

5 恢复命令栏的默认设置

1 命令的表示方法

操作VBE需要做的工作

1 设置信任

2 引用

1、返回模块的行数

2 返回模块的内容

1 添加模块

2 在模块中添加代码

3 在模块中插入代码

1 删除模块

2 删除过程

Sub 删除B模块中的ABC过程()

一、什么是类模块

二、类模块有什么作用？

1 让代码可读性更强

三、怎么创建类模块

四、类模块相关语句

1 property let

3 Property Set

4 Sub语句

5 Function语句

1 怎么样才能操作数据库？

2 SQL是什么?

3 SQL可以查询哪些数据库?

4 ADO是什么？

使用CreateObject函数创建

一、Connection对象

1 建立和数据库的连接

1 Mysql数据库

2 TXT文件

3 MSSQL数据库

4 Oracle数据库

2 执行sql语句

.Execute SQL

二、Recordset对象

作用 打开记录集操作记录

1 打开游标(记录集)

2 添加新记录

3 修改记录

4 删除记录

5 在记录中循环

1 使用.Execute 执行 Insert 语句

2 使用AddNew方法添加记录

1 用update语句

2 用Recordset对象的update方法

1 筛选全部字段

2 筛选指定字段

3 筛选不重复的

4 筛选前N个

5 格式化显示的结果

6 对筛选后的结果排序

7 分组显示

1 SUM函数求和,count计数

3 库存表有了,下面首先合并库存表和入库表,让库存数减去入库数

1 API的基本概念

2 API函数有什么作用？

3 VBA等编程工具和API有什么关系？

4 Api函数在哪里？

1 密密麻麻的代码,看起来好复杂

2 怪异的声明

3 为什么要声明常量,不知道API函数和常量对应关系

4 完成一个功能需要很多个API函数,怎么知道要用哪些函数?

5 句柄是什么?

hIcon 把图片句柄作为附加消息发送给窗口。

1 获得句柄的方法

2 用Findwindow函数获得顶级句柄

3 用FindWindowEx获得子窗口句柄

4 利用属性获得

2 获得原来窗口的样式

3 设置新的样式

4 窗体样式更新

1 什么是用户自定义类型

2 自定义类型的结构

3 自定义数据类型的使用

4 API函数中使用的自定义数据类型

1 API的基本概念

2 API函数有什么作用？

3 VBA等编程工具和API有什么关系？

4 Api函数在哪里？

1 密密麻麻的代码,看起来好复杂

2 怪异的声明

3 为什么要声明常量,不知道API函数和常量对应关系

4 完成一个功能需要很多个API函数,怎么知道要用哪些函数?

5 句柄是什么?

hIcon 把图片句柄作为附加消息发送给窗口。

1 获得句柄的方法

2 用Findwindow函数获得顶级句柄

3 用FindWindowEx获得子窗口句柄

4 利用属性获得

2 获得原来窗口的样式

3 设置新的样式

4 窗体样式更新

1 什么是用户自定义类型

2 自定义类型的结构

3 自定义数据类型的使用

4 API函数中使用的自定义数据类型

1 什么是DLL文件

2、DLL在VBA中有什么作用？

4 怎么在VBA中调用这些代码呢？

2 在代码中使用。

1 为什么要转换

2 怎么转换

1 创建步骤省略,下面是要封装的自定义函数

2 加载dll中的自定义函数

3 使用方法。和一般的excel函数使用方法相同

1 添加公共变量;

Dim mycombar As CommandBarPopup

Dim mybar1 As CommandBarButton

Dim mybar2 As CommandBarButton

Dim cevent(1 To 2) As New 类1

Sub 添加命令()

With mycombar

.Caption = "Com加载命令"

.Visible = True

Set mybar1 = .Controls.Add

With mybar1

.Caption = "在A1中输入1"

.Tag = "C1"

.FaceId = 30

.BeginGroup = True

End With

Set mybar2 = .Controls.Add

With mybar2

.Caption = "删除输入的数字"

.Tag = "C2"

.FaceId = 20

.BeginGroup = True

End With

End With

Set cevent(1).bar = mybar1

Set cevent(2).bar = mybar2

End Sub

Sub 删除添加的菜单()

On Error Resume Next

End Sub

If Ctrl.Tag = "C1" Then

Range("A1") = 1

CancelDefault = True

ElseIf Ctrl.Tag = "C2" Then

Range("A1") = ""

CancelDefault = True

End If

End Sub

 

【实例截图】
【核心代码】