duchuynh103
Thành viên thường trực
- Tham gia
- 25/9/07
- Bài viết
- 209
- Được thích
- 146
Mời bạn xem file xem được chưa nhé.Mình có 1 bảng nhập liệu theo trình tự thời gian không liên tục, bây giờ muốn thống kê theo định kỳ không gián đoạn. Nhờ các bạn ra tay chỉ giáo. Nội dung cụ thể ở file kèm theo.
Mời bạn xem file xem được chưa nhé.
Cái này mà VBA thì.. đồ bỏ ---> AutoFilter rồi copy paste sang là xong!Thanks everybody. Bi giờ mình muốn Chỉ từ bảng dữ liệu làm sao để lọc ra từng tháng mà không sử dụng ket qua trung gian của bang thống kê. Các bạn giúp mình với.
Bạn có trả lời nhầm bài nào không vậy?? Tác giả đâu có yêu cầu VBA gì đâu. Mà file này sao mà dùng AutoFilter được.Cái này mà VBA thì.. đồ bỏ ---> AutoFilter rồi copy paste sang là xong!
Còn công thức uh? Cũng chỉ là các công thức trích lọc bình thường thôi mà bạn ---> Trên diển đàn này có cả đóng rồi còn gì
Sao bạn không nói luôn từ đầu nhỉ. Mời bạn xem file.Thanks everybody. Bi giờ mình muốn Chỉ từ bảng dữ liệu làm sao để lọc ra từng tháng mà không sử dụng ket qua trung gian của bang thống kê. Các bạn giúp mình với.
nếu vậy thì công thức Sumproduct((......= Max....)) này bạn phải cộng nhiều lần. Ở đây chỉ có A,B,C,D,E : 5 tên thì được nhưng ngộ nhỡ nó có tới n tên thì công thức này chắc không thể được vì nó sẽ rối mắt của bạn.Thanks mọi người, đặc biệt là huuthang_bd đã hướng dẫn cho mình công thức sử dụng hàm Sumproduct((......= Max....)) rất hay. Nhưng quả thật mình chưa hiểu hết ý nghĩa của hàm. Do đó, mong huuthang_bd giúp luôn cho mình theo yêu cầu trong file. Cảm ơn.
Bạn chưa hiểu hết ý nghĩa của công thức mà lại muốn có một công thức phức tạp hơn??? Tôi thấy để như vậy là hợp lý rồi, còn có thể biết A là bao nhiêu, B là bao nhiêu. Còn nếu như bạn muốn nghiên cứu công thức "dễ hiểu" hơn thì xem trong file của bạn hong gam. Nếu là tôi thì tôi cũng chỉ làm được như thế thôi.Thanks mọi người, đặc biệt là huuthang_bd đã hướng dẫn cho mình công thức sử dụng hàm Sumproduct((......= Max....)) rất hay. Nhưng quả thật mình chưa hiểu hết ý nghĩa của hàm. Do đó, mong huuthang_bd giúp luôn cho mình theo yêu cầu trong file. Cảm ơn.
Tôi thấy để như vậy là hợp lý rồi...Nhân tiện đây tôi cũng xin lưu ý các bạn. Khi nhờ người khác giúp đỡ thì nên đưa ra yêu cầu cuối cùng của mình, đừng dắt người khác đi lòng vòng theo ý tưởng của mình. Rất mất thời gian.
\To huuthang_bd:
Cảm ơn huuthang nhiều vì đã giúp đỡ, Tuy nhiên tôi muốn hỏi:
- Cái hợp lý của mình có phải chăng cũng là của người khác?
- Có lúc nào đang làm bài tập bổng bút hết mực chưa?
Chỉ vậy thôi, không tranh luận vấn đề này nữa nhé.
Đúng là tác giả không yêu cầu dùng VBA (nên tôi không làm) chứ không phải bài này không dùng AutoFilter đượcBạn có trả lời nhầm bài nào không vậy?? Tác giả đâu có yêu cầu VBA gì đâu. Mà file này sao mà dùng AutoFilter được.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Clls As Range, Temp, Tong
Application.ScreenUpdating = False
If Target.Address = "$I$4" Then
For Each Clls In Range("H6:H10")
With Range([A3], [D65536].End(xlUp))
.AutoFilter 2, "<=" & CDbl([I4]): .AutoFilter 3, Clls
If Not .SpecialCells(12).Find([I4]) Is Nothing Then
Temp = .Offset(1).SpecialCells(12).Find([I4]).Offset(, 2)
Else:
Temp = .End(xlDown).End(xlToRight)
End If
Clls.Offset(, 1) = Temp
End With
Tong = Tong + Temp
Next
[I11] = Tong
Sheet1.AutoFilterMode = False
End If
End Sub
Chào bạn,- Cái hợp lý của mình có phải chăng cũng là của người khác?
- Có lúc nào đang làm bài tập bổng bút hết mực chưa?
Chỉ vậy thôi, không tranh luận vấn đề này nữa nhé.
Bạn đưa file có pass thì chỉ có bạn xem thôi chứ ai giúp đượcMình có 1 trường hợp tương tự trong file đính kèm cần nhờ các bạn giúp.