Lượng mưa lớn nhất từng năm và lớn nhất qua các năm đã rõ, nhưng lớn nhất 3 ngày liên tục xác định như thế nào? Có phải là xác định 3 ngày liên tục tính từ ngày có lượng mưa lớn nhất hay không? Vậy ô P93 = 133.5 được tính như thế nào?
Cái nầy chắc chỉ dùng hàm tự tạo thôi.P93= H105+H106+H107, cái đấy chỉ là lượng mưa lớn nhất trong 3 ngày liên tiếp của 1 năm thôi, mình làm được có mấy năm bằng tay nhưng mà toét hết cả mắt để tìm
Option Explicit
Function Max3Ngay(Dau As Long)
Dim Tong As Double, jJ As Byte, Temp As Double, Ng As Byte, Thg As Byte
Dim WF As Object, Rng As Range, Cls As Range
Set WF = Application.WorksheetFunction
For jJ = 2 To 13
Set Rng = Cells(Dau, jJ).Resize(28).SpecialCells(xlCellTypeConstants, 1)
For Each Cls In Rng
Tong = WF.Sum(Cls.Resize(3))
If Tong > Temp Then
Temp = Tong: Ng = Cells(Cls.Row, "A").Value
Thg = jJ - 1
End If
Next Cls
Next jJ
Max3Ngay = Temp & ", Ngày " & Right("0" & CStr(Ng), 2) & "/" & Right("0" & CStr(Thg), 2)
End Function
=MAX(SUBTOTAL(109,OFFSET($B$4:$M$34,ROW($1:$29)-1,COLUMN($A:$L)-1,3,1)))=TEXT(MAX(IF(SUBTOTAL(109,OFFSET($B$4:$M$34,ROW($1:$29)-1,COLUMN($A:$L)-1,3,1))=$P$22,1*(ROW($1:$29)&TEXT(COLUMN($A:$L),"00")),"")),"00""/""00")
Option Explicit
Function Max3Ngay(Dau As Long)
Dim Tong As Double, jJ As Byte, Temp As Double, Ng As Byte, Thg As Byte
Dim WF As Object, Rng As Range, Cls As Range
Set WF = Application.WorksheetFunction
For jJ = 2 To 13
Set Rng = Cells(Dau, jJ).Resize(28).SpecialCells(xlCellTypeConstants, 1)
For Each Cls In Rng
If Cls.Offset(1).Value > 0 And Cls.Offset(2).Value > 0 And Cls.Value > 0 Then
Tong = WF.Sum(Cls.Resize(3))
If Tong > Temp Then
Temp = Tong: Ng = Cells(Cls.Row, "A").Value
Thg = jJ - 1
End If
End If
Next Cls
Next jJ
If Temp > 0 Then _
Max3Ngay = Temp & ", Ngày " & Right("0" & CStr(Ng), 2) & "/" & Right("0" & CStr(Thg), 2)
End FunctionTại bạn đưa kết quả không đúng vào file thôimình cảm ơn tất cả mọi người đã giúp đỡ mình
Nhưng mà mình cung cấp thiếu thông tin cho mọi người. Sorry.... mưa 3 ngày max là tổng lượng mưa lớn nhất trong 3 ngày có mưa liên tiếp ( 2 ngày có mưa và 1 ngày ko có mưa thì cũng ko phải là giá trị mình cần tìm các bạn ak)
=MAX(IF(SUBTOTAL(2,OFFSET($B$4:$M$34,ROW($1:$29)-1,COLUMN($A:$L)-1,3,1))=3,SUBTOTAL(9,OFFSET($B$4:$M$34,ROW($1:$29)-1,COLUMN($A:$L)-1,3,1)),""))=TEXT(MAX(IF(IF(SUBTOTAL(2,OFFSET($B$4:$M$34,ROW($1:$29)-1,COLUMN($A:$L)-1,3,1))=3,SUBTOTAL(9,OFFSET($B$4:$M$34,ROW($1:$29)-1,COLUMN($A:$L)-1,3,1)),"")=$P$22,100*ROW($1:$29)+COLUMN($A:$L),"")),"00""/""00")bạn ơi! mình chạy thử thì thấy lượng mưa 3 ngày max là nằm ở cuối tháng này và đầu tháng kia(31/3+1/4+2/4) thì nó sẽ không ghi nhận kết quả này
Option Explicit
Function Max3Ngay(Dau As Long, Optional Nhuan As Byte = 0)
Dim Tong As Double, jJ As Byte, Temp As Double
Dim SoNg As Byte, Ng As Byte, Thg As Byte, Dem As Byte
Dim WF As Object, Rng As Range, Cls As Range
Set WF = Application.WorksheetFunction
For jJ = 2 To 13
SoNg = Choose(jJ - 1, 31, 28 + Nhuan, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)
Set Rng = Cells(Dau, jJ).Resize(SoNg).SpecialCells(xlCellTypeConstants, 1)
Dem = 0
For Each Cls In Rng
Dem = Dem + 1
If Dem < SoNg - 1 Then
If Cls.Offset(1).Value > 0 And Cls.Offset(2).Value > 0 And Cls.Value > 0 Then
Tong = WF.Sum(Cls.Resize(3))
If Tong > Temp Then
Temp = Tong: Ng = Cells(Cls.Row, "A").Value
Thg = jJ - 1
End If
End If
ElseIf Dem = SoNg - 1 Then
If Cls.Value > 0 And Cls.Offset(1).Value > 0 And Cells(Dau, jJ + 1).Value > 0 Then
Tong = WF.Sum(Union(Cls.Resize(2), Cells(Dau, jJ + 1))) '<=|'
If Tong > Temp Then
Temp = Tong: Ng = Cells(Cls.Row, "A").Value
Thg = jJ - 1
End If
End If
ElseIf Dem = SoNg Then '
If Cls.Value > 0 And Rng(1).Offset(1).Value > 0 And Rng(1).Offset(1, 1).Value > 0 Then
Tong = WF.Sum(Union(Cls, Rng(1).Offset(, 1).Resize(2)))
If Tong > Temp Then
Temp = Tong: Ng = Cells(Cls.Row, "A").Value
Thg = jJ - 1
End If
End If
End If
Next Cls
Next jJ
If Temp > 0 Then _
Max3Ngay = Temp & ", Ngày " & Right("0" & CStr(Ng), 2) & "/" & Right("0" & CStr(Thg), 2)
End FunctionNếu có yêu cầu kiểu này thì công thức xin thua, chỉ có thể lập trình thôi
Function Max3Ngay(NgayDau As Range, Nam As Long, kieu As Boolean)
Dim tmpSumMax As Double, SumMax As Double
Dim tmp1 As Double, tmp2 As Double, tmp3 As Double, lDay As Long
Application.Volatile
On Error Resume Next
For lDay = DateSerial(Nam, 1, 1) To DateSerial(Nam, 12, 29)
With NgayDau
tmp1 = CDbl(.Offset(Day(lDay) - 1, Month(lDay) - 1))
tmp2 = CDbl(.Offset(Day(lDay + 1) - 1, Month(lDay + 1) - 1))
tmp3 = CDbl(.Offset(Day(lDay + 2) - 1, Month(lDay + 2) - 1))
End With
If tmp1 > 0 And tmp2 > 0 And tmp3 > 0 Then
tmpSumMax = tmp1 + tmp2 + tmp3
If tmpSumMax > SumMax Then
SumMax = tmpSumMax
Max3Ngay = IIf(kieu, lDay, SumMax)
End If
End If
Next
End FunctionNhờ bác xác định hộ em tổng lượng mưa 5 ngày (7 ngày) lớn nhất với. Cám ơn bác
=MAX(SUBTOTAL(109,OFFSET($B$4:$M$34,ROW([COLOR=#ff0000][B]$1:$29[/B][/COLOR])-1,COLUMN($A:$L)-1,[B][COLOR=#ff0000]3[/COLOR][/B],1)))=MAX(SUBTOTAL(109,OFFSET($B$4:$M$34,ROW([COLOR=#ff0000][B]$1:$27[/B][/COLOR])-1,COLUMN($A:$L)-1,[B][COLOR=#ff0000]5[/COLOR][/B],1)))=TEXT(MAX(IF(SUBTOTAL(109,OFFSET($B$4:$M$34,ROW([COLOR=#ff0000][B]$1:$29[/B][/COLOR])-1,COLUMN($A:$L)-1,[B][COLOR=#ff0000]3[/COLOR][/B],1))=[COLOR=#ff0000][B]$P$22[/B][/COLOR],1*(ROW([COLOR=#ff0000][B]$1:$29[/B][/COLOR])&TEXT(COLUMN($A:$L),"00")),"")),"00""/""00")=TEXT(MAX(IF(SUBTOTAL(109,OFFSET($B$4:$M$34,ROW([COLOR=#ff0000][B]$1:$27[/B][/COLOR])-1,COLUMN($A:$L)-1,[COLOR=#ff0000][B]5[/B][/COLOR],1))=[COLOR=#ff0000][B]$R$22[/B][/COLOR],1*(ROW([COLOR=#ff0000][B]$1:$27[/B][/COLOR])&TEXT(COLUMN($A:$L),"00")),"")),"00""/""00")Rất rất cám ơn bác nhé, may nhờ có bác em làm kịp không teo em, em làm được rồi.
