Nhờ tạo Code liên kết hai chiều.

[khamha]

Không biết tên chủ đề có đúng không,ý mình muốn như sau:khi ta sửa dữ liệu ở A1 của sheet1 thì C1 của sheet2 cũng thay đổi theo Và ngược lại,khi ta sửa dữ liệu ở C1 của sheet2 thì nội dung tại A1 của sheet1 sẽ thay đổi.Các bạn giúp mình nhé,Cảm ơn

 

[SA_DQ]

"cũng thay đổi theo" như thế nào vậy bạn?
Chúng là số liệu lên quan nhau, hay được tính từ công thức nào khác,. . .

Chắc bạn cần mô tả kỹ hơn iêu cầu của mình, chịu khó đi bạn!

 

[khamha]

bạn xem file giúp mình nhé,cảm ơn bạn.

 

[khamha]

Mình thấy hai đoạn Code này có thể đạt được mục đích trên,nhưng lại không biết cách vận dụng:Code cho sheet1rivate Sub Worksheet_Change(ByVal Target As Range)Application.EnableEvents = FalseIf Intersect(Target, [A1]) Is Nothing Then GoTo ThoatSheets("Sheet2").[A1].Value = [A1].ValueThoat:Application.EnableEvents = TrueEnd SubCode cho sheet2rivate Sub Worksheet_Change(ByVal Target As Range)Application.EnableEvents = FalseIf Intersect(Target, [A1]) Is Nothing Then GoTo ThoatSheets("Sheet1").[A1].Value = [A1].ValueThoat:Application.EnableEvents = TrueEnd SubCác bạn giúp mình nhé.

 

[concogia]

bạn xem file giúp mình nhé,cảm ơn bạn.

Hình như là thế này hay sao í

 

[sealand]

Mình nghĩ yêu cầu thế này:
-Nếu o A1 của Sheet1 đổi thi C1 của Sheet2 cũng đổi theo bằng ô A1 của Sheet1.
-Nếu o C1 của Sheet2 đổi thi A1 của Sheet1 cũng đổi theo bằng ô C1 của Sheet2.

Hi, 1 code thôi. Mình dùng mẹo này

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.CodeName = "Sheet1" And Target.Address = "$A$1" Then Sheet2.[C1] = Target
If Sh.CodeName = "Sheet2" And Target.Address = "$C$1" Then Sheet1.[A1] = Target
End Sub

 

[khamha]

Mình nghĩ yêu cầu thế này:-Nếu o A1 của Sheet1 đổi thi C1 của Sheet2 cũng đổi theo bằng ô A1 của Sheet1.-Nếu o C1 của Sheet2 đổi thi A1 của Sheet1 cũng đổi theo bằng ô C1 của Sheet2.Hi, 1 code thôi. Mình dùng mẹo này

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)If Sh.CodeName = "Sheet1" And Target.Address = "$A$1" Then Sheet2.[C1] = TargetIf Sh.CodeName = "Sheet2" And Target.Address = "$C$1" Then Sheet1.[A1] = TargetEnd Sub

bạn sealand ơi,không biết tại sao mà cái code này lại không sử dụng được trong excel 2007,nhờ bạn sửa lại cho mình với.

 

[sealand]

Mình không dùng 2007 nên cũng không rõ lắm. Nhưng trước hết bạn phải đặt đúng vị trí code mới được.
Trong VBA bạn nháy đúp vào dòng This Workbook mở trang code của Workbook và dán vào đó. Ngoài ra, không được đâu nha.