月份区间VBA问题

lkk0063

当我点击Auto Filter按钮
想要改成“多个月份”输入
例如：输入1/2/3月
显示数量1/2/3月项目的加总数量

大灰狼1976

输入格式变了（变成month/month/.../...），n不再是数值型，所以错误提示需要你自己修改一下。
代码如下：

1. Private Sub CommandButton1_Click()
   
2. Dim n, arr, i&, mon&, ye&
   
3. n = Split(InputBox("Pls inout month"), "/")
   
4. ReDim arr(0 To (UBound(n) + 1) * 2 - 1)
   
5. For i = 0 To UBound(n)
   
6.   mon = Val(n(i)) + 1
   
7.   If mon > 12 Then
   
8.     mon = 1
   
9.     ye = 2020
   
10.   Else
    
11.     ye = 2019
    
12.   End If
    
13.   arr(i * 2) = 1
    
14.   arr(i * 2 + 1) = DateSerial(ye, mon, 0)
    
15. Next i
    
16. With Sheets("AA")
    
17. .Range("H2").Select
    
18. .Range("A2:B2" & [a65536].End(3).Row).AutoFilter Field:=1, Operator:=xlFilterValues, Criteria2:=arr
    
19. Range("H2") = Application.Subtotal(103, Range("A3:A65536"))
    
20. End With
    
21. End Sub

复制代码

大灰狼1976

摸清了规则，这样更简单一点。

大灰狼1976

1. Private Sub CommandButton1_Click()
   
2. Dim n, arr, i&
   
3. n = Split(InputBox("Pls inout month"), "/")
   
4. ReDim arr(0 To (UBound(n) + 1) * 2 - 1)
   
5. For i = 0 To UBound(n)
   
6.   arr(i * 2) = 1
   
7.   arr(i * 2 + 1) = "2019" & "/" & n(i) & "/" & 1
   
8. Next i
   
9. With Sheets("AA")
   
10.   .Range("A2:B" & [a65536].End(3).Row).AutoFilter Field:=1, Operator:=xlFilterValues, Criteria2:=arr
    
11.   .Range("H2") = Application.Subtotal(103, Range("A3:A65536"))
    
12. End With
    
13. End Sub

复制代码

lkk0063

大灰狼1976 发表于 2020-3-17 12:32

版主你好
想要更改时, 发现执行出现 "编译错误，变数未定义"请问这要如何定义变数?
Operator:=xlFilterValues

大灰狼1976

不知道你怎么修改的不好判断，是不是设置了强制声明变量？最好发出错的附件上来。

爱疯

自动筛出的操作界面，不比代码差吧

lkk0063

大灰狼1976 发表于 2020-3-17 16:34
不知道你怎么修改的不好判断，是不是设置了强制声明变量？最好发出错的附件上来。

版主你好
如下图, 一开始想要修改, 就出现这个画面, 是否可再提示, 谢谢

大灰狼1976

把xlFilterValues改成7试试，不行就发附件上来。

lkk0063

大灰狼1976 发表于 2020-3-18 10:56
把xlFilterValues改成7试试，不行就发附件上来。

你好,
謝謝版主, 我找到用其他方法了, 這比較符合我的需求

1. Private Sub CommandButton1_Click()
   
2. Dim i As Date, j As Date
   
3. i = InputBox("請輸入 『開始』 查詢時間　輸入格式 如 2006/1/1")
   
4. j = InputBox("請輸入 『結束』 查詢時間　輸入格式 如 2006/1/1")
   
5. With Sheets("AA")
   
6. .Range("A2:B2" & [a65536].End(3).Row).AutoFilter Field:=1, Criteria1:="<" & j, Operator:=xlAnd, Criteria2:=">" & i
   
7. .Range("H2") = Application.Subtotal(103, Range("A3:A65536"))
   
8. End With
   
9. End Sub

复制代码