เรียกใช้แมโคร Excel โดยอัตโนมัติในการเปลี่ยนแปลงเซลล์

ฉันจะเรียกใช้แมโคร Excel โดยอัตโนมัติทุกครั้งที่ค่าในเซลล์ใดเซลล์หนึ่งเปลี่ยนแปลงได้อย่างไร

ตอนนี้รหัสการทำงานของฉันคือ:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("H5")) Is Nothing Then Macro
End Sub

"H5"เซลล์ที่ถูกตรวจสอบอยู่ที่ไหนและMacroเป็นชื่อของมาโคร

มีวิธีที่ดีกว่า?

รหัสของคุณดูดีทีเดียว

อย่างไรก็ตามโปรดระวังสำหรับการโทรของคุณRange("H5")เป็นคำสั่งทางลัดApplication.Range("H5")ซึ่งเทียบเท่ากับApplication.ActiveSheet.Range("H5"). สิ่งนี้อาจใช้ได้ดีหากการเปลี่ยนแปลงเพียงอย่างเดียวคือการเปลี่ยนแปลงของผู้ใช้ซึ่งเป็นเรื่องปกติมากที่สุด แต่เป็นไปได้ที่ค่าเซลล์ของแผ่นงานจะเปลี่ยนแปลงเมื่อไม่ใช่แผ่นงานที่ใช้งานอยู่ผ่านการเปลี่ยนแปลงทางโปรแกรมเช่น VBA

ด้วยเหตุนี้ฉันจะใช้Target.Worksheet.Range("H5"):

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Target.Worksheet.Range("H5")) Is Nothing Then Macro
End Sub

หรือคุณสามารถใช้Me.Range("H5")หากตัวจัดการเหตุการณ์อยู่ในหน้ารหัสของแผ่นงานที่เป็นปัญหา (โดยปกติจะเป็น):

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("H5")) Is Nothing Then Macro
End Sub

หวังว่านี่จะช่วยได้ ...

จัดการกับWorksheet_Changeเหตุการณ์หรือWorkbook_SheetChangeเหตุการณ์

ตัวจัดการเหตุการณ์ใช้อาร์กิวเมนต์ "Target As Range" ดังนั้นคุณสามารถตรวจสอบได้ว่าช่วงที่เปลี่ยนไปมีเซลล์ที่คุณสนใจหรือไม่

ฉันใช้เวลาค้นคว้าเรื่องนี้นานมากและเรียนรู้วิธีการทำงานทั้งหมดหลังจากที่ทำให้เหตุการณ์เกิดความสับสน เนื่องจากมีข้อมูลกระจัดกระจายมากมายฉันจึงตัดสินใจแบ่งปันสิ่งที่ฉันพบว่าใช้งานได้ทั้งหมดในที่เดียวทีละขั้นตอนดังนี้:

1) เปิด VBA Editor ภายใต้โครงการ VBA (YourWorkBookName.xlsm) เปิดวัตถุ Microsoft Excel และเลือกแผ่นงานที่จะเกี่ยวข้องกับเหตุการณ์การเปลี่ยนแปลง

2) มุมมองโค้ดเริ่มต้นคือ "ทั่วไป" จากรายการแบบเลื่อนลงตรงกลางด้านบนเลือก "แผ่นงาน"

3) Private Sub Worksheet_SelectionChange มีอยู่แล้วตามที่ควรจะเป็นปล่อยไว้คนเดียว คัดลอก / วางรหัสของ Mike Rosenblum จากด้านบนและเปลี่ยนการอ้างอิง. ช่วงไปยังเซลล์ที่คุณกำลังเฝ้าดูการเปลี่ยนแปลง (B3 ในกรณีของฉัน) อย่าวางมาโครของคุณอย่างไรก็ตาม (ฉันลบคำว่า "มาโคร" หลัง "จากนั้น"):

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("H5")) Is Nothing Then
End Sub

หรือจากรายการแบบเลื่อนลงที่ด้านซ้ายบนให้เลือก "เปลี่ยน" และในช่องว่างระหว่าง Private Sub และ End Sub ให้วาง If Not Intersect(Target, Me.Range("H5")) Is Nothing Then

4) ในบรรทัดหลังจาก "จากนั้น" ปิดเหตุการณ์เพื่อที่เมื่อคุณเรียกใช้มาโครของคุณจะไม่ทำให้เกิดเหตุการณ์และพยายามเรียกใช้ Worksheet_Change นี้อีกครั้งในวงจรที่ไม่สิ้นสุดซึ่งทำให้ Excel ขัดข้องและ / หรือทำให้ทุกอย่างยุ่งเหยิง:

Application.EnableEvents = False

5) เรียกมาโครของคุณ

Call YourMacroName

6) เปิดเหตุการณ์อีกครั้งเพื่อให้การเปลี่ยนแปลงครั้งต่อไป (และเหตุการณ์อื่น ๆ / ทั้งหมด) ทริกเกอร์:

Application.EnableEvents = True

7) สิ้นสุดบล็อก If และ Sub:

    End If
End Sub

รหัสทั้งหมด:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("B3")) Is Nothing Then
        Application.EnableEvents = False
        Call UpdateAndViewOnly
        Application.EnableEvents = True
    End If
End Sub

สิ่งนี้จะเปิด / ปิดเหตุการณ์ออกจากโมดูลซึ่งสร้างปัญหาและเพียงแค่ให้ทริกเกอร์การเปลี่ยนแปลงปิดเหตุการณ์เรียกใช้แมโครของคุณและเปิดเหตุการณ์อีกครั้ง

ฉันชอบวิธีนี้มากกว่าไม่ใช้เซลล์ แต่เป็นช่วง

    Dim cell_to_test As Range, cells_changed As Range

    Set cells_changed = Target(1, 1)
    Set cell_to_test = Range( RANGE_OF_CELLS_TO_DETECT )

    If Not Intersect(cells_changed, cell_to_test) Is Nothing Then 
       Macro
    End If

ฉันมีเซลล์ที่เชื่อมโยงกับฐานข้อมูลหุ้นออนไลน์และอัปเดตบ่อยๆ ฉันต้องการเรียกใช้มาโครทุกครั้งที่มีการอัปเดตค่าของเซลล์

ฉันเชื่อว่านี่คล้ายกับการเปลี่ยนแปลงค่าของเซลล์โดยโปรแกรมหรือการอัปเดตข้อมูลภายนอก แต่ตัวอย่างข้างต้นไม่ได้ผลสำหรับฉัน ฉันคิดว่าปัญหาเป็นเพราะเหตุการณ์ภายในของ excel ไม่ได้ถูกเรียก แต่นั่นคือการคาดเดาของฉัน

ฉันทำสิ่งต่อไปนี้

Private Sub Worksheet_Change(ByVal Target As Range) 
  If Not Intersect(Target, Target.Worksheets("Symbols").Range("$C$3")) Is Nothing Then
   'Run Macro
End Sub