คำสั่งใน vba ให้ทำงานอัตโนมัติเมื่อเซลล์ว่าง

[b.ease]

อาจารย์คะ รบกวนให้ความรู้ด้วยได้ไหมคะ
ทำมาหลายวันแล้วยังไม่ได้ค่ะ
คือ ตามไฟล์แนบ ต้องการถ้า M4 ว่าง ให้
d19:k20 clear.contents แล้วลบเส้นตารางและไม่เติมสีในเซลล์ (ตาม code ท้าย vba)
เขียน code แล้ว (code ท้าย sheet1 ใน vba) ลองกด run มันได้ตามต้องการค่ะ แต่ถ้าไม่กด run มันไม่ทำงาน ต้องการให้มันทำงานอัตโนมัติค่ะ
ลองหาตาม google แล้วยังไม่ได้เลยค่ะ หรือค้นหาไม่ถูกคำ

Intermediate Check.xlsm

[b.ease]

ใช้ Worksheet_Change แล้ว พอลองคลิก M4 แล้วกด Delete (ให้เซลล์ M4 ว่าง) มันไม่ทำงานค่ะ
หรือรบกวนผู้รู้ทุกๆท่านด้วยค่ะ

[snasui]

ใช้ Worksheet_Change แล้ว พอลองคลิก M4 แล้วกด Delete (ให้เซลล์ M4 ว่าง) มันไม่ทำงานค่ะ
หรือรบกวนผู้รู้ทุกๆท่านด้วยค่ะ

ต้องเขียนให้ตรวจจับ M4 ด้วยครับ

เช่น

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "M4" Then
    Call DecisionIf_Else
    Exit Sub
End If
If Target.Address = "$G$7" Then
If Range("T12") = "1" Then
'Other code

[b.ease]

Intermediate Check.xlsm

ลองใส่เพิ่มแล้วค่ะ พอคลิก M4 แล้วกด Delete (ให้เซลล์ M4 ว่าง) มันก็ยังไม่ทำงานค่ะ

[snasui]

ไฟล์ล่าสุดยังไม่ปรับ Code มาครับ

ตอนนี้ใน Sheet1 มีการ Merge Cell ทำให้เมื่อกด Delete เซลล์ M4 โปรแกรมจะเข้าใจว่าเป็นการ Delete M4:N4 ไม่ใช่ M4 อย่างเดียว เพราะฉะนั้น ปรับ Code เพื่อดักจับเสียใหม่เป็นด้านล่างครับ

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells(1).Address(0, 0) = "M4" Then
    Call DecisionIf_Else
'Other code

การใช้ Code จำเป็นอย่างยิ่งที่จะต้อง Debug ให้เป็นไม่เช่นนั้นจะยุ่งยากลำบากมากครับ

วิธีการ Debug ดูที่นี่เป็นเบื้องต้นครับ viewtopic.php?f=3&t=17483&p=103247#p103247

[b.ease]

ได้แล้วค่ะอาจารย์ ขอบคุณมากค่ะ