Làm sao tính toán với đường chéo chính của một ma trận

[khaccduong]

Anh chj nào pro cho em hỏi,em có một ma trận bất kì(25x25) chẳng hạn.Bây h em muốn các phần tử nằm trên đường chéo đều chia giảm bớt cho 2 thì có hàm nào không ,hoặc cách xử lý thế nào.Help me.

 

[ptm0412]

Giả sử ma trận bắt đầu từ A1, chép đoạn code này vào và chạy, ma trận mới sẽ đè lên ma trận cũ:

Sub chia()
With [a1].CurrentRegion
    For i = 1 To 25
        .Cells(i, i) = .Cells(i, i) / 2
    Next
End With
End Sub

Còn nếu muốn chia và copy sang chỗ khác thì dùng code sau:

Sub chia_copy()
Dim Arr
ReDim Arr(1 To 25, 1 To 25)
With [a1].CurrentRegion
    For i = 1 To 25
        For j = 1 To 25
            Arr(i, j) = .Cells(i, j) / IIf(i = j, 2, 1)
        Next: Next
End With
    [a1].Offset(26, 0).Resize(25, 25) = Arr
End Sub

 

[thanh_tks]

Anh chj nào pro cho em hỏi,em có một ma trận bất kì(25x25) chẳng hạn.Bây h em muốn các phần tử nằm trên đường chéo đều chia giảm bớt cho 2 thì có hàm nào không ,hoặc cách xử lý thế nào.Help me.

Ví dụ bạn có một mảng 25 x 25, bắt đầu từ a1, Thì dòng A27 bạn gõ công thức sau:=IF(ROW()-26=COLUMN(),A1/2,A1) rồi fill cho cả bảng có số dòng và cột bằng với mảng trên.