สอบถามเกี่ยวกับ Macro การเปลี่ยนแปลง cell ใน Sheet ครับ
Posted: Tue Jun 30, 2020 4:16 pm
ขอสอบถามครับ
จุดประสงค์ต้องการดังนี้
1. เมื่อมีการเปลี่ยนแปลง Cell A1 ให้ Cell D1 บันทึก time stamp อัตโนมัติ แบบจับคู่ลงไปจนถึง A5 ที่จะคู่กับ D5 เป็นคู่ๆ เท่านั้น และถ้ามีการเปลี่ยนแปลงตัวเลข ใน A2 จะมีผลแค่ D2 ไม่มากระทบที่ D1
ปัจจุบัน โค้ดที่เขียน ยังคงมั่วๆไปต่อไม่เป็น อยากให้ช่วยแนะนำด้วยครับ
จุดประสงค์ต้องการดังนี้
1. เมื่อมีการเปลี่ยนแปลง Cell A1 ให้ Cell D1 บันทึก time stamp อัตโนมัติ แบบจับคู่ลงไปจนถึง A5 ที่จะคู่กับ D5 เป็นคู่ๆ เท่านั้น และถ้ามีการเปลี่ยนแปลงตัวเลข ใน A2 จะมีผลแค่ D2 ไม่มากระทบที่ D1
ปัจจุบัน โค้ดที่เขียน ยังคงมั่วๆไปต่อไม่เป็น อยากให้ช่วยแนะนำด้วยครับ
Code: Select all
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
On Error Resume Next
Set KeyCells = Range("A1:A5") & ("A8:A10")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
If TypeName(Range("A1").Value) = "Double" Then
Range("D1").Value = Format(Time, "hh:mm:ss")
End If
' ส่วนนี้ปิดไว้ตอนเปิด เหมือนทำงานเป็น loop จน excel ค้างเริ่มใหม่
' If TypeName(Range("A2").Value) = "Double" Then
' Range("D2").Value = Format(Time, "hh:mm:ss")
' End If
End If
End Sub
กรุณาแนบไฟล์ตัวอย่างที่มี Code นี้เรียบร้อยแล้วมาด้วย จะได้สะดวกในการตอบของเพื่อนสมาชิกครับ