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!
