Snasui Excel Forum

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

[quote="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 อัพเดทค่า และ/หรือ ใช้สูตร อาจจะให้ผลที่ไม่เป็นไปตามต้องการ[/quote]
:D กรณีคำถามเกี่ยวกับ VBA ต้องเป็นไปตามกฎการใช้บอร์ดข้อ 5 ด้านบน เพื่อความเสมอภาคกันของสมาชิก คือต้องเขียนมาเองก่อน ติดตรงไหนค่อยถามกันต่อครับ

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

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 อัพเดทค่า และ/หรือ ใช้สูตร อาจจะให้ผลที่ไม่เป็นไปตามต้องการ

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

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

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