[HỎI] Đồng bộ hóa 2 giá trị ở 2 cell khác nhau (1 người xem)

[pqdlxag]

Chào mọi người, mình có một vấn đề nho nhỏ như sau không biết có giải quyết được bằng hàm bình thường không. Giả sử mình có ô A1 và ô D1, đều chứa giá trị số. Mình muốn 2 giá trị ở 2 ô này đồng nhất nhau, cụ thể nếu mình thay đổi giá trị ô A1 thì D1 cũng thay đổi theo, và ngược lại thay đổi D1 thì A1 cũng thay đổi theo. Trong hiểu biết của mình thì dường như bó tay, nên nhờ các cao thủ cho ý kiến giúp mình. Xin cám ơn trước ạ!

 

[Love_VBA_Excel]

Chào bạn
Giá trị hai ô này đồng nhất là sao bạn? Tức là giá trị luôn bằng nhau?Nếu vậy tại ô D1 gõ công thức "=A1" là ok thôi
Còn nếu không phải thì tốt nhất bạn nên attach cái file lên và giải thích yêu cầu cho rõ hơn nhé bạn..

 

[pqdlxag]

Chào bạn
Giá trị hai ô này đồng nhất là sao bạn? Tức là giá trị luôn bằng nhau?Nếu vậy tại ô D1 gõ công thức "=A1" là ok thôi
Còn nếu không phải thì tốt nhất bạn nên attach cái file lên và giải thích yêu cầu cho rõ hơn nhé bạn..

Nếu vậy thì chỉ có D1 đồng nhất theo A1 thôi. Ý của mình như sau: D1 và A1 luôn có giá trị như nhau, nếu chỉnh A1 thì D1 tự động thay đổi theo và ngược lại, chỉnh D1 thì A1 cũng thay đổi theo

 

[Love_VBA_Excel]

Nếu vậy thì chỉ có D1 đồng nhất theo A1 thôi. Ý của mình như sau: D1 và A1 luôn có giá trị như nhau, nếu chỉnh A1 thì D1 tự động thay đổi theo và ngược lại, chỉnh D1 thì A1 cũng thay đổi theo

Chắc chỉ giải quyết được bằng VBA thôi bạn

 

[phulien1902]

Nếu vậy thì chỉ có D1 đồng nhất theo A1 thôi. Ý của mình như sau: D1 và A1 luôn có giá trị như nhau, nếu chỉnh A1 thì D1 tự động thay đổi theo và ngược lại, chỉnh D1 thì A1 cũng thay đổi theo

Bạn thử:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then Call D1
    If Target.Address = "$D$1" Then Call A1
End Sub
Sub D1()
    Range("D1") = Range("A1")
End Sub
Sub A1()
    Range("A1") = Range("D1")
End Sub
[php]

 

[giaiphap]

Bạn thử:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then Call D1
    If Target.Address = "$D$1" Then Call A1
End Sub
Sub D1()
    Range("D1") = Range("A1")
End Sub
Sub A1()
    Range("A1") = Range("D1")
End Sub

Bạn đã test thử code chưa? tôi nghĩ thêm chút nửa mới ổn.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then Call D1
    If Target.Address = "$D$1" Then Call A1
End Sub
Sub D1()
    Application.EnableEvents = False
    Range("D1") = Range("A1")
    Application.EnableEvents = True
End Sub
Sub A1()
    Application.EnableEvents = False
    Range("A1") = Range("D1")
    Application.EnableEvents = True
End Sub

 

[phulien1902]

Bạn đã test thử code chưa? tôi nghĩ thêm chút nửa mới ổn.

Cảm ơn bác, tôi đã thử trước khi gửi bài, có điều bác thêm 2 dòng ... vào thì ổn hơn.