Page 1 of 1
ข้อความแจ้งเตือนถ้าหากไม่เลือกDrop list
Posted: Fri Mar 26, 2021 9:59 pm
by Sunyoyo
pic.png
ต้องการให้มีข้อความแจ้งเตือนถ้าช่องcell drop list ว่าง มีแนวทางทำได้ไหมครับ
Re: ข้อความแจ้งเตือนถ้าหากไม่เลือกDrop list
Posted: Fri Mar 26, 2021 10:35 pm
by puriwutpokin
ใช้ Condition Format ช่วยได้ถ้าเป็นค่าว่างให้ขึ้นสีครับ หรือค่าที่ไม่มีในList ก็ให้ขึ้นสีหรืออื่นๆ ตามที่มีให้เลือกฟอร์แมทได้ครับ
Re: ข้อความแจ้งเตือนถ้าหากไม่เลือกDrop list
Posted: Fri Mar 26, 2021 10:50 pm
by Sunyoyo
ขอบคุณครับ แล้วสามารถทำให้มีการแจ้งเตือนขึ้นได้ไหมครับ ว่าถ้าไม่เลือกก็จะมีข้อความแจ้งเตือนขึ้นอ่าครับ
Re: ข้อความแจ้งเตือนถ้าหากไม่เลือกDrop list
Posted: Fri Mar 26, 2021 10:54 pm
by puriwutpokin
ถ้าไม่เลือกรายการใน List ให้แจ้งเตือนข้อความ ในList ก็ทำได้อยู่แล้ว แต่ถ้า หมายถึงไม่เลือก กดDrop down
ผ่านไปเซลอื่นเลย แบบนั้นต้องใช้ vba ถ้าต้องการขึ้นข้อความ ลองศึกษาหรือเขียนมาก่อนดูครับ ติดแล้วมาถามกันต่อครับ หรืออาจใช้Validate มาช่วยก็ได้ ต้องแนบไฟล์มาดูเงื่อนไขของแต่ละเซลก่อนถึงจะตอบได้ครับ
ขอบคุณครับ แล้วสามารถทำให้มีการแจ้งเตือนขึ้นได้ไหมครับ ว่าถ้าไม่เลือกก็จะมีข้อความแจ้งเตือนขึ้นอ่าครับ
กรุณาอย่าใช้ภาษาแชทครับ
Re: ข้อความแจ้งเตือนถ้าหากไม่เลือกDrop list
Posted: Mon Mar 29, 2021 10:29 am
by Sunyoyo
ขอโทษครับ
Code: Select all
If type = "" Then
MsgBox "Please"
Exit Sub
End If
ผมลองเขียนรูปแบบนี้ แต่Runไม่ผ่านครับ รบกวนด้วยครับ
Re: ข้อความแจ้งเตือนถ้าหากไม่เลือกDrop list
Posted: Mon Mar 29, 2021 12:30 pm
by puriwutpokin
Sunyoyo wrote: Mon Mar 29, 2021 10:29 am
ขอโทษครับ
Code: Select all
If type = "" Then
MsgBox "Please"
Exit Sub
End If
ผมลองเขียนรูปแบบนี้ แต่Runไม่ผ่านครับ รบกวนด้วยครับ
แนบไฟล์ตัวอย่างมาดูด้วยครับ จะได้สะดวกต่อการตอบครับ

Re: ข้อความแจ้งเตือนถ้าหากไม่เลือกDrop list
Posted: Mon Mar 29, 2021 1:19 pm
by Sunyoyo
ไฟล์ตัวอย่างครับ
Re: ข้อความแจ้งเตือนถ้าหากไม่เลือกDrop list
Posted: Mon Mar 29, 2021 6:04 pm
by snasui

ไฟล์ตัวอย่างจะต้องมี Code แนบมาด้านในด้วยครับ
ไฟล์ที่จะแนบ Code ได้จะต้องมีนามสกุลเป็นอย่างอื่นเช่น .xls, .xlsm, .xlsb เช่นนี้เป็นต้น ส่วน .xlsx ตามที่แนบมาในโพสต์ #7 ไม่สามารถแนบ Code มาได้ครับ
Re: ข้อความแจ้งเตือนถ้าหากไม่เลือกDrop list
Posted: Mon Mar 29, 2021 6:52 pm
by Sunyoyo
Sunyoyo wrote: Mon Mar 29, 2021 1:19 pm
ไฟล์ตัวอย่างใหม่ครับ
Re: ข้อความแจ้งเตือนถ้าหากไม่เลือกDrop list
Posted: Mon Mar 29, 2021 7:01 pm
by Sunyoyo
Sunyoyo wrote: Mon Mar 29, 2021 6:52 pm
Sunyoyo wrote: Mon Mar 29, 2021 1:19 pm
ไฟล์ตัวอย่างใหม่ครับ
Code: Select all
If type = "" Then
MsgBox "Please"
Exit Sub
End If
ผมต้องการให้ช่อง D,E,F ถ้าเป็นช่องว่างให้แสดงข้อความเตือน "please" ครับ
Re: ข้อความแจ้งเตือนถ้าหากไม่เลือกDrop list
Posted: Mon Mar 29, 2021 7:28 pm
by snasui

Code ที่แนบมานั้นไม่สามารถใช้งานได้เพราะมีไม่ครบส่วนประกอบของการเป็น Code ครับ
จากตัวอย่าง Code ที่แนบมาเป็นการใช้ Sub Procedure ดังนั้น จะต้องครอบด้วย
เมื่อแทนค่า
'Your code ด้วย Code ที่เขียนมาจะได้เป็น
Code: Select all
Sub SubName()
If type = "" Then
MsgBox "Please"
Exit Sub
End If
End Sub
สิ่งเหล่านี้จะต้องศึกษามาก่อนตามลำดับ ไม่เช่นนั้นจะไม่เข้าใจและเมื่อไม่เข้าใจก็จะไม่สามารถปรับปรุง Code ที่ได้รับไปได้
การที่จะให้ขึ้นข้อความ "Please" เมื่อคอลัมน์ D มีค่าว่างก็
จะต้องมีจุดตัดสินใจว่าให้ขึ้นข้อความนั้นเมื่อใด ยกตัวอย่างเช่น
- ขึ้นข้อความเมื่อเลือกเซลล์ในคอลัมน์ E แต่คอลัมน์ D ยังเป็นเซลล์ว่าง หรือ
- ขึ้นเมื่อเลือกชีตอื่น ซึ่งการเลือกชีตอื่นแสดงว่าเสร็จสิ้นจากการทำงานในชีตปัจจุบันแล้วแต่ยังพบว่าคอลัมน์ D ยังมีเซลล์ว่าง หรือ
- ขึ้นเมื่อปิดไฟล์
- ฯลฯ
กรณีไม่มีความรู้เรื่อง Code ควรใช้สูตรมาช่วยเสียก่อน เช่นที่เซลล์ใด ๆ เขียนนับเซลล์ว่างในคอลัมน์ D หากยังมีเซลล์ว่างให้แสดงข้อความ "Check" ที่เซลล์ใด ๆ ที่กล่าวถึงเช่นเซลล์ H1 เราสามารถกำหนดสีไม่ว่าจะเป็นสีข้อความหรือสีพื้นหลังได้ตามต้องการ
หากจะนำ Code มาช่วยก็ให้ตรวจสอบจาก H1 ว่ามีค่ามากกว่า 0 หรือไม่ ถ้ามีก็ให้ขึ้นข้อความ แต่ก็ต้องกลับไปตัดสินใจว่าจะให้ขึ้นข้อความเมื่อใดเช่นเดียวกันครับ