รบกวนผู้รู้แนะนำสูตร vba สำหรับการเก็บค่าเก่าของ cell หนึ่ง ก่อนที่ค่าจะถูก update เป็นค่าใหม่

[devouring]

ผมมีข้อมูลของ worksheet อยู่ชุดหนึ่งซึ่ง cell แต่ละ cell ใน worksheet นี้จะถูก update ตัวเองตลอดเวลา ซึ่งผมต้องการให้เมื่อทุกครั้งที่ cell ใดก็ตามที่เกิดการเปลี่ยนแปลงเกิดขึ้น จะให้โปรแกรมนำข้อมูลก่อนเปลี่ยนแปลงของ cell นั้น มาเทียบกันกับ ข้อมูลใหม่ของ cell เดียวกัน

ไม่ทราบว่าต้องเขียน VBA ว่าอย่างไรครับ ผมพยายามแล้วไม่สามารถทำได้เลย รบกวนผู้รู้แนะนำด้วยครับ

[bank9597]

ลองบันทึกมาโครแบบง่ายๆมาดูครับ เดี๋ยวจะช่วยดูให้อีกทางครับ

[menem]

Dim OldVal


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
OldVal = Target.Value
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)

MsgBox (" Old Value is " & OldVal & " new is " & Target.Value)


End Sub


อธิบายเพิ่มเติมครับ :
หลักการคือ เราถือว่าก่อนการเปลี่ยนค่าในเซลใด ๆ จะต้องมีการ "เลือก" เซลนั้น ๆ ก่อน
ดังนั้น Event : SelectionChange คือการอ่านค่าของเซลที่ถูกเลือกมาเก็บไว้ก่อนนั่นเอง

ในกรณีที่ใช้ VBA อัพเดทค่า และ/หรือ ใช้สูตร อาจจะให้ผลที่ไม่เป็นไปตามต้องการ

[snasui]

Dim OldVal


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
OldVal = Target.Value
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)

MsgBox (" Old Value is " & OldVal & " new is " & Target.Value)


End Sub


อธิบายเพิ่มเติมครับ :
หลักการคือ เราถือว่าก่อนการเปลี่ยนค่าในเซลใด ๆ จะต้องมีการ "เลือก" เซลนั้น ๆ ก่อน
ดังนั้น Event : SelectionChange คือการอ่านค่าของเซลที่ถูกเลือกมาเก็บไว้ก่อนนั่นเอง

ในกรณีที่ใช้ VBA อัพเดทค่า และ/หรือ ใช้สูตร อาจจะให้ผลที่ไม่เป็นไปตามต้องการ

กรณีคำถามเกี่ยวกับ VBA ต้องเป็นไปตามกฎการใช้บอร์ดข้อ 5 ด้านบน เพื่อความเสมอภาคกันของสมาชิก คือต้องเขียนมาเองก่อน ติดตรงไหนค่อยถามกันต่อครับ

การถามตอบด้วย Code ควรให้แสดงเป็น Code จะได้สะดวกในการอ่านและ Copy ไปทดสอบ ดูตัวอย่างได้จากที่นี่ครับ viewtopic.php?f=6&t=1187

[menem]

ขอโทษด้วยครับ