Page 1 of 1
คำสั่งใน vba ให้ทำงานอัตโนมัติเมื่อเซลล์ว่าง
Posted: Tue Mar 15, 2022 3:25 pm
by b.ease
อาจารย์คะ รบกวนให้ความรู้ด้วยได้ไหมคะ
ทำมาหลายวันแล้วยังไม่ได้ค่ะ
คือ ตามไฟล์แนบ ต้องการถ้า M4 ว่าง ให้
d19:k20 clear.contents แล้วลบเส้นตารางและไม่เติมสีในเซลล์ (ตาม code ท้าย vba)
เขียน code แล้ว (code ท้าย sheet1 ใน vba) ลองกด run มันได้ตามต้องการค่ะ แต่ถ้าไม่กด run มันไม่ทำงาน ต้องการให้มันทำงานอัตโนมัติค่ะ
ลองหาตาม google แล้วยังไม่ได้เลยค่ะ หรือค้นหาไม่ถูกคำ
Re: คำสั่งใน vba ให้ทำงานอัตโนมัติเมื่อเซลล์ว่าง
Posted: Tue Mar 15, 2022 3:46 pm
by b.ease
ใช้ Worksheet_Change แล้ว พอลองคลิก M4 แล้วกด Delete (ให้เซลล์ M4 ว่าง) มันไม่ทำงานค่ะ
หรือรบกวนผู้รู้ทุกๆท่านด้วยค่ะ
Re: คำสั่งใน vba ให้ทำงานอัตโนมัติเมื่อเซลล์ว่าง
Posted: Tue Mar 15, 2022 3:53 pm
by snasui
b.ease wrote: Tue Mar 15, 2022 3:46 pm
ใช้
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
Re: คำสั่งใน vba ให้ทำงานอัตโนมัติเมื่อเซลล์ว่าง
Posted: Tue Mar 15, 2022 4:06 pm
by b.ease
ลองใส่เพิ่มแล้วค่ะ พอคลิก M4 แล้วกด Delete (ให้เซลล์ M4 ว่าง) มันก็ยังไม่ทำงานค่ะ
Re: คำสั่งใน vba ให้ทำงานอัตโนมัติเมื่อเซลล์ว่าง
Posted: Tue Mar 15, 2022 4:48 pm
by 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
Re: คำสั่งใน vba ให้ทำงานอัตโนมัติเมื่อเซลล์ว่าง
Posted: Wed Mar 16, 2022 9:23 am
by b.ease
ได้แล้วค่ะอาจารย์ ขอบคุณมากค่ะ
Intermediate Check.xlsm