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

[kio2002]

เรียน ทุกท่านครับ
ผมสร้าง 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

[snasui]

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

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

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

[Serverchita]

ใช้ 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

[kio2002]

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

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

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

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

[snasui]

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

[Serverchita]

ปรับเป็น 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

[kio2002]

ปรับเป็น 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 ขึ้นมาแจ้งเตือนอัติโนมัติ "อย่าลืมใส่ค่าขนส่ง"
มือใหม่กำลังฝึก ต้องรบกวนหน่อยนะครับ

[snasui]

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

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

[kio2002]

เรียนคนควนครับ
ผมลองเขียน 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

[snasui]

เลือกค่าตามข้อ 1 แล้วเขียน Code เพิ่มตามข้อ 2 ครับ

[kio2002]

เรียนคนควนครับ
ผมลองเขียน 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

[snasui]

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

[kio2002]

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

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

[snasui]

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

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