![](https://img-blog.csdnimg.cn/20201014180756918.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
VBA
文章平均质量分 62
jie_ming514
工欲善其事,必先利其器
展开
-
VBA实战(11) - 工作表(Sheet) 操作汇总
下面案例为读取所有的 Sheet 页,检查是否有“模切绩效工资汇总表” Sheet 页。原创 2022-08-06 22:48:02 · 4885 阅读 · 1 评论 -
VBA实战(10) - 日期处理汇总
日期处理汇总定义一个日期v_date = Date ' 今天,格式为:yyyy-MM-ddv_time = Now ' 此时,格式为:yyyy-MM-dd HH:mm:ssv_date2 = #"2021-06-01" '指定时间v_date3 = CDate("2021-06-01")日期格式化Format(Date, "yyyy-MM-dd")日期处理对日期进行处理,得到想要的目标日期' 今天today = Date' 昨天yesterday = today - 1原创 2022-01-12 23:17:44 · 9098 阅读 · 0 评论 -
VBA实战(09) - 工作簿(WorkBook)
工作簿(workbook)汇总打开一个文件Set originalWb = Workbooks.Open(originalFileStr)如果文件是带用户名和密码时,可以使用如下函数。Set originalWb = Workbooks.Open(originalFileStr, 0, True, "用户名", "密码")保存 Excel 文件targetWb.Save关闭 Excel 文件targetWb.Close如果关闭前没有报错,Excel 会提示要不要保存。如果你的流程原创 2022-01-05 22:50:50 · 2775 阅读 · 0 评论 -
VBA实战(08) - 文件和文件夹处理
文件与文件夹汇总选择文件下面代码可以弹出文件框,让用户选中文件,其中 strFile 为选中后的地址文件名,取消或关闭文件框均为退出程序。'弹窗选择文件With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = False '单选择 .Filters.Clear '清除文件过滤器 .Title = "请选择文件" .InitialFileName = "" .Filt原创 2022-01-05 22:46:08 · 2616 阅读 · 0 评论 -
VBA实战(07) -字典(Dictionary)
VBA 中字典(Dictionary)的使用定义 MapDim dict' 创建DictionarySet dict = CreateObject("Scripting.Dictionary")新增元素' 增加项目dict.Add "A", 300dict.Add "B", 400dict.Add "C", 500删除元素dict.Remove ("A")' 删除所有项目dict.Removeall获取字典元素的个数dict.Count获取字典的值Value =原创 2022-01-05 22:38:36 · 9167 阅读 · 0 评论 -
VBA实战(06) - 数组
Class06. 数组定义下面是几种常见定义数组的方法。' 定义一个一维数组,数据类型为Variant,长度从0到5,实际控件有六个,长度为5Dim arr(5) as String' 定义一个一维数组,数据类型为Variant,长度从1到5,实际控件有六个,长度为5Dim arr(1 to 5) as String' 可以省略As后面部分,等于 Dim arr2 () as VariantDim arr(5)' 一维数组,下标从0开始arr2 = Array("你好", "世界")'原创 2021-12-30 20:55:53 · 2875 阅读 · 0 评论 -
VBA实战(05) - 常用函数总结
Class05. 常用函数总结字符串处理函数含义Trim(string)去掉string左右两端空白Ltrim(string)去掉string左端空白Rtrim(string)去掉string右端空白Len(string)计算string长度Left(string, x)取string左段x个字符组成的字符串Right(string, x)取string右段x个字符组成的字符串Mid(string, start, x)取string从原创 2021-12-30 20:54:36 · 617 阅读 · 0 评论 -
VBA实战(04) - 决策与循环
Class04. VBA - 决策与循环1. 决策1.1. if语句语法如下。if boolean_expression then Statement 1 ..... ..... Statement nend if案例:Sub if_demo_Click() Dim x As Integer Dim y As Integer x = 234 y = 32 If x > y Then MsgBox ("X 的值原创 2021-12-30 20:51:35 · 1567 阅读 · 0 评论 -
VBA实战(03) - Excel 对象
Class03. VBA - Excel 对象1. Excel 的结构一个完整的Excel应用由工作簿(workbook)、工作表(Sheet)、单元格(Cell)、范围(Range)、行(Row)和 列(Column)是由一些单元格的集合。原创 2021-12-30 20:49:59 · 1940 阅读 · 0 评论 -
VBA实战(02) - 变量、数据类型和运算符
Class02. VBA - 变量、数据类型和运算符1. 变量1.1. 变量的定义和命名变量是一个指定的内存位置,用于保存脚本执行过程中可以更改的值。以下是命名变量的基本规则。变量名称必须使用一个字母作为第一个字符。变量名称不能使用空格,句点(.),感叹号(!)或字符@,&,$,#。变量名称的长度不能超过255个字符。不能使用Visual Basic保留关键字作为变量名称。1.2. 声明语法在VBA中,变量需要在使用它们之前声明。Dim <<variable_na原创 2021-09-13 22:31:02 · 1976 阅读 · 1 评论 -
VBA实战(01) - 环境配置
Class 01. VBA - 环境准备1. 使用前准备1.1. 如果启用宏设置默认情况下,Excel 的宏是被禁用的,我们需要先将其启动起来,启动的链接如下https://zhidao.baidu.com/question/454415867.html1.2. 打开 Excel 的开发工具默认情况下,在 Excel 的菜单中是不开启开发工具菜单的,现在我们开发需要“开发工具”菜单,所以需要先在 Excel 中启用“开发工具”。开启的链接如下:https://jingyan.baidu.原创 2021-08-29 15:37:23 · 5610 阅读 · 2 评论