ไปยังเนื้อหาหลัก

วิธีตรวจสอบการเปลี่ยนแปลงของเซลล์ใน Excel

คุณจะตรวจสอบเซลล์แผ่นงานได้อย่างไรหากข้อมูลมีการเปลี่ยนแปลงใน Excel นี่อาจช่วยให้คุณระบุเซลล์ที่เปลี่ยนแปลงได้โดยเร็วที่สุด บทความนี้ฉันจะพูดถึงวิธีการที่น่าสนใจในการจัดการกับงานนี้ใน Excel

ตรวจสอบการเปลี่ยนแปลงของเซลล์ใน Excel ด้วยฟังก์ชันติดตามการเปลี่ยนแปลง

ตรวจสอบการเปลี่ยนแปลงของเซลล์ใน Excel ด้วยรหัส VBA


ลูกศรสีฟ้าฟองขวา ตรวจสอบการเปลี่ยนแปลงของเซลล์ใน Excel ด้วยฟังก์ชันติดตามการเปลี่ยนแปลง

Excel มีประโยชน์ ติดตามการเปลี่ยนแปลง คุณลักษณะนี้สามารถช่วยคุณในการทำเครื่องหมายเซลล์ที่เปลี่ยนแปลงได้โปรดทำดังนี้:

1. คลิก รีวิว > ติดตามการเปลี่ยนแปลง > ไฮไลต์การเปลี่ยนแปลงดูภาพหน้าจอ:

การเปลี่ยนแปลงจอภาพ doc 1

2. ใน ไฮไลต์การเปลี่ยนแปลง ไดอะล็อกบ็อกซ์ให้ดำเนินการดังต่อไปนี้:

(1. ) ตรวจสอบ ติดตามการเปลี่ยนแปลงขณะแก้ไข นอกจากนี้ยังแชร์สมุดงานของคุณ.

(2. ) ภายใต้ เน้นที่การเปลี่ยนแปลง ระบุรายการเมื่อใดใครและที่ไหนตามที่คุณต้องการ

(3. ) สุดท้ายให้ตรวจสอบ เน้นการเปลี่ยนแปลงบนหน้าจอ ตัวเลือก

การเปลี่ยนแปลงจอภาพ doc 2

3. หลังจากเสร็จสิ้นการตั้งค่าคลิก OK ตอนนี้เมื่อคุณเปลี่ยนค่าของเซลล์ในเซลล์ที่ระบุเส้นขอบที่มีไอคอนสามเหลี่ยมอยู่รอบ ๆ เซลล์ที่เปลี่ยนแปลงดูภาพหน้าจอ:

การเปลี่ยนแปลงจอภาพ doc 3

หมายเหตุ: ด้วยวิธีนี้สมุดงานของคุณจะกลายเป็นสมุดงานที่ใช้ร่วมกัน


ลูกศรสีฟ้าฟองขวา ตรวจสอบการเปลี่ยนแปลงของเซลล์ใน Excel ด้วยรหัส VBA

รหัส VBA ต่อไปนี้ยังช่วยคุณตรวจสอบค่าของเซลล์เมื่อมีการเปลี่ยนแปลงโปรดทำดังนี้:

1. คลิกขวาที่แท็บแผ่นงานที่คุณต้องการตรวจสอบการเปลี่ยนแปลงของเซลล์แล้วเลือก ดูรหัส จากเมนูบริบทในเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน โปรดคัดลอกและวางโค้ด VBA ต่อไปนี้ลงในโมดูล:

รหัส VBA: ตรวจสอบการเปลี่ยนแปลงของเซลล์ในแผ่นงาน 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 4

หมายเหตุ ในโค้ดด้านบน A1: E7 คือช่วงข้อมูลที่คุณต้องการตรวจสอบว่าเซลล์เปลี่ยนแปลงหรือไม่คุณสามารถเปลี่ยนได้ตามความต้องการ

2. จากนั้นบันทึกและปิดหน้าต่างรหัสนี้และตอนนี้เมื่อคุณเปลี่ยนค่าของเซลล์ในช่วงที่ระบุกล่องข้อความจะปรากฏขึ้นเพื่อเตือนคุณดูภาพหน้าจอ:

การเปลี่ยนแปลงจอภาพ doc 5

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

🤖 Kutools AI ผู้ช่วย: ปฏิวัติการวิเคราะห์ข้อมูลโดยยึดตาม: การดำเนินการที่ชาญฉลาด   |  สร้างรหัส  |  สร้างสูตรที่กำหนดเอง  |  วิเคราะห์ข้อมูลและสร้างแผนภูมิ  |  เรียกใช้ฟังก์ชัน Kutools...
คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์    VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่    สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์    ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...

รายละเอียด


แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
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ı ?
This comment was minimized by the moderator on the site
I got "syntax error" with "Dim xrng As Range" when I inserted the below code in my worksheet_change event :-(
VBA code: Monitor cell changes in Excel worksheet:

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
This comment was minimized by the moderator on the site
if i have large amount of data in excel file, and i just want to know status in one different colum that if any cell gets change its value then it should indicate in from of that cell's row , tha status shoild be changed, how can i do this
This comment was minimized by the moderator on the site
hello how can we track by date and time in the change in the cell
This comment was minimized by the moderator on the site
Woooow this is nowhere else except here! Amazing!

Is there any way to insert a row right below the row of the cell where the cell was updated?

To make it more challenging, if I have list validation enabled or formula enabled can that as well be copied to the new row?
This comment was minimized by the moderator on the site
Hi, amar,
To insert a row below the changed value, the following VBA code can help you, please try it.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRg As Range
Dim xStrPre, xStr As String
On Error Resume Next
Set xRg = Range("A1:E7")
If Intersect(xRg, Target) Is Nothing Then Exit Sub
Application.EnableEvents = False
xStr = Target.Value
Application.Undo
xStrPre = Target.Value
Target.Offset(1, 0).EntireRow.Insert xlShiftDown
Target.Offset(1, 0).Value = xStrPre
Target.Value = xStr
Application.EnableEvents = True
End Sub
This comment was minimized by the moderator on the site
Hello, I have it copying old number to new line - how do I have the new line go to a new tab instead?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations