Snasui Excel Forum

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

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

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

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

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

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

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

[attachment=0]Intermediate Check.xlsm[/attachment]
ลองใส่เพิ่มแล้วค่ะ พอคลิก M4 แล้วกด Delete (ให้เซลล์ M4 ว่าง) มันก็ยังไม่ทำงานค่ะ

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

[quote=b.ease post_id=111192 time=1647333960 user_id=33548]
ใช้ [color=#BF4000]Worksheet_Change[/color] แล้ว พอลองคลิก M4 แล้วกด Delete (ให้เซลล์ M4 ว่าง) มันไม่ทำงานค่ะ
หรือรบกวนผู้รู้ทุกๆท่านด้วยค่ะ
[/quote]:D [color=#FF4000]ต้องเขียนให้ตรวจจับ M4[/color] ด้วยครับ

เช่น

[code]
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
[/code]

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

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