Làm cách nào để ghi lại các giá trị thay đổi trong một ô trong Excel?
Làm cách nào để ghi lại mọi giá trị thay đổi cho một ô thường xuyên thay đổi trong Excel? Ví dụ, giá trị gốc trong ô C2 là 100, khi thay đổi số 100 thành 200, giá trị gốc 100 sẽ được hiển thị trong ô D2 tự động để ghi. Tiếp tục thay đổi 200 thành 300, số 200 sẽ được chèn vào ô D3, thay đổi 300 thành 400 sẽ hiển thị 300 thành D4, v.v. Phương pháp trong bài viết này có thể giúp bạn đạt được điều đó.
Ghi lại các giá trị thay đổi trong một ô có mã VBA
Ghi lại các giá trị thay đổi trong một ô có mã VBA
Mã VBA dưới đây có thể giúp bạn ghi lại mọi giá trị thay đổi trong một ô trong Excel. Hãy làm như sau.
1. Trong trang tính chứa ô bạn muốn ghi lại các giá trị thay đổi, hãy nhấp chuột phải vào tab trang tính rồi nhấp Mã Chế độ xem từ menu ngữ cảnh. Xem ảnh chụp màn hình:
2. Sau đó Microsoft Visual Basic cho các ứng dụng cửa sổ đang mở, vui lòng sao chép mã VBA bên dưới vào cửa sổ Mã.
Mã VBA: ghi lại các giá trị thay đổi trong một ô
Dim xVal As String
'Update by Extendoffice 2018/8/22
Private Sub Worksheet_Change(ByVal Target As Range)
Static xCount As Integer
Application.EnableEvents = False
If Target.Address = Range("C2").Address Then
Range("D2").Offset(xCount, 0).Value = xVal
xCount = xCount + 1
Else
If xVal <> Range("C2").Value Then
Range("D2").Offset(xCount, 0).Value = xVal
xCount = xCount + 1
End If
End If
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
xVal = Range("C2").Value
End Sub
Chú ý: Trong mã, C2 là ô bạn muốn ghi lại tất cả các giá trị thay đổi của nó. D2 là ô bạn sẽ điền giá trị thay đổi đầu tiên của C2.
3. Nhấn nút Khác + Q chìa khóa để đóng Microsoft Visual Basic cho các ứng dụng cửa sổ.
Kể từ bây giờ, mỗi khi bạn thay đổi giá trị trong ô C2, các giá trị thay đổi trước đó sẽ được ghi lại trong D2 và các ô bên dưới D2.
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
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!