วิธีบันทึกการเปลี่ยนแปลงค่าในเซลล์ใน Excel
จะบันทึกทุกค่าที่เปลี่ยนแปลงสำหรับเซลล์ที่เปลี่ยนแปลงบ่อยใน Excel ได้อย่างไร? ตัวอย่างเช่นค่าดั้งเดิมในเซลล์ C2 คือ 100 เมื่อเปลี่ยนหมายเลข 100 เป็น 200 ค่าเดิม 100 จะแสดงในเซลล์ D2 โดยอัตโนมัติสำหรับการบันทึก ไปข้างหน้าเพื่อเปลี่ยน 200 เป็น 300 หมายเลข 200 จะถูกแทรกลงในเซลล์ D3 การเปลี่ยนแปลง 300 ถึง 400 จะแสดง 300 เป็น D4 และอื่น ๆ วิธีการในบทความนี้สามารถช่วยให้คุณบรรลุได้
บันทึกการเปลี่ยนแปลงค่าในเซลล์ด้วยรหัส VBA
บันทึกการเปลี่ยนแปลงค่าในเซลล์ด้วยรหัส VBA
โค้ด VBA ด้านล่างนี้สามารถช่วยคุณบันทึกค่าที่เปลี่ยนแปลงทั้งหมดในเซลล์ใน Excel กรุณาดำเนินการดังนี้
1. ในแผ่นงานมีเซลล์ที่คุณต้องการบันทึกการเปลี่ยนแปลงค่าคลิกขวาที่แท็บแผ่นงานแล้วคลิก ดูรหัส จากเมนูบริบท ดูภาพหน้าจอ:
2. จากนั้น Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างกำลังเปิดขึ้นโปรดคัดลอกโค้ด VBA ด้านล่างลงในหน้าต่างรหัส
รหัส VBA: บันทึกการเปลี่ยนแปลงค่าในเซลล์
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
หมายเหตุ / รายละเอียดเพิ่มเติม: ในโค้ด C2 คือเซลล์ที่คุณต้องการบันทึกค่าที่เปลี่ยนแปลงทั้งหมด D2 คือเซลล์ที่คุณจะเติมค่าการเปลี่ยนแปลงครั้งแรกของ C2
3 กด อื่น ๆ + Q ปุ่มเพื่อปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
จากนี้ไปทุกครั้งที่คุณเปลี่ยนค่าในเซลล์ C2 ค่าที่เปลี่ยนแปลงก่อนหน้านี้จะถูกบันทึกใน D2 และเซลล์ที่อยู่ด้านล่าง D2
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!