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.
. Lần này em ngồi xem các cao thủ biểu diễn thôi...
Tôi không tên Tài bạn ah.
=MAX(INDEX(($C$1:$C$13148=$D2)*SUBTOTAL(9,OFFSET($B$1,ROW(INDIRECT("1:"&ROWS($C$1:$C$13148))),0,(COLUMN(A1)-1)*2+1)),0))Một công thức nữa nhé, không phụ, không biết đáp án của bạn như thế nào nhỉ, tôi cũng tò mò muốn biết.
=MAX(INDEX((--MID($A$1:$A$13148,6,4)=$D2)*SUBTOTAL(9,OFFSET($B$1,ROW(INDIRECT("1:"&ROWS($B$1:$B$13148))),0,(COLUMN(A1)-1)*2+1)),0))Cảm ơn bạn đã nhắc.
.
Cảm ơn bạn đã nhắc.
Dựa trên lời nhắc của bạn Chim Hồng chủ topic chú ý: Thêm dòng tiêu đề cho dữ liệu, dữ liệu từ dòng thứ 2 với các công thức bên trên.
Làm vui mà bạn Hồng Chim có gì mà phải thông cảm bạn
=MAX(INDEX( SUBTOTAL(9,OFFSET($B$1,ROW($1:$15000)-1,,COLUMN(A1)*2-1))*($C$1:$C$15000=$D2),0))không đơn giản như Phong đệ thấy đâu , cái khúc cua này mới hấp dẫn nèHa ha. Còn cao thủ nào chưa xuất chiêu thì hãy ra tay nốt đi cho em mở mang với. Cảm ơn anh Chim Hồng- trưởng ban tổ chức của đại hội võ lâm cao thủ ...
Đúng là bạn Hồng Chim nhìn nhận vấn đề tổng quan. Chờ bạn Chim Hồng giải quyết vụ này cho gọn.
(Vui chút nha)
Đúng là bạn Hồng Chim nhìn nhận vấn đề tổng quan. Chờ bạn Chim Hồng giải quyết vụ này cho gọn.
Bạn thật là giỏi trên nhiều lĩnh vực qua các bài trên GPE. Quả là: Vừa Hồng vừa Chim (quên vừa Chuyên)
=MAX(INDEX( SUBTOTAL(9,OFFSET($B$1,ROW($1:$15000)-1,,COLUMN(A1)*2-1))*($C$1:$C$15000=$D2),0))=MAX(INDEX( SUBTOTAL(9,OFFSET($B$1,ROW($1:$15000)-1,,COLUMN(B1)*2-1))*([COLOR=#ff0000][SIZE=4][B]$C$3:$C$15002[/B][/SIZE][/COLOR]=$D2)*($C$1:$C$15000=$D2),0))=MAX(INDEX( SUBTOTAL(9,OFFSET($B$1,ROW($1:$15000)-1,,COLUMN(C1)*2-1))*([SIZE=4][COLOR=#ff0000][B]$C$5:$C$15004[/B][/COLOR][/SIZE]=$D2)*($C$1:$C$15000=$D2),0))=MAX(INDEX( SUBTOTAL(9,OFFSET($B$1,ROW($1:$15000)-1,,COLUMN(D1)*2-1))*($C$1:$C$15000=$D2)*([SIZE=4][COLOR=#ff0000][B]$C$7:$C$15006[/B][/COLOR][/SIZE]=$D2),0))=MAX(INDEX(($C$1:$C$13148=$D2)*SUBTOTAL(9,OFFSET($B$1,ROW(INDIRECT("1:"&ROWS($C$1:$C$13148)))[COLOR=#ff0000][B]-1[/B][/COLOR],0,(COLUMN(A1)-1)*2+1)),0))thì dùng được cho cột E , các cột khác ... hên xui
=MAX(INDEX(SUBTOTAL(9,OFFSET($B$1,ROW(OFFSET($C$1,MATCH($D2,$C$1:$C$13148,0)-1,):OFFSET($C$1,LOOKUP($D2,$C$1:$C$13148,ROW($C$1:$C$13148)-ROW($C$1))-2*(COLUMN(A:A)-1),))-1,,(COLUMN(A:A)-1)*2+1)),0))
