VBA 精选示例代码库

VBA 精选示例代码库_第1张图片



目录

  • 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.3.1 从工作表中引用 Ranges 和 Cells
      • 8.3.2 为变量分配 Ranges
      • 8.3.3 选择 Ranges 和 Cells
      • 8.3.4 更改 Range 或 Cell 的值
      • 8.3.5 将单元格的值赋给变量
      • 8.3.6 计算 Cells、Rows 和 Columns 个数
      • 8.3.7 遍历区域内的 Cells、Rows和 Columns
      • 8.3.8 插入Rows, Columns, Ranges 和 cells
      • 8.3.9 删除Rows、Columns、Ranges和 Cells
      • 8.3.10 复制和粘贴
      • 8.3.11 不使用剪贴板复制和粘贴
      • 8.3.12 行或列中最后一个非空单元格(行号或列号)
      • 8.3.13 查找 Range 内的第一个 Cell 所在的行/列
      • 8.3.14 查找活动单元格的行和列
    • 8.4 将合并的单元格转换为跨选择居中
    • 8.5 在选定单元格周围绘制矩形
    • 8.6 选择所有合并单元格
    • 8.7 交换两个 Range 区域的位置
  • 9. 图表和图形
    • 9.1 了解文档对象模型
    • 9.2 图表对象、图表、图表工作表
    • 9.3 示例代码
      • 9.3.1 图表对象 - ChartObjects
      • 9.3.2 图表工作表 - Chart Sheets
      • 9.3.3 图表 - Chart
      • 9.3.4 图表轴- Axis
      • 9.3.5 网络线
      • 9.3.6 图表标题
      • 9.3.7 图例
      • 9.3.8 绘图区域
      • 9.3.9 系列 - Series
  • 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 的转换

  1. 英寸(inch)转换为 Point

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

  2. 厘米(cm)转

你可能感兴趣的:(VBA杂坛,VBA,Excel,代码片断,Office编程)