THAY HÀM BẰNG VBA

[dungpd1989]

MÌNH MUỐN THAY HÀM COUNTIFS BẰNG VBA AK CÓ FILE AK
VÀ CÓ THE GI CHÚ SAU BIẾN KHÔNG AK MÌNH TÌM HIỂU VỚI

 

[Hoàng Tuấn 868]

Thực sự đáng buồn, đáng buồn..

 

[SA_DQ]

Sub GPE_TongHop()
 ReDim Arr(1 To 5, 1 To 9) As Integer
 Dim Cls As Range
 Dim Rws As Integer, Col As Integer
 
 [B3].Resize(5, 9).Value = Arr()
 For Each Cls In Range([M5], [P25])
    If Cls.Value <> Space(0) Then
        Rws = CInt(Right(Cells(Cls.Row, "L").Value, 1))
        Col = CInt(Right(Cls.Value, 1))
        Arr(Rws, Col) = Arr(Rws, Col) + 1
    End If
 Next Cls
 [B3].Resize(5, 9).Value = Arr()
 Randomize:              Col = 34 + 9 * Rnd()
 [b2:j2].Interior.ColorIndex = Col
End Sub

. . . .VÀ CÓ THE GI CHÚ SAU BIẾN KHÔNG AK MÌNH TÌM HIỂU VỚI

/(hi & chỉ khi bài đăng của bạn không sai với nội 2ui!

 

[VetMini]

...
/(hi & chỉ khi bài đăng của bạn không sai với nội 2ui!

Nội quy gì? Em mới vào, đâu biết ở đây còn bày đặt nội quy với ngoại ước. Thấy nó giống cái chợ chồm hổm.

Thực sự đáng buồn, đáng buồn..

Buồn gì? Buồn ngủ, buồn cười, buồn não