Snasui Excel Forum

Posted: **Wed Oct 18, 2017 4:20 pm**

อ้างอิงจาก
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

Posted: **Wed Oct 18, 2017 4:59 pm**

ถ้า 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

Posted: **Wed Oct 18, 2017 5:31 pm**

puriwutpokin wrote:ถ้า 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 แล้วครับ

Snasui Excel Forum

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

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

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

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