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

[b.ease]

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

Intermediate Check.xlsm

(36.92 KiB) Downloaded 3 times

[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

(37.8 KiB) Downloaded 5 times

ลองใส่เพิ่มแล้วค่ะ พอคลิก 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]

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