Đúng rồi ạ. Thực ra là hàm em muốn viết ý tưởng như sau:
Function SumMatrix(SourceRng As Range, SourceColTitle As Range, ColTitle2 As Range, ColTitle3 As Range)
Dim TmpArrB(), TmpArrC1(), TmpArrC2(), TmpArr(), SArray()
Dim SColT(), ColT2(), ColT3()
SArray = SourceRng.Value
SColT = SourceColTitle.Value
ColT2 = ColTitle2.Value
ColT3 = ColTitle3.Value
ArrSize = SourceColTitle.Count
ReDim TmpArr(1 To ArrSize, 1 To ArrSize)
TmpArrC1 = Matrix(SArray, SColT, ColT3)
TmpArrB = Matrix(SArray, SColT, ColT2)
TmpArrC2 = Matrix(TmpArrB, ColT2, ColT3)
For i = 1 To ArrSize
For j = 1 To ArrSize
TmpArr(i, j) = TmpArrC1(i, j) + TmpArrC2(i, j)
Next
Next
SumMatrix = TmpArr
End FunctionFunction Matrix(SArr, ColTitle1, ColTitle2)
Dim TmpArr(), RwTitle1, RwTitle2
SArrSize = UBound(SArr, 1)
ReDim TmpArr(1 To SArrSize, 1 To SArrSize)
RwTitle1 = Application.Transpose(ColTitle1)
RwTitle2 = Application.Transpose(ColTitle2)
For i = 1 To SArrSize
For j = 1 To SArrSize
For k = 1 To SArrSize
If ColTitle1(1, k) = ColTitle2(1, i) Then
For h = 1 To SArrSize
If RwTitle1(h, 1) = RwTitle2(j, 1) Then
TmpArr(j, i) = SArr(h, k): Exit For
End If
Next
Exit For
End If
Next
Next
Next
Matrix = TmpArr
End FunctionDạ, em cám ơn bác.
Dạ, em xin lỗi a. Vì em ngại viêt các số của B nên mới lấy như vậy.
Dạ không sao ạ.Vì lỗi này là do em ạ (Lần sau em sẽ chú ý khi yêu cầu
- thực ra nhầm quan điểm chút thôi ạ). Cám ơn thầy đã giúp đỡ. Em cám ơn rất nhiều !
Function SumMatrix(SRng1 As Range, SColTitle1 As Range, SRng2 As Range, SColTitle2 As Range, RColTitle As Range)
'SRng = Source Range, SColTitle = Source Column Titlles'
'RColTitle = Result Column Titles'
Dim TmpArrC1(), TmpArrC2(), TmpArr(), SArray1(), SArray2()
Dim SColT1(), SColT2(), RColT()
SArray1 = SRng1.Value
SArray2 = SRng2.Value
SColT1 = SColTitle1.Value
SColT2 = SColTitle2.Value
RColT = RColTitle.Value
ArrSize = SColTitle1.Count
ReDim TmpArr(1 To ArrSize, 1 To ArrSize)
TmpArrC1 = Matrix(SArray1, SColT1, RColT)
TmpArrC2 = Matrix(SArray2, SColT2, RColT)
For i = 1 To ArrSize
For j = 1 To ArrSize
If (IsNumeric(TmpArrC1(i, j)) And IsNumeric(TmpArrC2(i, j))) Then
TmpArr(i, j) = Val(TmpArrC1(i, j)) + Val(TmpArrC2(i, j))
Else
TmpArr(i, j) = TmpArrC1(i, j) & TmpArrC2(i, j)
End If
Next
Next
SumMatrix = TmpArr
End FunctionKhi em check mà trùng Title vẫn thấy kết quả đúng ?
Public Function Matran(E As Double, A As Double, J As Double, l As Double)
Dim MT(1 To 6, 1 To 6)
Dim t1, t2, t3, t4, t5 As Double
t1 = E * A / l: t2 = 12 * E * J / (l ^ 3): t3 = 6 * E * J / (l ^ 2): t4 = 4 * E * J / l: t5 = 2 * E * J / l
MT(1, 1) = t1: MT(1, 2) = 0: MT(1, 3) = 0: MT(1, 4) = -t1: MT(1, 5) = 0: MT(1, 6) = 0
MT(2, 1) = 0: MT(2, 2) = t2: MT(2, 3) = t3: MT(2, 4) = 0: MT(2, 5) = -t2: MT(2, 6) = t3
MT(3, 1) = 0: MT(3, 2) = t3: MT(3, 3) = t4: MT(3, 4) = 0: MT(3, 5) = -t3: MT(3, 6) = t5
MT(4, 1) = -t1: MT(4, 2) = 0: MT(4, 3) = 0: MT(4, 4) = t1: MT(4, 5) = 0: MT(4, 6) = 0
MT(5, 1) = 0: MT(5, 2) = -t2: MT(5, 3) = -t3: MT(5, 4) = 0: MT(5, 5) = t2: MT(5, 6) = -t3
MT(6, 1) = 0: MT(6, 2) = t3: MT(6, 3) = t5: MT(6, 4) = 0: MT(6, 5) = -t3: MT(6, 6) = t4
Matran = MT
End Function
Thì viết thêm 1 sub nữa
Sub Test()
Dim E As Double, A As Double, J As Double, l As Double
E = bao nhiêu?
A = bao nhiêu?
J = bao nhiêu?
l = bao nhiêu?
ActiveCell.Resize(6, 6).Value = Matran(E, A, J, l)
End SubCái này mà dùng INDEX thì.. hơi phí sư phụ à
Thế bạn có ý tưởng gì khác chăng? Hoặc giả ý bạn mong muốn nó phải như thế nào?
Đúng là em đang thao tác hàm trên như đúng ý bác nói.
Dùng sự kiện WorksheetChange xem!
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ExitSub
If Left(Target.Formula, 7) = "=Matran" Then Target.Resize(6, 6).FormulaArray = Target.Formula
ExitSub:
End Sub
