Xác định khoảng cách trong Excel! (1 người xem)

[tuana1191]

Mình thực sự chưa học excel nhiều nên chưa thể hiểu hết tất cả khả năng của lập trình excel!
Cho mình mạn phép hỏi mình có thể có 1 hàm hay thuật toán nào đó xác đinh khoảng cách giữa 2 vị trí trong 1 sheet được không? Giả dụ 1 ô là 1 đơn vị độ dài!

Trong bài mình gửi dưới đây có 1 ma trận và mình muốn xác định khoảng cách như nêu trên! Ví dụ AB=1, AF =3!
Quy ước sau:
Liền kề: 1
Chéo nhau: 2
Cách nhau: 3

 

[anhkt08]

Bạn tham khảo file đính kèm nhé. Nhớ enable macro

 

[tuana1191]

Ủa sao mình k chạy dc hả bạn! Thấy Marco trắng phau à :-s

Có bạn nào giúp mình vụ này hem?

 

[concogia]

Có bạn nào giúp mình vụ này hem?

Thật tình cũng chưa hiểu hết, hình như bạn muốn xem khi chọn 2 cell thì khoảng cách nó như thế nào
Tạm thời làm thế này:

Public Function KC(Cll, CllXd) As Integer
    Dim Tam
    Tam = CllXd.Column - Cll.Column & CllXd.Row - Cll.Row
        If Tam = "-1-1" Or Tam = "11" Or Tam = "-11" Or Tam = "1-1" Then
            KC = 2
        ElseIf Tam = "01" Or Tam = "10" Or Tam = "-10" Or Tam = "0-1" Then
            KC = 1
        Else
            KC = 3
        End If
End Function

Trong file, công thức nằm ở các cell màu vàng í
Thân

 

[ptm0412]

Bạn tham khảo file đính kèm nhé. Nhớ enable macro

File xlsx thì làm gì có macro mà enable hả bạn?
phải lưu dạng xlsm hoặcxlsb mới lưu được macro.

 

[tuana1191]

Chưa hiểu hết cách làm của bạn! Nhưng nó chạy tốt, bạn có thể nói qua cách làm dc k? concogia

Mà sao mình không thể xem dc cái marco của bạn được vậy?

 

[concogia]

Mà sao mình không thể xem dc cái marco của bạn được vậy?

Bấm Alt + F11 để xem code
Cách làm: so sánh Cột & Dòng của 2 cell, từ đó biết được vị trí của cell 2 so với cell 1
Đơn giản thôi mà
Thân