Hỏi về chuyển Macro thành Function

[boyxin]

Hỏi về: Thay Macro bằng Function tương đương

Các pác ui, em co cái Macro này, bi giờ em muốn thay thể ( Bỏ sub() ) thay bằng Function thì phải làm thế nào? Function như thế nào ?rất mong các pác chỉ giúp đỡ

Bác pxthanhcda đã sửa giúp em roài ( ở bài #6)

Vấn để của em đã nhận được sự giúp đỡ nhiệt tình của các bác trên GPE nên đã được giải quyết xong và được thể hiện trong phần " Hỗ trợ CNLớp THCS - XLHL theo QC 40". Chi tiết tại mục phần chữ ký của em​

Nên em xóa tập tin dính kèm trong bài này để giải phóng tài nguyên​

 

[PhanTuHuong]

Sub và Function chức năng làm việc khác nhau nên việc hoán đổi theo tôi là không đơn giản.

 

[boyxin]

Sub và Function chức năng làm việc khác nhau nên việc hoán đổi theo tôi là không đơn giản.

Ý mình là muốn thay thế " bỏ cái Sub() " thay bằng 1 cái Function mà vẫn được kết quả như vậy.
Nếu có thể thì xem file cụ thể rồi giúp mình với

 

[SA_DQ]

Nghề của chàng đây rồi: Hàm mảng người dùng vậy nha!

Rất hao tài nguyên đó, nói trước chứ không lại giận!
Phải nói là lâu lắm lại có người cần khảo sát cái hàm mảng này!

Option Explicit:   Option Base 1

Function LapDS(Rng As Range)
 Dim SoDong As Long, jW As Long
 Dim BDem As Byte:           ReDim MDLieu(9, 3)
 Dim RngD As Range, Clls As Range
 
 For SoDong = 1 To 2
    For jW = 1 To 9
        MDLieu(jW, SoDong) = 0
 Next jW, SoDong
 SoDong = Rng.Rows.Count
 For jW = 1 To SoDong
    If Rng.Cells(jW, 20).Value = "TL" Then
        BDem = BDem + 1:            MDLieu(BDem, 1) = Rng.Cells(jW, 1)
        Set RngD = Rng.Cells(jW, 2).Resize(1, 15)
        For Each Clls In RngD
            If Clls < 5 Then
                MDLieu(BDem, 3) = MDLieu(BDem, 3) & "; " & Rng.Cells(1, Clls.Column)
            End If
        Next Clls
    End If
 Next jW
 LapDS = MDLieu
End Function

 

[boyxin]

Em chỉ cần hàm để liệt kê số môn và điểm tổng kết từng môn thoai

 

[pxthanhcda]

Help Macro to Function

bạn thử xem cái này có hợp với ý bạn không

 

[boyxin]

Thank pxthanhcda

bạn thử xem cái này có hợp với ý bạn không

THẬT LÀ TUYỆT VỜI, CẢM ƠN BẠN NHIỀU NHIỀU NHA