求帮忙修改代码，有关时间段汇总问题，谢谢！

sulli112

Sub 按日期汇总()
Dim ARR(1 To 9999, 1 To 19), d As Date
Sheets.Add.Name = "汇总"
Sheets("汇总").Range("a3").CurrentRegion.ClearContents
bonddate = InputBox("请输入日期")
Date = bonddate
For i = 2 To Sheets.Count
    With Sheets(i)
        R = .Cells(Rows.Count, 2).End(xlUp).Row
        For j = 1 To R
            If Date = .Cells(j, 2).Value And .Cells(j, 2).Value <> "" Then
                n = n + 1
                For k = 1 To 19
                    ARR(n, k) = .Cells(j, k)
                Next
            End If
Next
    End With
Next
Sheets("汇总").[A3].Resize(9999, 20) = ARR
End Sub
1‘清教一下，红色字段要怎么修改，使得date=inputbox输入的日期，而不是date保持等于系统日期
2。怎么修改使得inputbox输入2020/8/3-2020/8/12这段时间，系统可以自动汇总在其他表中B列日期包括等于这段时间段内的数据到汇总表中

sulli112

Sub 按日期汇总()
Dim ARR(1 To 9999, 1 To 19), d As Date

Sheets("汇总").Range("a3").CurrentRegion.ClearContents
d = InputBox("请输入日期")
For i = 2 To Sheets.Count
    With Sheets(i)
        R = .Cells(Rows.Count, 2).End(xlUp).Row
        For j = 1 To R
            If d = .Cells(j, 2).Value And .Cells(j, 2).Value <> "" Then
                n = n + 1
                For k = 1 To 19
                    ARR(n, k) = .Cells(j, k)
                Next
            End If
        Next
    End With
Next
Sheets("汇总").[A3].Resize(9999, 20) = ARR
End Sub
一天汇总我可以修改出来，一段时间就不可以了

sulli112

Sub 按日期汇总()
Dim ARR(1 To 9999, 1 To 19), d As Date

Sheets("汇总").Range("a3").CurrentRegion.ClearContents
d = InputBox("请输入日期")

For i = 2 To Sheets.Count
    With Sheets(i)
        R = .Cells(Rows.Count, 2).End(xlUp).Row
        For j = 1 To R
            If d = .Cells(j, 2).Value And .Cells(j, 2).Value <> "" Then
                n = n + 1
                For k = 1 To 19
                    ARR(n, k) = .Cells(j, k)
                Next
            End If
        Next
    End With
Next
Sheets("汇总").[A3].Resize(9999, 20) = ARR
End Sub
这个只可以用某一天的，取值时间段的请问一下要怎么修改呢

长剑八尺

没有容错代码,假设都是按日期格式填写的.

1. Sub 按日期汇总()
   
2. Dim ARR(1 To 9999, 1 To 19), d As Date
   
3. 
   
4. Sheets("汇总").Range("a3").CurrentRegion.ClearContents
   
5. d1 = InputBox("请输入开始日期,格式: 2020/8/1")
   
6. d2 = InputBox("请输入结束日期,格式: 2020/8/2")
   
7. d1 = CDate(d1): d2 = CDate(d2)
   
8. For i = 2 To Sheets.Count
   
9.     With Sheets(i)
   
10.         R = .Cells(Rows.Count, 2).End(xlUp).Row
    
11.         For j = 1 To R
    
12.             If d1 <= .Cells(j, 2).Value And d2 >= .Cells(j, 2).Value And .Cells(j, 2).Value <> "" Then
    
13.                 n = n + 1
    
14.                 For k = 1 To 19
    
15.                     ARR(n, k) = .Cells(j, k)
    
16.                 Next
    
17.             End If
    
18.         Next
    
19.     End With
    
20. Next
    
21. Sheets("汇总").[A3].Resize(9999, 20) = ARR
    
22. End Sub

复制代码

sulli112

长剑八尺 发表于 2020-8-22 22:58
没有容错代码,假设都是按日期格式填写的.

CDATE是将输入值转换为日期的意思吗？

smiletwo

尽量别使用系统保留标识作变量

sulli112

smiletwo 发表于 2020-8-23 10:04
尽量别使用系统保留标识作变量

你是说尽量不要用CDATE这个代码吗？还是？不是很懂呢？

smiletwo

是  date

sulli112

smiletwo 发表于 2020-8-23 10:28
是  date

是应为会修改系统的日期缘故吗，我发现之前用DATE会自动修改了系统日期

smiletwo

算是编程ABC吧，尽量避免使用系统保留类标示符作自定义变量