วิธีการเรียกmacroด้วยEnter

[eyepop99]

อ้างอิงจาก
http://www.snasui.com/viewtopic.php?t=8163

เท่าที่เข้าใจหลังจากที่กด Enter แล้ว จะเรียกฟังชัน Test มาทำงานแต่จากที่ลองเขียนตามด้านล่างแล้ว
พอกดenterแล้วไม่มีอะไรเกิดขึ้นครับ
หรือว่าจะต้องมีการ ระบุให้ Worksheet_Change()ทำงานใน worksheetใดๆ ก่อนครับ
รบกวนชี้แนะครับ

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
        If KeyCode = 13 Then
 
            Call Test
         
        End If
End Sub
-----------------------------------------------------------------------------------
sub Test()

	MsgBox "Hello"
End sub

[puriwutpokin]

ถ้า Enter แล้วให้คำสั่งทำงาน ปรับเป็นใช้อีกคำสั่งดีไหมครับ ในช่วงที่ให้คำสั่งทำงาน

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("a1:b10")) Is Nothing Then
            Call Test
        End If
End Sub

[eyepop99]

ถ้า Enter แล้วให้คำสั่งทำงาน ปรับเป็นใช้อีกคำสั่งดีไหมครับ ในช่วงที่ให้คำสั่งทำงาน

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("a1:b10")) Is Nothing Then
            Call Test
        End If
End Sub

ขอบคุณครับ เข้าใจการใช้งานของ Worksheet_change แล้วครับ