Snasui Excel Forum

:D กรุณาแนบไฟล์ตัวอย่างที่มี Code นี้เรียบร้อยแล้วมาด้วย จะได้สะดวกในการตอบของเพื่อนสมาชิกครับ

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

ขอสอบถามครับ
จุดประสงค์ต้องการดังนี้
1. เมื่อมีการเปลี่ยนแปลง Cell A1 ให้ Cell D1 บันทึก time stamp อัตโนมัติ แบบจับคู่ลงไปจนถึง A5 ที่จะคู่กับ D5 เป็นคู่ๆ เท่านั้น และถ้ามีการเปลี่ยนแปลงตัวเลข ใน A2 จะมีผลแค่ D2 ไม่มากระทบที่ D1

ปัจจุบัน โค้ดที่เขียน ยังคงมั่วๆไปต่อไม่เป็น อยากให้ช่วยแนะนำด้วยครับ

[code]
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]