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 มาช่วยก็ได้​ ต้องแนบไฟล์มาดูเงื่อนไขของแต่ละเซลก่อนถึงจะตอบได้ครับ :D
ขอบคุณครับ แล้วสามารถทำให้มีการแจ้งเตือนขึ้นได้ไหมครับ ว่าถ้าไม่เลือกก็จะมีข้อความแจ้งเตือนขึ้นอ่าครับ
กรุณา​อย่าใช้ภาษาแชทครับ

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ไม่ผ่านครับ รบกวนด้วยครับ
แนบไฟล์ตัวอย่างมาดูด้วยครับ จะได้สะดวกต่อการตอบครับ :D

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
:D ไฟล์ตัวอย่างจะต้องมี 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
:D Code ที่แนบมานั้นไม่สามารถใช้งานได้เพราะมีไม่ครบส่วนประกอบของการเป็น Code ครับ

จากตัวอย่าง Code ที่แนบมาเป็นการใช้ Sub Procedure ดังนั้น จะต้องครอบด้วย

Code: Select all

Sub SubName()
'Your code
End Sub
เมื่อแทนค่า 'Your code ด้วย Code ที่เขียนมาจะได้เป็น

Code: Select all

Sub SubName()
If type = "" Then
    MsgBox "Please"
    Exit Sub
End If
End Sub
สิ่งเหล่านี้จะต้องศึกษามาก่อนตามลำดับ ไม่เช่นนั้นจะไม่เข้าใจและเมื่อไม่เข้าใจก็จะไม่สามารถปรับปรุง Code ที่ได้รับไปได้

การที่จะให้ขึ้นข้อความ "Please" เมื่อคอลัมน์ D มีค่าว่างก็จะต้องมีจุดตัดสินใจว่าให้ขึ้นข้อความนั้นเมื่อใด ยกตัวอย่างเช่น
  1. ขึ้นข้อความเมื่อเลือกเซลล์ในคอลัมน์ E แต่คอลัมน์ D ยังเป็นเซลล์ว่าง หรือ
  2. ขึ้นเมื่อเลือกชีตอื่น ซึ่งการเลือกชีตอื่นแสดงว่าเสร็จสิ้นจากการทำงานในชีตปัจจุบันแล้วแต่ยังพบว่าคอลัมน์ D ยังมีเซลล์ว่าง หรือ
  3. ขึ้นเมื่อปิดไฟล์
  4. ฯลฯ
กรณีไม่มีความรู้เรื่อง Code ควรใช้สูตรมาช่วยเสียก่อน เช่นที่เซลล์ใด ๆ เขียนนับเซลล์ว่างในคอลัมน์ D หากยังมีเซลล์ว่างให้แสดงข้อความ "Check" ที่เซลล์ใด ๆ ที่กล่าวถึงเช่นเซลล์ H1 เราสามารถกำหนดสีไม่ว่าจะเป็นสีข้อความหรือสีพื้นหลังได้ตามต้องการ

หากจะนำ Code มาช่วยก็ให้ตรวจสอบจาก H1 ว่ามีค่ามากกว่า 0 หรือไม่ ถ้ามีก็ให้ขึ้นข้อความ แต่ก็ต้องกลับไปตัดสินใจว่าจะให้ขึ้นข้อความเมื่อใดเช่นเดียวกันครับ