:D snasui.com ยินดีต้อนรับ :D
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย :thup: สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ :arrow: ระบุ Version ของ Excel
:!: โปรดทราบ :!:
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ด
  2. การสมัครสมาชิก การ Login การกู้คืนรหัสผ่าน
    1. สมัครสมาชิกดูขั้นตอนได้ที่ :arrow: สมัครสมาชิก
    2. Login เข้าระบบโดยคลิกปุ่ม Login ตรงมุมขวาบนของหน้านี้ :roll:
    3. การ Login ผ่าน Facebook ดูวิธีที่ :arrow: Login ผ่าน Facebook
    4. ลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่ :arrow: Reset รหัสผ่าน
  3. มีปัญหาการใช้งาน แจ้งผู้ดูแลระบบได้ที่ :arrow: ติดต่อผู้ดูแลระบบ
  4. กำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษดูได้ที่ :arrow: ตั้งค่าส่วนตัว
  5. การตั้งและตอบกระทู้ดูได้ที่ :arrow: วิธีการตั้งและตอบกระทู้
  6. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ :arrow: จัดรูปแบบตัวอักษร
  7. กำหนดขนาดตัวอักษรใน Browser ดูได้ที่ :arrow: กำหนดขนาดตัวอักษรใน Browser

ให้กล่องข้อความขึ้นมาแจ้งเตือนตามเงื่อนไขที่กำหนด(vba)

Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่

Post a reply


This question is a means of preventing automated form submissions by spambots.
Smilies
:D :thup: :cp: :flw: :rz: :sg: :tt: :) ;) :( :o :shock: :? 8-) :lol: :x :P :oops: :cry: :evil: :twisted: :roll: :!: :?: :idea: :arrow: :ard: :arl: :aru: :| :mrgreen: :geek: :ugeek:
BBCode is ON
[img] is ON
[url] is ON
Smilies are ON
Topic review
   

Expand view Topic review: ให้กล่องข้อความขึ้นมาแจ้งเตือนตามเงื่อนไขที่กำหนด(vba)

Re: ให้กล่องข้อความขึ้นมาแจ้งเตือนตามเงื่อนไขที่กำหนด(vba)

#14

by snasui » Wed Oct 05, 2016 9:19 pm

:D ที่ผมกล่าวถึงนั้นคือให้เลือก ไม่ใช่ให้คีย์เอง ดูภาพที่ผมโพสต์ด้านบนประกอบ

เนื่องจากโพสต์ด้วยมือถือ ต้องขออภัยที่ไม่ตรงกับค่าจริงใน VBE แต่คิดว่าน่าจะเลือกเองได้ครับ :mrgreen:

Re: ให้กล่องข้อความขึ้นมาแจ้งเตือนตามเงื่อนไขที่กำหนด(vba)

#13

by kio2002 » Wed Oct 05, 2016 9:14 pm

ผมได้ตามที่ต้องการแล้วครับ ขอบคุณคนควนและสมาชิกมากๆครับ
VBA นี้ซับซ้อนมากๆเลยครับ ผมก็พยายามเรียนรู้ด้วยตัวเอง มีหลายๆอย่างที่ยังไม่เข้าใจ อาจจะถามเยอะหน่อย

ผมลองเปลี่ยนเป็น SheetChange ตามที่แนะนำ แต่ยังไม่ได้ผล ผมจึงลบ Sheet ออก แล้วเหลือแค่ Change

Re: ให้กล่องข้อความขึ้นมาแจ้งเตือนตามเงื่อนไขที่กำหนด(vba)

#12

by snasui » Wed Oct 05, 2016 7:55 pm

:D เปลี่ยนไปเป็น SheetChange แทนครับ

Re: ให้กล่องข้อความขึ้นมาแจ้งเตือนตามเงื่อนไขที่กำหนด(vba)

#11

by kio2002 » Wed Oct 05, 2016 7:43 pm

เรียนคนควนครับ
ผมลองเขียน code ตามที่แนะนำมาแล้วครับ
ผลที่ได้คือ พอใส่เลข1 แล้วต้องไปคลิกเลือกที่เซลล์ D5 msgbox มันถึงจะเด้งขึ้นมา(ปกติแล้วเซลล์D5จะไม่ได้ใส่เลขอะไร)
แต่ผมอยากให้ msgbox มันเด้งขึ้นมาหลังจากเราใส่เลข1 แล้ว enter หรือเมื่อคลิกเลือกที่เซลล์อื่น
ไม่ทราบว่าต้องปรับ code ตรงไหนเพิ่มครับ

Code: Select all

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = Range("d5").Address Then
        If Range("d5").Value = 1 Then
            MsgBox "msgbox show"
        End If
    End If
End Sub
Attachments
ไฟล์ตัวอย่าง %281%29.xlsm
(18.83 KiB) Downloaded 51 times

Re: ให้กล่องข้อความขึ้นมาแจ้งเตือนตามเงื่อนไขที่กำหนด(vba)

#10

by snasui » Tue Oct 04, 2016 9:55 pm

:D เลือกค่าตามข้อ 1 แล้วเขียน Code เพิ่มตามข้อ 2 ครับ
Attachments
WksChange
WksChange
WorksheetChange.png (19.92 KiB) Viewed 641 times

Re: ให้กล่องข้อความขึ้นมาแจ้งเตือนตามเงื่อนไขที่กำหนด(vba)

#9

by kio2002 » Tue Oct 04, 2016 9:30 pm

เรียนคนควนครับ
ผมลองเขียน code และทดลอง run แมโคร แล้วครับ หากใส่ค่า1ที่เซลล์ D5 แล้ว msgbox จะขึ้นมาแจ้งเตือน
แต่ติดตรงที่ว่าจะทำยังไงให้ msgbox ขึ้นมาแจ้งเตือนอัตโนมัติครับ เวลาที่เราใส่ค่า1ที่เซลล์D5
รบกวนช่วยปรับ code ให้หน่อยครับ
ผมเขียน Procedure ถูกแล้วใช่ไหมครับ
code อยู่ที่ worksheet1 ครับ

Code: Select all

Sub WorkSheet_ChangeCode()
    If Sheets("sheet1").Range("d5") = 1 Then MsgBox "อย่าลืมใส่ค่าขนส่ง"
End Sub
Attachments
ไฟล์ตัวอย่าง (1).xlsm
(18.28 KiB) Downloaded 25 times

Re: ให้กล่องข้อความขึ้นมาแจ้งเตือนตามเงื่อนไขที่กำหนด(vba)

#8

by snasui » Thu Sep 22, 2016 6:12 am

:D การทำเช่นนั้นให้ทำผ่าน Event ที่ชื่อว่า WorkSheet_Change Code สำคัญต้องเขียนอยู่ในชีตที่ต้องการดักการเปลี่ยนแปลง (Double Click ชื่อชีตในหน้าต่าง VBE จะเปิดหน้าต่างสำหรับเขียน Code มาให้) เมื่อเขียนใน WorkSheet_Change แล้วจะเรียกใช้ Code ใน Module หรือไม่ก็แล้วแต่ความต้องการ

ลองเขียนมาเองก่อนตามคำแนะนำวรรคบน จากไฟล์ล่าสุด ชื่อของ Procedure ยังมีวรรคอยู่เช่นเดิม กรุณาอ่านที่ผมตอบไปด้านบนด้วยครับ

Re: ให้กล่องข้อความขึ้นมาแจ้งเตือนตามเงื่อนไขที่กำหนด(vba)

#7

by kio2002 » Wed Sep 21, 2016 9:12 pm

Serverchita wrote:ปรับเป็น Code ตามไฟล์แนบครับ

Code: Select all

Private Sub CommandButton1_Click()
r = 4
Do
r = r + 1
Loop Until Cells(r, 4) <> ""
Cells(r, 4).Select
MsgBox "ªèͧ D" & Cells(r, 1) + 4 & " ÁÕ¢éÍÁÙÅ", vbCritical
End Sub
ต้องขออภัยครับ พอดีผมอธิบายไม่หมด และแนบไฟล์ผิด
ผมอยากให้ Msgbox ขึ้นมาแจ้งเตือนอัติโนมัติ โดยไม่ต้องกดปุ่มครับ
สมมุติว่าใส่เลข1หรือ2ในเซลล์D5 อยากให้ Msgbox ขึ้นมาแจ้งเตือนอัติโนมัติ "อย่าลืมใส่ค่าขนส่ง"
มือใหม่กำลังฝึก ต้องรบกวนหน่อยนะครับ
Attachments
ไฟล์ตัวอย่าง.xlsm
(17.43 KiB) Downloaded 18 times

Re: ให้กล่องข้อความขึ้นมาแจ้งเตือนตามเงื่อนไขที่กำหนด(vba)

#6

by Serverchita » Wed Sep 21, 2016 9:01 pm

ปรับเป็น Code ตามไฟล์แนบครับ

Code: Select all

Private Sub CommandButton1_Click()
r = 4
Do
r = r + 1
Loop Until Cells(r, 4) <> ""
Cells(r, 4).Select
MsgBox "ªèͧ D" & Cells(r, 1) + 4 & " ÁÕ¢éÍÁÙÅ", vbCritical
End Sub
Attachments
ไฟล์ตัวอย่าง.xlsm
(24.84 KiB) Downloaded 14 times

Re: ให้กล่องข้อความขึ้นมาแจ้งเตือนตามเงื่อนไขที่กำหนด(vba)

#5

by snasui » Wed Sep 21, 2016 9:00 pm

:D ทดสอบ Code ที่คุณ Serverchita ตอบด้านบน โดยเปลี่ยนเครื่องหมาย = เป็น <> แล้วแจ้งผลด้วยครับ

Re: ให้กล่องข้อความขึ้นมาแจ้งเตือนตามเงื่อนไขที่กำหนด(vba)

#4

by kio2002 » Wed Sep 21, 2016 8:54 pm

snasui wrote::D อ่าน MsgBox ใน Code แล้วเข้าใจว่าอธิบายมาไม่ถูกต้อง

ช่วยยืนยันใหม่ว่า กรณีมีค่าใดที่ไม่เป็นค่าว่างหรือเท่ากับ 0 แล้วให้แจ้่งเตือน หากเป็นเช่นนี้ตามไฟล์ตัวอย่างจะแจ้งเตือนทุกค่า เพราะไม่มีเซลล์ใดจาก D5 เป็นต้นไปเป็นเซลล์ว่าง

การเขียนชื่อ Procedure ห้ามเว้นวรรคครับ
ครับ กรณีมีค่าใดใน cell d5 ที่ไม่เป็นค่าว่างหรือเท่ากับ 0 แล้วให้แจ้งเตือน
เช่น cell d5 ใส่เลข 1,2,3,4.... อยากให้ msgbox ขึ้นมาแจ้งเตือนครับ(โดยปกติแล้ว cell d5 จะไม่มีตัวเลข)
Attachments
ไฟล์ตัวอย่าง.xlsm
(21.24 KiB) Downloaded 14 times

Re: ให้กล่องข้อความขึ้นมาแจ้งเตือนตามเงื่อนไขที่กำหนด(vba)

#3

by Serverchita » Wed Sep 21, 2016 8:42 pm

ใช้ Code ตามนี้ครับ มีตัวอย่างไฟล์แนบเพิ่มเติมด้วยครับ

Code: Select all

Private Sub CommandButton1_Click()
r = 4
Do
r = r + 1
Loop Until Cells(r, 4) = ""
Cells(r, 4).Select

MsgBox "ÂѧäÁèä´é¡ÃÍ¡¨Ó¹Ç¹  ÅӴѺ·Õè " & Cells(r, 1)


End Sub
Attachments
ไฟล์ตัวอย่าง.xlsm
(24.82 KiB) Downloaded 30 times

Re: ให้กล่องข้อความขึ้นมาแจ้งเตือนตามเงื่อนไขที่กำหนด(vba)

#2

by snasui » Wed Sep 21, 2016 8:35 pm

:D อ่าน MsgBox ใน Code แล้วเข้าใจว่าอธิบายมาไม่ถูกต้อง

ช่วยยืนยันใหม่ว่า กรณีมีค่าใดที่ไม่เป็นค่าว่างหรือเท่ากับ 0 แล้วให้แจ้่งเตือน หากเป็นเช่นนี้ตามไฟล์ตัวอย่างจะแจ้งเตือนทุกค่า เพราะไม่มีเซลล์ใดจาก D5 เป็นต้นไปเป็นเซลล์ว่าง

การเขียนชื่อ Procedure ห้ามเว้นวรรคครับ

ให้กล่องข้อความขึ้นมาแจ้งเตือนตามเงื่อนไขที่กำหนด(vba)

#1

by kio2002 » Wed Sep 21, 2016 8:12 pm

เรียน ทุกท่านครับ
ผมสร้าง code ไว้ที่ module3
โดยต้องการให้ หาก cell d5 มีค่าใดๆ ที่ไม่ใช่ 0 หรือค่าว่างเปล่า
ผมอยากให้มีกล่องข้อความขึ้นมาแจ้งเตือนครับ แต่ผมลองแล้ว code มัน error ครับ
หรือมีวิธีอื่นที่ไม่ต้องใช้ vba สามารถแนะนำมาได้นะครับ
รบกวนทุกท่านช่วยดูให้หน่อยครับ ขอบคุณครับ

Code: Select all

Sub MsgBox shows()
    Dim rng As Long
     For Each rng In Sheets("sheet1").Range("D5")
    If rng.Value = 0 + 1 Then
    End If
    Next rng
    MsgBox "อย่าลืมใส่ค่าขนส่งนะครับ"
End Sub
Attachments
ไฟล์ตัวอย่าง.xlsm
(20.28 KiB) Downloaded 30 times

Top