Lập trình 1 thuật toán khó trong VBA !!! (1 người xem)

[bochumer]

Chào các bác, e đang có 1 thuật toán khó mà ko biết lập trình trong VBA ra sao. Mong các cao thủ giúp đỡ. Thuật toán như sau:

- Cho 1 dẫy số : 1,4,2,4,3,6,4,5,3,6,1. Ví du dẫy số được cho trong đoạn từ A1:A11. E muốn in giá trị Sk và k tương ứng.
- Đề bài : Tìm “sự phân bố các cặp số S(k)” trong từng “ khoảng biên độ k”. ( Do đề bài là tiếng nước ngoài, ko phải tiếng Anh, nên e dịch hơi khó hiểu 1 chút vì thực ra e ko biết từ nào chuẩn xác hơn trong tiếng việt  , các bác thong cảm).


Do đây là 1 thuật toán khó và hơi khó hiểu nên đề bài cụ thể e đã word trong file đính kèm( vì có liên quan đến bảng tính và biểu đồ nên e ko thể post lên được) mong các bác thông cảm đọc giúp e ở file đính kèm.
Nếu các bác có chỗ nào ko hiểu, e xin giải đáp cụ thể trong thread này hoặc qua email luan45m@gmail.com
Cám ơn các bác nhiều!!!

 

[bochumer]

E có 1 bài toán nho nhỏ, e đã viêt code trong VBA rồi mà ko chạy được. Mong các bác sửa dùm.
Đề bài
Tính S(k) từ 1 ma trận cho trước. Ma trận nxn
S(k)=∑[R(i,j)+R(j,i)]
(i,j,k≤i-j)
Trong đó 1≤i,j≤n, R(i,j) và R(j,i) là các phần tử của ma trận nxn
1≤k≤n-1
(i, j, k nguyên dương)

Ví dụ e có 1 ma trân 9x9 trong bảng excel [O6:W14]. E muốn điền kết quả S(k)vào cột Z bắt đầu từ Z6 và k tương ứng vào cột Y bắt đầu từ Y6.
E biết đoạn code của e sai, mà e ko biết sai ở đâu (. Mong các bác sửa dùm e. Tks các pro nhiều
Đoạn code e viết:
Sub Spannenpaar()
Dim Mat As Variant
Dim sk As Integer
Mat = [O6:W14].Value
For k = 1 To 8
sk = 0
For i = k + 1 To 9
For j = 1 To i
sk = sk + Mat(i, j) + Mat(j, i)
Next
Next
k = k + 1
[z6].Value = sk
Next

k = 1
For i = 6 To 13
Cells(i, 25) = k
k = k + 1
Next

MsgBox ("Die Spannenpaar-Zaehlung")
End Sub