VBA 精选示例代码库

←か淡定☆ ヾ

已于 2022-12-16 15:16:22 修改

阅读量2.9k

点赞数 1

分类专栏： VBA杂坛文章标签： VBA Excel 代码片断 Office编程

于 2021-09-13 09:39:51 首次发布

版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

本文链接：https://blog.csdn.net/zglibk/article/details/120260154

版权

VBA杂坛专栏收录该内容

40 篇文章 ¥49.90 ¥99.00

订阅专栏

超级会员免费看

在这里插入图片描述

目录

1. 厘米&英寸&像素&Point 的转换
2. 固定滚动区域
3. 按特定数量的行、列或页滚动
- 3.1 `Window.SmallScroll` 方法：按行或按列滚动窗口内容
- 3.2 `Window.LargeScroll` 方法：按页滚动窗口内容
4. 工作簿 VBA 属性和操作
- 4.1 按名称引用工作簿
- 4.2 按状态引用工作簿
- 4.3 按打开顺序（时间）引用工作簿
- 4.4 将工作簿分配给变量
- 4.5 创建新工作簿
- 4.6 打开工作簿
- 4.7 计算打开的工作簿数量
- 4.8 保存工作簿
- 4.9 保护和取消保护工作簿
- 4.10 关闭工作簿
- 4.11 激活工作簿
5. 运行在其它工作簿中的宏
6. 数组
- 6.1 变量声明
- 6.2 创建静态数组
- 6.3 创建静态二维数组
- 6.4 创建动态数组
- 6.5 数组赋值
- 6.6 将数组转换为字符串或范围内的值
- 6.7 遍历数组
- 6.8 检查一个值是否在数组中（函数）
- 6.9 查找数组中元素的索引（函数）
- 6.10 调整数组大小
- - 6.10.1 调整大小和空白值
  - 6.10.2 调整数组大小并保留现有值
- 6.11 排序数组顺序（函数）
- 6.12 反转数组顺序（函数）
- 6.13 过滤数组
7. 应用和控制自动筛选的 VBA 代码
- 7.1 指定要自动筛选的工作表对象（按需调整代码）
- 7.2 自动筛选图标
- 7.3 检查自动过滤器是否存在
- 7.4 添加/删除自动过滤器
- 7.5 隐藏/显示自动过滤器下拉按钮
- 7.6 计算可见记录
- 7.7 获取自动过滤器范围
- 7.8 显示所有自动筛选结果
- 7.9 应用文本过滤器
- 7.10 应用颜色过滤器
- 7.11 清除现有排序
- 7.12 字母排序
- 7.13 自定义排序顺序
- 7.14 附其它过滤示例
8. 单元格（Cells）和范围(Ranges)
- 8.1 为每个单元格添加前缀或后缀
- 8.2 在单元格之间分配值
- 8.3 Cells 和Ranges VBA 属性和操作
- 8.4 将合并的单元格转换为跨选择居中
- 8.5 在选定单元格周围绘制矩形
- 8.6 选择所有合并单元格
- 8.7 交换两个 Range 区域的位置
9. 图表和图形
- 9.1 了解文档对象模型
- 9.2 图表对象、图表、图表工作表
- 9.3 示例代码
10. 批注
- 10.1 插入、删除和控制批注
- 10.2 带批注的单元格
- 10.3 更改批注显示设置
- 10.4 在单独的页面上显示和打印批注
- 10.5 更改工作表上批注框形状
11. 数据有效性
12. 文件
- 12.1 使用 FileDialog 选择文件
- 12.2 读取文档属性
- 12.3 判断文件是否已被打开
- 12.4 遍历文件夹（和子文件夹）中的所有文件
- 12.5 复制、移动、重命名、删除并确认文件的存在
- 12.6 文件和文件夹的压缩和解压
- 12.7 密码保护 Excel 文件
13 文件夹/目录
- 创建、删除、重命名和确认文件夹的存在
14. 表单控件
- 14.1 表单控件 - 复选框
15. 循环
- 15.1 遍历每个工作表或工作簿
- 15.2 循环选择工作表
16. 定义名称（命名区域）
- 16.1 定义名称 - VBA 属性和操作
17. 将 Excel 保存为 PDF
- 17.1 将 Excel 工作簿、工作表、图表和区域保存为 PDF
18 图片
19. 数据透视表
- 19.1 刷新数据透视表
- 19.2 创建数据透视表
- 19.3 删除数据透视表
- 19.4 更改数据透视表源
- 19.5 关闭所有数据透视表上的自动调整列宽
- 19.6 向数据透视表添加和删除列、行和值
20. 打印设置
20.1 工作表缩放设置
21. 安全 / 保护
- 21.1 保护和取消保护工作表
- 21.2 保护和取消保护工作簿
- 22. 检查当前在 Excel 中选择的内容
23. 在选定单元格周围绘制矩形
24. 控制和管理Excel 表格 - 表（Tables）和列表对象（ListObjects）
25. 工作表

1. 厘米&英寸&像素&Point 的转换

英寸（inch）转换为 Point

Vinchs = 10  ' inch
VPoints = Application.InchesToPoints(Vinchs)
Debug.Print Vpoints

厘米（cm）转

了解本专栏

超级会员免费看

评论

被折叠的条评论为什么被折叠?

到【灌水乐园】发言

查看更多评论

添加红包

成就一亿技术人!

hope_wisdom

发出的红包

打赏作者

←か淡定☆ ヾ 你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20

扫码支付：¥1

获取中

扫码支付

您的余额不足，请更换扫码支付或充值

实付元

使用余额支付

点击重新获取

扫码支付

钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。