Xin giúp đỡ phép nhân đối với hàm tự tạo. (1 người xem)

[phucbugis]

Xin hỏi các bạn trong GPE, đoạn code của mình tự tạo nó bị thiếu hoặc sai chỗ nào mà kết quả cột số tiền (cột J, sheet 1) không phải số.

Public Function SMStinhcong(thuocto As String) As String
Dim wb As Workbook
Dim ws As Worksheet

Application.Volatile

Set ws = Application.Caller.Parent
Set wb = ws.Parent


    Dim rng As Range
    Dim rng1 As Range
    Dim rng2 As Range
    
    Set rng = Range("Table1[[3]]")  'so tien
    Set rng1 = Range("Table1[[1]]") 'to
    Set rng2 = Range("Table1[[2]]") 'ngay
    
    phantram = wb.Sheets("Sheet1").Cells(Application.ThisCell.Row, 9)
    ngay = wb.Sheets("Sheet1").Cells(2, Application.ThisCell.Column)
    
    SMStinhcong = Application.WorksheetFunction.SumIfs(rng, rng1, thuocto, rng2, ngay) * phantram
    
End Function

Xin cảm ơn đã đọc bài này!

Link MediaFire: phep nhan ham tu tao (GPE)

 

[ndu96081631]

Xin hỏi các bạn trong GPE, đoạn code của mình tự tạo nó bị thiếu hoặc sai chỗ nào mà kết quả cột số tiền (cột J, sheet 1) không phải số.

Public Function SMStinhcong(thuocto As String) As [COLOR=#ff0000][B]String[/B][/COLOR]
   .....
End Function

Xin cảm ơn đã đọc bài này!

Bạn khai báo kết quả hàm là String thì làm sao nó là SỐ được hả bạn?

 

[phucbugis]

Bạn khai báo kết quả hàm là String thì làm sao nó là SỐ được hả bạn?

Lạ nhỉ , nếu e ko *phantram trực tiếp trong Public Function SMStinhcong thì String đó vẫn cho kết quả đúng (khi nhân với cột I)

OK rồi a ndu96081631, cảm ơn a nhé !