Note: The other languages of the website are Google-translated. Back to English
Đăng nhập Đăng ký

Làm thế nào để giám sát các thay đổi ô trong Excel?

Làm cách nào bạn có thể theo dõi các ô của trang tính nếu dữ liệu bị thay đổi trong Excel? Điều này có thể giúp bạn xác định các ô đã thay đổi nhanh nhất có thể. Bài viết này, tôi sẽ nói về một số phương pháp thú vị để giải quyết công việc này trong Excel.

Theo dõi các thay đổi của ô trong Excel với chức năng Theo dõi Thay đổi

Theo dõi các thay đổi của ô trong Excel với mã VBA

mũi tên màu xanh bong bóng bên phải Theo dõi các thay đổi của ô trong Excel với chức năng Theo dõi Thay đổi

Excel có một Theo dõi Thay đổi , nó có thể giúp bạn đánh dấu các ô đã thay đổi, vui lòng làm như sau:

1. Nhấp chuột Đánh giá > Theo dõi Thay đổi > Đánh dấu các thay đổi, xem ảnh chụp màn hình:

doc theo dõi thay đổi 1

2. Trong Đánh dấu các thay đổi hộp thoại, hãy thực hiện các thao tác sau:

(1.) Kiểm tra Theo dõi các thay đổi trong khi chỉnh sửa. Điều này cũng chia sẻ sổ làm việc của bạn.

(2.) Dưới Đánh dấu những thay đổi , chỉ định các mục Khi nào, Ai và Ở đâu khi bạn cần.

(3.) Cuối cùng, hãy kiểm tra Đánh dấu các thay đổi trên màn hình tùy chọn.

doc theo dõi thay đổi 2

3. Sau khi hoàn tất cài đặt, hãy nhấp vào OK , bây giờ, khi bạn thay đổi bất kỳ giá trị ô nào trong các ô được chỉ định, một đường viền có biểu tượng hình tam giác xung quanh các ô đã thay đổi, hãy xem ảnh chụp màn hình:

doc theo dõi thay đổi 3

Chú thích: Với phương pháp này, sổ làm việc của bạn sẽ trở thành sổ làm việc dùng chung.

mũi tên màu xanh bong bóng bên phải Theo dõi các thay đổi của ô trong Excel với mã VBA

Mã VBA sau cũng có thể giúp bạn theo dõi các giá trị ô khi chúng bị thay đổi, vui lòng thực hiện như sau:

1. Nhấp chuột phải vào tab trang tính mà bạn muốn theo dõi các thay đổi của ô và chọn Mã Chế độ xem từ menu ngữ cảnh, trong Microsoft Visual Basic cho các ứng dụng cửa sổ, vui lòng sao chép và dán mã VBA sau vào Mô-đun:

Mã VBA: Theo dõi các thay đổi ô trong trang tính Excel:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160728
    Dim xrng As Range
    Set xrng = Range("A1:E7")
    If Not Application.Intersect(xrng, Range(Target.Address)) _
           Is Nothing Then
        MsgBox "Cell " & Target.Address & " has changed.", vbInformation, "Kutools for Excel"
    End If
End Sub

doc theo dõi thay đổi 4

LƯU Ý Trong đoạn mã trên, A1: E7 là phạm vi dữ liệu mà bạn muốn theo dõi nếu ô thay đổi, bạn có thể thay đổi theo nhu cầu của mình.

2. Sau đó, lưu và đóng cửa sổ mã này, và bây giờ, khi bạn thay đổi giá trị ô trong phạm vi được chỉ định, một hộp thông báo sẽ bật ra để nhắc bạn, hãy xem ảnh chụp màn hình:

doc theo dõi thay đổi 5

Các công cụ năng suất văn phòng tốt nhất

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

  • Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
  • Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
  • Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
  • Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
  • Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
  • Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
  • Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
  • Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
  • Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2021 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ tính năng Dùng thử miễn phí 30 ngày. Bảo đảm hoàn lại tiền trong 60 ngày.
tab kte 201905

Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
officetab dưới cùng
Nhận xét (7)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
yêu
yêu
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Woooow đây là không có nơi nào khác ngoại trừ ở đây! Kinh ngạc!

Có cách nào để chèn một hàng ngay bên dưới hàng của ô mà ô đã được cập nhật không?

Để làm cho nó trở nên khó khăn hơn, nếu tôi đã bật xác thực danh sách hoặc bật công thức thì điều đó cũng có thể được sao chép sang hàng mới không?
đáp lại
Report
0
0
bầu trời
bầu trời     yêu
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào bạn!
Để chèn một hàng bên dưới giá trị đã thay đổi, mã VBA sau có thể giúp bạn, hãy thử.

Private Sub Worksheet_Change (ByVal Target As Range)
Dim xRg theo phạm vi
Dim xStrPre, xStr dưới dạng chuỗi
On Error Resume Next
Đặt xRg = Range ("A1: E7")
Nếu Intersect (xRg, Target) không có gì thì thoát Sub
Application.EnableEvents = Sai
xStr = Mục tiêu.Giá trị
Ứng dụng.Hoàn tác
xStrPre ​​= Target.Value
Target.Offset (1, 0) .EntireRow.Insert xlShiftDown
Target.Offset (1, 0) .Value = xStrPre
Target.Value = xStr
Ứng dụng.EnableEvents = True
End Sub
đáp lại
Report
0
0
chelsea
chelsea     bầu trời
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, tôi có nó sao chép số cũ sang dòng mới - làm cách nào để chuyển dòng mới sang tab mới?
đáp lại
0
0
ram
ram
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
xin chào, làm thế nào chúng ta có thể theo dõi theo ngày và giờ trong sự thay đổi trong ô
đáp lại
0
0
du già
du già
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
nếu tôi có một lượng lớn dữ liệu trong tệp excel và tôi chỉ muốn biết trạng thái trong một cột khác nhau rằng nếu bất kỳ ô nào thay đổi giá trị của nó thì nó sẽ chỉ ra từ hàng của ô đó, trạng thái có thể thay đổi được không, làm cách nào để tôi có thể làm cái này
đáp lại
0
0
John Doe
John Doe
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi gặp "lỗi cú pháp" với "Dim xrng As Range" khi chèn mã bên dưới vào sự kiện worksheet_change của mình :-(
Mã VBA: Theo dõi các thay đổi ô trong trang tính Excel:

Private Sub Worksheet_Change (ByVal Target As Range)
'Cập nhật bởi Extendoffice 20160728
    Dim xrng As Range
    Đặt xrng = Range ("A1: E7")
    If Not Application.Intersect (xrng, Range (Target.Address)) _
           Không có gì sau đó
        MsgBox "Cell" & Target.Address & "đã thay đổi.", VbInformation, "Kutools cho Excel"
    Cuối Nếu
End Sub
đáp lại
0
0
Hasan ali
Hasan ali
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Merhaba. WhatsApp üzerinden bana gelen bir excell dosyası var. Bunu bilgisayar üstünden açıp. Bunda ki hareketleri ve değişiklikleri görme şansım var mı ?
đáp lại
0
0
Không có bình luận nào được đăng ở đây
Để lại ý kiến ​​của bạn
Khách
Đăng với tư cách khách
Đăng nhập
×
Đánh giá bài viết này:
Xóa và làm lại
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL