วิธีบันทึกการเปลี่ยนแปลงค่าในเซลล์ใน 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 และเซลล์ด้านล่าง