Cách cập nhật nội dung Sheet2 khi nhập từ Sheet1?

  • Thread starter Thread starter sonktc
  • Ngày gửi Ngày gửi
Liên hệ QC

sonktc

Thành viên chính thức
Tham gia
30/9/07
Bài viết
59
Được thích
3
Tôi có 2 sheet, 2 sheet này đều có cột tên họ giống nhau, danh sach nhập vào cũng giông nhau, xin chì dùm có cách nào khi nhập danh sách vào sheet1, thì danh sách ở sheet2 cũng tự động cập nhật, mà không phải copy sang.
Cám ơn nhiều.
 
vậy khi bạn xoá đi ở sheet2 thì ntn? có xoá luôn bên sheet1 không?
 
Cập nhật từ sheet1 sang sheet2 thì đơn giản, bạn dùng Vlookup, nếu hơn nữa thì bạn trả lời câu hỏi của Soibien.
 
Tại A1 của Sheet2=Sheet1!A1
vậy khi bạn xoá đi ở sheet2 thì ntn? có xoá luôn bên sheet1 không?
Cái này thì cao siêu quá. Hình như SoiBien đã có bài về cái này trên GPE.
 
Nếu muốn thay đổi ở Sheet1 thì cập nhật ở Sheet2 và ngược lại thì bạn có thể dán Code sau vào Sheet1
Mã:
Private Sub Worksheet_Change(ByVal Target As Range)
    Sheet[B]2[/B].Cells(Target.Row, Target.Column) = Target
End Sub
và dán code sau vào Sheet2
Mã:
Private Sub Worksheet_Change(ByVal Target As Range)
    Sheet[B]1[/B].Cells(Target.Row, Target.Column) = Target
End Sub
Đây chỉ là gợi ý. Tuy nhiên, với bảng tính phức tạp, có nhiều công thức thì dùng cách này sẽ làm chậm bảng tính.
Vậy bạn có thể gởi File lên sẽ cụ thể hơn.

TDN
 
tedaynui đã viết:
Nếu muốn thay đổi ở Sheet1 thì cập nhật ở Sheet2 và ngược lại thì bạn có thể dán Code sau vào Sheet1
Mã:
Private Sub Worksheet_Change(ByVal Target As Range)
    Sheet[B]2[/B].Cells(Target.Row, Target.Column) = Target
End Sub
và dán code sau vào Sheet2
Mã:
Private Sub Worksheet_Change(ByVal Target As Range)
    Sheet[B]1[/B].Cells(Target.Row, Target.Column) = Target
End Sub
Đây chỉ là gợi ý. Tuy nhiên, với bảng tính phức tạp, có nhiều công thức thì dùng cách này sẽ làm chậm bảng tính.
Vậy bạn có thể gởi File lên sẽ cụ thể hơn.

TDN
Hoặc chèn ngay vào ThisWorkBook
PHP:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Sh.Name = Sheet1.Name Then
        Sheet2.Cells(Target.Row, Target.Column) = Target
     ElseIf Sh.Name = Sheet2.Name Then
        Sheet1.Cells(Target.Row, Target.Column) = Target
    End If
End Sub
Thân!
 
Rất cám ơn các bạn rất nhiều, nhưng tôi chưa rành lăm,chịu khó hương dẫn thêm cho tôi với cách add các đoạn code ấy với.
Thanks
 
sonktc đã viết:
Rất cám ơn các bạn rất nhiều, nhưng tôi chưa rành lăm,chịu khó hương dẫn thêm cho tôi với cách add các đoạn code ấy với.
Thanks

Bạn thử nhé :

Thân!
 

File đính kèm

Sheet2=Sheet1!A1

ThuNghi đã viết:
Tại A1 của Sheet2=Sheet1!A1

Cái này thì cao siêu quá. Hình như SoiBien đã có bài về cái này trên GPE.
Bạn ThuNghi, Tôi đã làm theo cách bạn, song có bị hiện tương :Khi sheet2 được cập nhật, thì những ô nào bên sheet1 là ô không có dữ liệu (trống) thì khi sheet2 ở ô tương ứng thay vì cũng trống, nó lại xuất hiện số o, bây giờ tôi cũng muốn nó cũng trống, như ô ở sheet1 nhờ bạn.
Thanks
 
Web KT

Bài viết mới nhất

Back
Top Bottom