tekan đã viết:tìm 3 ô liên tiếp trong mảng có tổng lớn nhất
Các bác chỉ giúp em với ,cái bài tập của em nó yêu cầu thế này :
CHo bảng lượng mưa trong năm, chỉ ra 3 ngày liên tiếp có tổng lượng mưa là lớn nhất ( 3 ngày cùng 1 tháng ) .
Cảm ơn các bác trước.
Bấm Ctrl + Shift + Enter đễ kết thúc
tekan đã viết:tìm 3 ô liên tiếp trong mảng có tổng lớn nhất
Các bác chỉ giúp em với ,cái bài tập của em nó yêu cầu thế này :
CHo bảng lượng mưa trong năm, chỉ ra 3 ngày liên tiếp có tổng lượng mưa là lớn nhất ( 3 ngày cùng 1 tháng ) .
Cảm ơn các bác trước.
tekan đã viết:
Function BaNgay(Mang As Range)
Dim DD As Integer, DC As Integer
Dim CD As String, CC As String
Dim i As Integer, j As Integer
Dim LuongMua As Variant
Dim LM1 As Variant, LM2 As Variant, LM3 As Variant
Dim Ngay1 As Date, Ngay2 As Date, Ngay3 As Date
DD = Mang.Row: DC = DD + Mang.Rows.Count - 1
CD = Mang.Column: CC = CD + Mang.Columns.Count - 1
For i = CD To CC
For j = DD To DC - 2
If (Cells(j, i) + Cells(j + 1, i) + Cells(j + 2, i)) > LuongMua Then
LuongMua = Cells(j, i) + Cells(j + 1, i) + Cells(j + 2, i)
LM1 = Format(Cells(j, i), "#,#00.00")
LM2 = Format(Cells(j + 1, i), "#,#00.00")
LM3 = Format(Cells(j + 2, i), "#,#00.00")
Ngay1 = DateSerial(2007, i - (CD - 1), j - (DD - 1))
Ngay2 = DateSerial(2007, i - (CD - 1), j + 1 - (DD - 1))
Ngay3 = DateSerial(2007, i - (CD - 1), j + 2 - (DD - 1))
End If: Next: Next
BaNgay = " - Ngay " & Ngay1 & ": " & LM1 & Chr(10) & " - Ngay " & Ngay2 & ": " & LM2 & Chr(10) & " - Ngay " & Ngay3 & ": " & LM3 & Chr(10) & " - Tong luong mua : " & Format(LuongMua, "#,#00.00")
End Function
Option Explicit [b]
Sub Max3()[/b]
On Error Resume Next
Dim iJ As Long, Iz As Long, lRow As Long
Dim Temp3, StrC As String
For iJ = 2 To 13
lRow = Range(Chr(64 + iJ) & CStr(65432)).End(xlUp).Row - 6
For Iz = 2 To lRow
If Temp3 < Cells(Iz, iJ) + Cells(Iz + 1, iJ) + Cells(Iz + 2, iJ) Then
Temp3 = Cells(Iz, iJ) + Cells(Iz + 1, iJ) + Cells(Iz + 2, iJ)
StrC = Range(Cells(Iz, iJ), Cells(Iz + 2, iJ)).Address
End If
Next Iz
Next iJ
MsgBox StrC [COLOR="Blue"] ' $G$20:$G$22 [/COLOR][b]
End Sub [/b]
Mấy công thức đó là của tekan, em không sửa vì tôn trọng thôi.anhtuan1066 đã viết:
Vậy Bắp có thể cho biết tại sao COUNTIF như tôi nói ở trên lại ko dùng dc? Công thức vậy nhìn qua thì thấy rất hợp lý cho mà: Đếm những em nào >0.. hoặc đếm những em nào khác rổng.. Sao lại ko ra kết quả nhỉ?
