Dim a, b, c
a = Format(Date, "yyyy/m") '当前年月日
MsgBox a '显示日期时间
'当前月份加4
b = DateAdd("m", 4, a)
Debug.Print b
Dim Rng As Range, arr As Variant
Dim EndRow As Long, EndCol As Long
Dim Rngtime As Range
With Sheets("PM")
'获取A列最后一行（非空行）的行号
EndRow = .Cells(.Cells.Rows.Count, 1).End(xlUp).Row
'获取第一行最后一列（非空列）的列号
EndCol = .Cells(1, .Cells.Columns.Count).End(xlToLeft).Column
'保存数据
Set Rng = .Range(.Cells(1, 1), .Cells(EndRow, EndCol))
'存入数组
arr = Rng.Value
'end time
' Set Rngtime = .Range(.Cells(1, 3), .Cells(EndRow, 3))
End With
' 循环筛选符合条件的数据
'
' 重新
筛选两个日期间的全部数据Dim a, b, ca = Format(Date, "yyyy/m") '当前年月日MsgBox a '显示日期时间'当前月份加4b = DateAdd("m", 4, a)Debug.Print bDim Rng As Range, arr As VariantDim EndRow As Long, EndCol As LongDim Rngtime As RangeWith Sheets("PM") '获取A列最后一行（非空行）的行...
Sub lqxs()
Dim Cnn As Object, SQL$, shnm$, arr, i&, j&
Set Cnn = CreateObject("Adodb.Connection")
shnm = Sheet1.Name...
大家好，我是陈小虾，是一名自动化方向的IT民工。写博客是为了记录自己的学习过程，通过不断输出倒逼自己加速成长。但功能说明：由于水平有限，博客中难免会出现一些BUG，或者有更优方案恳请各位大佬不吝赐教！微信公众号：万能的Excel
上一篇我们已经用
VBA
实现SQL检索，并实现相同项求和的功能。那么如何根据
日期
范围
筛选
我们需要的
数据
呢？今天我们看看另外一个SQL查询结构：
SQL = "select 字段1 from [原始
数据
$] where 出库时间 between #开始时间# And ...
贴吧提问《求助 按周期在
日期
数据
里提取最大值最小值，以及周一周天的
数据
》，使用字典嵌套数组可以很方便的获取
数据
注意：对于字典嵌套的数组，不可以像python一样直接对数组元素进行赋值修改，而应该对整个数组重新赋值
如第12行代码如果是 If Weekday(rq) = 2 Then dict(nz)(2) = sj 则会报错
Sub 按
日期
汇总
数据
()
'字典嵌套数组，键为“**年**周”，值为Array(最大值, 最小值, 周一值, 周五值)
Dim arr, i, rq, nz, sj
iamlaosong文
文件的
日期
时间分创建时间和修改时间，文件一旦创建，创建时间就定下不变了，所以日常应用中一般都是取修改时间，我的一个应用（生成二维码）中就是取这个时间判断图片文件是否重新生成。
1、取文件的修改时间
VBA
有专门的函数FileDateTime，如下面的语句：
PicName = ThisWorkbook.Path & "\YiCode.bmp"
Sub 选中列每月合计()
'适用单/多列选中、单/多列部分选中
Dim rng As Range, first_row, last_row, first_col, last_col, col_add, sum_j, i
month_total = Array(1, "本月合计") '每月合计所在列号
Set rng = Intersect(ActiveSheet.UsedRange, Selection
'1.函数作用：返回 Column 英文字........................9
'2.函数作用：查询某一值第num次出现的值................9
'3.函数作用：返回当个人工资薪金所得为2000元(起征点为850元)时的应纳个人所得税税额.............................10
'4.函数作用：从形如"123545ABCDE"的字符串中取出数字....11
'5.函数作用：从形如"ABCD12455EDF"的字符串中取出数字...11
'6.函数作用：按SplitType取得RangeName串值中的起始位置12
'7.函数作用:将金额数字转成中文大写....................13
'8.函数作用:计算某种税金..............................18
'9.函数作用:人民币大、小写转换........................19
'10.函数作用:查汉字区位码.............................20
'11.函数作用:把公元年转为农历.........................21
'12.函数作用:返回指定列数的列标.......................42
'13.函数作用:用指定字符替换某字符.....................43
'14.函数作用:从右边开始查找指定字符在字符串中的位置...43
'15.函数作用:从右边开始查找指定字符在字符串中的位置...44
'16.函数作用:计算工龄.................................44
'17.函数作用:计算
日期
差，除去星期六、星期日...........45
'18.函数作用:将英文字反转的自定函数...................46
'19.函数作用:计算个人所得税...........................46
'20.函数作用:一个能计算是否有重复单元的函数...........47
'21.数字金额转中文大写................................48
'22.函数作用:将数字转成英文...........................49
'23.函数作用:人民币大小写转换.........................52
'24.函数作用:获取区域颜色值...........................53
'25.函数作用:获取活动工作表名.........................53
'26.函数作用:获取最后一行行数.........................54
'27.函数作用:判断是否连接在线.........................54
'28.函数作用:币种转换.................................54
'29.函数作用:检验工作表是否有可打印内容...............55
'30.函数作用:查找一字符串(withinstr)在另一字符串中(findstr1)中某一次(startnum)出现时的位置，返回零表示没找到。..................................................57
'31.函数作用:增加文件路径最后的“\”符号..............58
'32.函数作用:计算所得税...............................58
'33.函数作用:从工作表第一行的标题文字以数字形式返回所在列号..................................................58
'34.函数作用:在多个工作表中查找一个范围内符合某个指定条件的项目对应指定范围加总求和..........................59
'35.函数作用:返回 Column 英文字.......................60
'36.函数作用:查找指定列名的列数.......................60
'37.函数作用:文字格式的时间(分:秒)转化为数字格式(秒)..61
'38.函数作用:将"hh:mm:ss"格式的时分秒数转换成秒数.....62
'39.函数作用:金额中文大写转数字.......................62
'40.函数作用:把角度转为度秒分、弧度等显示.............63
'41.函数作用:身份证号码侦测...........................64
'42.函数作用:显示公式.................................65
'43.函数作用:方便财务人员理帐查找.....................66
'44.函数作用:数值转换为字符地址.......................68
'45.函数作用:字符地址转换为数值.......................69
'46.函数作用:等待时间（以秒计算）.....................69
'47.函数作用:得到字符串实际的长度（以单字节记）.......70
'48.函数作用:18位身份证最后一位有效性验证............70
'49.函数作用:计算符合maturity condition的拆解金额....72
'50.函数作用:对多个用同一分隔符分隔的待查找元素，逐一在表区域首列内搜索，将返回选定单元格的值相加，............72
'51.函数作用:根据个人所得税（工资）反算工资数.........73
'52.函数作用:判断表是否存在...........................74
'53.函数作用:角度转弧.................................74
'54.函数作用:比较相同的字符串.........................75
'55.函数作用:对选定的数组进行排序.....................76
'56.函数作用:取得指定月份天数.........................77
'57.函数作用:排序工作表活页薄.........................77
'58.函数作用:统计数组中非重复
数据
个数.................78
'59.函数作用:摘取子字符串.............................79
'60.函数作用:计算20000余个汉字的笔画.................79
'61.函数作用:删除当前工作表中的全部超连接.............80
'62.函数作用:取得相近
数据
.............................81
'63.函数作用:提取定串中汉字...........................81
'64.函数作用:搜索重复
数据
(选定范围)...................81
'65.函数作用:字符型转数字型...........................82
'66.函数作用:小写人民币转大写人民币...................83
'67.函数作用:取得指定月份人星期天个数.................84
'68.函数作用:侦测档案是否包含宏.......................84
'69.函数作用:获取循环参照单元格.......................85
'70.函数作用:创建桌面快捷方式.........................86
'71.函数作用:自动建立多级目录.........................86
'72.函数作用:统计经
筛选
后符合条件的记录条数...........87
'73.函数作用:复制单元格列高与栏宽.....................87
'74.函数作用:取消隐藏工作表（包括
vba
Project工程保护的)88
'75.函数作用:删除单元格自定义名称.....................88
'76.函数作用:从文件路径中取得文件名...................89
'77.函数作用:取得一个文件的扩展名.....................89
'78.函数作用:取得一个文件的路径.......................90
'79.函数作用:十进制转二进制...........................90
'80.函数作用:检查一个数组是否为空.....................90
'81.函数作用:字母栏名转数字栏名.......................91
'82.函数作用:数字栏名转文字栏名.......................91
'83.函数作用:判断一件活页夹中是否还有子目录...........92
'84.函数作用:判断一个文件是否在使用中.................92
'85.函数作用:列出档案详细摘要信息.....................93
'86.函数作用:获取菜单ID编号及名称列表................93
'87.函数作用:状态列动态显示文字.......................94
'88.函数作用:取得一个文件的路径2.....................94
'89.函数作用:取得一个文件的路径3.....................95
'90.函数作用:取得Activecell的栏名....................95
'91.函数作用:取得单元格中指定字符前的字符.............95
'92.函数作用:前单元格指定字符前的字符颜色改成红色.....95
'93.函数作用:根据数字返回对应的字母列号...............96
'94.函数作用:取工作表名字.............................96
'95.函数作用:取消所有隐藏的宏表.......................97
'96.函数作用:导出
VBA
Project代码.....................97
'97.函数作用:导入
VBA
Project代码.....................97
'98.函数作用:取得汉字拼音的第一个字母.................98
'99.函数作用:获取两栏中相同的
数据
....................100
'100.函数作用:选取当前工作表中公式出错的单元格﹐关返回出错个数...............................................101
'101.函数作用:将工作表中最后一列作为页脚打印在每一面页尾101
'102.函数作用:获取vbproject引用项目.................102
'103.函数作用:移除Excel工作表中的外部
数据
连接.......103
'104.函数作用:将选择定单元格作成镜像图片.............103
'105.函数作用:反选择单元格中的数.....................105
'106.函数作用:在Excel中加入一个量度尺(以厘米为单位).106
'107.函数作用:在Excel中加入一个量度尺(以寸为单位)...109
'108.函数作用:取得一个短文件名的长文件名.............111
'109.函数作用:取得临时文件名.........................112
'110.函数作用:等用Shell调用的程序执行完成后再执行其它程序...................................................112
'111.函数作用:将Mouse显示成动画.....................113
'112.函数作用:限制Mouse移动范围.....................114
'113.函数作用:取得当前激活窗品句柄及标题.............114
'114.函数作用:取得屏幕分辨率.........................115
'115.函数作用:自动建立多级目录.......................115
'116.函数作用:将文件长度置零.........................116
'117.函数作用:读取WIN9X / Me共享文件夹密码..........116
'118.函数作用:取得预设的打印机及设置预设的打印机.....119
'119.函数作用:获得当前操作系统的打印机个数及检测打印是否存在.................................................120
'120.函数作用:枚举打印机名称清单.....................120
'121.函数作用:读取网络服务器当前时间.................122
'122.函数作用:下载文件到指定目录.....................123
'123.函数作用:自动映射网络驱动器.....................124
'124.函数作用:自动断开网络驱动器.....................125
'125.函数作用:连接选定单元格中的内容.................125
'126.函数作用:获取一个单元格中有指定字体颜色部份
数据
.126
'127.函数作用:对指定文件加XLS加密...................126
'128.函数作用:选择指定范围内使用了填充颜色的单元格...127
'129.函数作用:在特定的区域内查找文本,返回值是包含查找文本的单元格...........................................127
'130.函数作用:返回特定区域中最大值的地址.............128
'131.函数作用:删除表格中使用范围内的所有空白单元格...129
'132.函数作用:返回数组中有多少个指定的字符串.........129
'133.函数作用:返回当前工作表中引用了指定的单元的地址.130
'134.函数作用:获取Excel中字型列表...................131
'135.函数作用:获取一个字符串中有多少个数字字符.......131
'136.函数作用:在Excel中对多列进行填充...............131
'137.函数作用:对选定的范围进行
数据
填充（忽略单元格格式）132
'138.函数作用:
VBA
Project加密及解密.................132
'139.函数作用:列出收藏夹中的网址.....................133
'140.函数作用:计算两个
日期
之间相隔的年份,比如年龄,工龄等.可计算从1000年01月01日起的
日期
....................134
'141.函数作用:从字符串提取纯数字.....................135
'142.函数作用:将一个数组按升序排列...................136
'143.函数作用:将一个数组按降序排列...................137
'144.函数作用:删除空白列.............................137
'145.函数作用:判断工作表是否为空白...................138
'146.函数作用:将
数据
按类分到不同工作薄...............138
'147.函数作用:单元格内
数据
排序.......................139
'148.函数作用:对多栏排序.............................140
'149.函数作用:返回计算公式的值 [,值的计算公式].......140
'150.函数作用:把第一列=某个值对应的第二列的内容连在一起，并用、隔开...........................................141
'151.函数作用:取得系统使用模式.......................142
'152.函数作用:计算机注销/关机/重启...................142
'153.函数作用:更改计算机名称.........................143
'154.函数作用:从n位开始取出字符串中的汉字、英文字母、数字...................................................143
'155.函数作用:在指定列中寻找含有指定字符串的单元格，并将符合条件的单元格标为红色，并将对应的下一列单元格赋值为1。.....................................................144
'156.函数作用:清除字符串中的空格.....................145
'157.函数作用:查找合并单元格位置.....................145
'158.函数作用:阴阳历转换和阴阳历生日.................145
'159.函数作用:利用数组和Substitute来替换某字符......149
'160.函数作用:一键创建斜线表头.......................150
'161.函数作用:自动获取指定月的工作日.................151
要
VBA
中
筛选
日期
数据
透视表，你可以使用 PivotTable.PivotFields 方法和 PivotField.DataRange 属性。以下是一个示例代码：
```
VBA
Sub FilterPivotTableByDate()
Dim pt As PivotTable
Dim pf As PivotField
Dim rng As Range
Dim startDate As Date
Dim endDate As Date
' 设置
日期
范围
startDate = #1/1/2021#
endDate = #12/31/2021#
' 获取
数据
透视表
Set pt = ActiveSheet.PivotTables("PivotTable1")
' 获取
日期
字段
Set pf = pt.PivotFields("Date")
' 设置
筛选
范围
Set rng = pf.DataRange
' 应用
日期
筛选
器
pf.ClearAllFilters
pf.PivotFilters.Add Type:=xlDateBetween, Value1:=startDate, Value2:=endDate
End Sub
在上述代码中，首先设置了要
筛选
的
日期
范围，然后获取
数据
透视表和
日期
字段。接下来，使用 PivotField.DataRange 属性获取
日期
字段的
数据
范围，并使用 PivotField.PivotFilters.Add 方法将
日期
筛选
器应用于该字段。最后，使用 PivotField.ClearAllFilters 方法清除任何现有的
筛选
器。
