xin code thay thế hàm Sumifs

[nguenson]

xin code thay thế hàm Sumifs ,

 

[Maika8008]

Không biết trời cao đất dày là gì.

 

[Hoàng Tuấn 868]

Không biết trời cao đất dày là gì.

Thôi, bác có thì cho đi, lại còn tính dầy với mỏng làm gì.

 

[Maika8008]

Chẳng biết thớt thực sự muốn gì, chỉ buông 1 câu gọn lỏn như vậy thì chỉ có trời biết.

 

[Hoàng Tuấn 868]

Chẳng biết thớt thực sự muốn gì, chỉ buông 1 câu gọn lỏn như vậy thì chỉ có trời biết.

Thôi, em cũng theo bác, gặp những ca khó thế này đứng hóng vậy.

 

[SA_DQ]

Ca này không có khó, chỉ là khó đúng ý của chủ bài đăng mà thôi:

 

[Hoàng Tuấn 868]

Ca này không có khó, chỉ là khó đúng ý của chủ bài đăng mà thôi:

Hì hì, anh lại kiêm thêm nghề thầy đoán nữa rồi.

 

[SA_DQ]

Hì hì, anh lại kiêm thêm nghề thầy đoán nữa rồi.

Thì thường hàm DSUM() hay SUMproduct() là thay hàm sumIf() được;
Nhưng hàm sau viết trong VBA khó hơn, theo mình, nên mình chọn cách này; & thường cách này nhiều người không hứng lắm!

Option Explicit
Sub TongHopSoLieu()
 Dim WF As Object, Sh As Worksheet, CSDL As Range
 Dim Rws As Long, J As Long, MyColor As Integer
 
 Set WF = Application.WorksheetFunction
 Sheets("GPE").Select
 Set Sh = ThisWorkbook.Worksheets("Data")
 Rws = Sh.[b5].CurrentRegion.Rows.Count
 Set CSDL = Sh.[B4].Resize(Rws, 16)
 Sh.Range("GPE")(8).Value = [b5].Value  'Tháng  '
 Sh.Range("GPE")(9).Value = [B4].Value  'Nam  '
 Sh.Range("GPE")(6).Value = [b6].Value  'Thành Fó  '
 Sh.Range("GPE")(7).Value = [B7].Value  '2uân  '
 Application.ScreenUpdating = False
 For J = 16 To 135 'Dòng Cuôi Có Du Liêu Cua Trang Report    '
    If Cells(J, "B").Value <> "" Then
        Sh.Range("GPE")(10).Value = Cells(J, "B").Value
        Cells(J, "F").Value = WF.DSum(CSDL, Sh.[P4], Sh.Range("GPE"))
    End If
 Next J
 Randomize:                      MyColor = 34 + 9 * Rnd() \ 1
 Application.ScreenUpdating = True
 Union([B7], [B11]).Interior.ColorIndex = MyColor
 MsgBox "Xong Rôi!", , "GPE.COM Xin Chào!"
 End Sub

 

[VetMini]

Không biết trời cao đất dày là gì.

Trời cao thì đặt một cái hàm chịu khó đọc và lọc từng dòng.
Đất dầy thì cứ đặt một cái hàm gọi hàm Application.SumIfs
Nếu nổi hứng biển rộng sông dài chơi Excel thượng cổ không có hàm sumifs thì thay bằng Application.sumproduct.

 

[Maika8008]

Trời cao thì đặt một cái hàm chịu khó đọc và lọc từng dòng.
Đất dầy thì cứ đặt một cái hàm gọi hàm Application.SumIfs
Nếu nổi hứng biển rộng sông dài chơi Excel thượng cổ không có hàm sumifs thì thay bằng Application.sumproduct.

Thớt nhờ vả nhưng lối nói không chấp nhận được chút nào, nếu không muốn nói là xấc xược.

 

[VetMini]

Thớt nhờ vả nhưng lối nói không chấp nhận được chút nào, nếu không muốn nói là xấc xược.

Có lẽ bạn tham gia sau thời gian mà một nhơn tài đi xe ma da [sic], COCC ở một Quận thuộc SG lên tiếng giảng đạo dân GPE.

Đại khái lời giảng ấy như vầy:
Mình giúp một người thì là tạo công đức. Vì vậy, mình phải biết ơn người đã tạo cơ hội cho mình tích đức.

Suy từ đó ra, người hỏi là bên thi ân, và người giúp mới cần lễ độ với người hỏi.

Chú thích: từ "công đức", "tích đức" là của người ấy. Không phải tôi cố tình nói lái nói lẹo gì đâu nha.

 

[Maika8008]

Có lẽ bạn tham gia sau thời gian mà một nhơn tài đi xe ma da [sic], COCC ở một Quận thuộc SG lên tiếng giảng đạo dân GPE.

Đại khái lời giảng ấy như vầy:
Mình giúp một người thì là tạo công đức. Vì vậy, mình phải biết ơn người đã tạo cơ hội cho mình tích đức.

Suy từ đó ra, người hỏi là bên thi ân, và người giúp mới cần lễ độ với người hỏi.

Chú thích: từ "công đức", "tích đức" là của người ấy. Không phải tôi cố tình nói lái nói lẹo gì đâu nha.

Hic. Tôi có biết mang máng chuyện của nhơn tai ấy. Ngạo mạn vô lối, không coi ai ra gì và kết cuộc là bị đình chỉ nick.

 

[SA_DQ]

Hic. Tôi có biết mang máng chuyện của nhơn tai ấy. Ngạo mạn vô lối, không coi ai ra gì và kết cuộc là bị đình chỉ nick.

Dạng này như hiện nay thì chưa phạm nội 2ui, . . . .
Làm sao để phạm húy lại là chuyện khác & hay vui hơn . . . .

 

[batman1]

Tôi rất dị ứng với kiểu nói trống không.

Tôi chỉ nói trống không khi tôi cố tình nói trống không để "tỏ thái độ" với ai đó vì lý do nào đó. Thế thôi.

 

[VetMini]

Tôi rất dị ứng với kiểu nói trống không.

Tôi chỉ nói trống không khi tôi cố tình nói trống không để "tỏ thái độ" với ai đó vì lý do nào đó. Thế thôi.

Tôi không rõ ở đất Ngàn Năm Văn Vật, hay đất Thần Kinh (Huế) thế nào.
Chứ ở Hòn Ngọc Viễn Đông mà bạn vào quán la trổng không như thế là bạn mời mọc được chửi vào mặt, trừ phi bạn là người không ai dám động tới. Ví dụ bạn là COCC của chủ tịt Quận nào đó, và cái quán kia thuộc phạm vi của Quận.

COCC: tiếng lóng miền Nam, có nghĩa là Con Ông Cháu Cha.
Hòn Ngọc: ngày xưa, SG được mệnh danh như vậy là vì nó được người Pháp thiết kế và xây theo kiểu Gô Loa. Bây giờ thiết kế theo kiểu Mẽo, nó không thể giữ cái danh hiệu đó nữa. Buồn.