判断日期条件

重庆思豆

Sub 部门日报相关()  '部门日报相关
Dim i As Integer
Dim j As Variant
Dim n As Integer
Dim m As Integer
Dim n1 As Integer
Dim m1 As Integer
Dim c As Integer
Dim c1 As Integer
Dim s As Variant
Dim s1 As Single
Dim ss As Single
Dim ss1 As Single
'Dim su As Integer
'Dim su1 As Integer
'Dim sum1 As Integer


With Intersect(ActiveSheet.UsedRange, [f:g])   
    .NumberFormatLocal = "G/通用格式"
    .Value = .Value
End With

j = Range("A58000").End(xlUp).Row  '非空行数

For i = 2 To j

If Application.Text(Application.TODAY() - 1, YYYY / MM / DD) = Application.Text("2018/" & Month(Range("T" & i)) & "/" & Day(Range("T" & i)), YYYY / MM / DD) Then
s = Range("F" & i).Value + s        '商业保费
MsgBox "2018保单笔数" & s
End If

问题1：j = Range("A58000").End(xlUp).Row  '非空行数    这里 A58000 如果改为大于A58000 就会提示"溢出"
问题2：希望实现  将"T"列 中 日期为前一天的记录找出 ，然后对F列求和   但是  If Application.Text(Application.TODAY() - 1, YYYY / MM / DD) = Application.Text("2018/" & Month(Range("T" & i)) & "/" & Day(Range("T" & i)), YYYY / MM / DD) Then   这样表达却不成功  请帮助

as42065300

1. Sub GetSum()
   
2. Dim i&, r&
   
3. Dim sm As Double
   
4. Dim brr
   
5. With Sheet1
   
6.     r = .Cells(Rows.Count, 1).End(3).Row
   
7.     brr = .Range("a1:t" & r)
   
8. End With
   
9. For i = 1 To r
   
10.     If DateDiff("d", brr(i, 20), Date) = 1 Then sm = sm + brr(i, 6)
    
11. Next
    
12. MsgBox "数据中T列日期为前一天的记录求和为：" & sm
    
13. End Sub

复制代码

重庆思豆

With Sheet1
    r = .Cells(Rows.Count, 1).End(3).Row
    brr = .Range("a1:t" & r)
End With   这部分什么用处呢？  r = .Cells(Rows.Count, 1).End(3).Row  这个意思为1列所用的最大单元格      brr = .Range("a1:t" & r)  这部分呢？想知道是什么意思

重庆思豆

as42065300 发表于 2018-9-12 20:00

谢谢   试过  达到目的，可惜不明白  语句含义  能不能给解释下  想学习