Function tDem(Rng As Range)
Dim MyStr As String
Dim Cll As Range
Dim d As Integer
d = Application.WorksheetFunction.Count(Rng)
Dim c (1 To d) As Integer
For Each Cll In Rng
a = Cll.Value
For i = UBound(c) To LBound(c)
b = a * i
tDem = tDem + b
Next
Next
End Function
Vẫn chưa "dõ dàng".Đếm số ô dữ liệu trong mảng D511. Sau đó lấy giá trị các ô nhân với số ô giảm dần. Ở đây có 7 ô thì tdem= 1237*7 + 1843*6 + 1771*5 + 1833*4+… đến 1971*1
Gửi cái file lên phải lẹ hơn không!
Function NhanPhanTu(ByVal MyRange As Range) As Double
Dim r As Long
Dim sArray, itm
sArray = MyRange
If Not IsArray(sArray) Then
sArray = Array(sArray)
End If
For Each itm In sArray
r = r + 1
NhanPhanTu = NhanPhanTu + Val(itm) * r
Next
End FunctionNếu là Function thì thử cái này:Ô C5= tdem( D5
Public Function GPE(Rng As Range) As Double
Dim Cll As Range, R As Long
R = Rng.Rows.Count
For Each Cll In Rng
GPE = GPE + Cll * R
R = R - 1
Next Cll
End FunctionPublic Function GPE(Rng As Range) As Double
Dim Arr(), I As Long, R As Long
Arr = Rng.Value
R = UBound(Arr, 1)
For I = 1 To R
GPE = GPE + Arr(I, 1) * R
R = R - 1
Next I
End FunctionÔ C5= tdem( D5
Cũng do bạn thôi, từ 9:46 sáng ở bài #2 tôi đã khuyên bạn gởi file và yêu cầu, kết quả muốn có..., mọi người dễ hiểu thì đâu tốn tiền "ngâm quán" lâu như vậy.
OK, bạn tải file ở bài 16 về, tôi đã dùng 2 trường hợp trong đó luôn đấy!
Bạn phải đưa ra trường hợp giả lập, sau đó là kết quả mong đợi, chứ hỏi vậy "ông nội" tôi cũng không hình dung ra nữa!
Function RacRoiQua(ByVal OneCell_Or_OneString As Variant) As Double
Dim NumInStr As String
Dim r As Long, i As Long, LenStr As Long
NumInStr = Val(Trim(OneCell_Or_OneString))
If NumInStr = "" Then Exit Function
LenStr = Len(NumInStr)
For i = LenStr To 1 Step -1
r = r + 1
RacRoiQua = RacRoiQua + Val(Mid(NumInStr, i, 1)) * r
Next
End FunctionTrong cái file của bạn tôi đọc mà cũng chả hiểu gì cả? Bạn diễn giải khó hiểu thiệt!
Phá tui hoài vậy ta?
Hơi bị oải với mấy cái thí dụ ...
Public Function GPE(Rng As Range) As Long
Dim Cll As Range, R As Long, L As Long
R = Rng.Rows.Count
For Each Cll In Rng
L = Len(Cll)
GPE = GPE + L * R
R = R - 1
Next Cll
End FunctionPublic Function GPEx(Rng As Range) As Double
Dim Arr(), I As Long, R As Long, L As Long
Arr = Rng.Value
R = UBound(Arr, 1)
For I = 1 To R
L = Len(Arr(I, 1))
GPEx = GPEx + L * R
R = R - 1
Next I
End FunctionReplace GPE thành PhaTuiHoai
Public Function PhaTuiHoai2(Rng As Range) As Double
Dim Arr(), i As Long, r As Long
Arr = Rng.Value
r = UBound(Arr, 1)
For i = 1 To r
PhaTuiHoai2 = PhaTuiHoai2 + Arr(i, 1) * r
r = r - 1
Next i
End Function
