แทรก msgBox ในโค๊ด VB

[bank9597]

อาจารย์ครับ เราจะแทรก msgBox อย่างไร เพื่อเป็นการยืนยันก่อนการบันทึกข้อมูล
อย่างเช่น เราคีย์ข้อมูลในฟอร์มเส็รจแล้ว พอเรากดบันทึก ก็จะมี MsgBox โชว์ขึ้นมาเพื่อให้ยืนยัน พอยืนยันแล้วข้อมูลก็จะถูกบันทึกและเคลียร์ออกไป

โค๊ดน่ะครับ
Sub Save()
If Range("C5") <> "" Then
Sheets("Temp").Select
Range("B4:H34").Resize(Range("J2"), 7).Select
Selection.Copy
Sheets("Database").Select
Range("Target").Select
Selection.PasteSpecial xlPasteValues
Sheets("Order").Select
Range("B5:F34,C3,C2").SpecialCells(xlCellTypeConstants).ClearContents
MsgBox ("ºÑ¹·Ö¡¢éÍÁÙºàÃÕºÃéÍÂáÅéÇ")
Else
MsgBox ("¤Ø³ÂѧäÁèàÅ×Í¡ÊÔ¹¤éÒ")
Range("C5").Activate
End If
End Sub

[snasui]

การวางข้อมูลที่เป็น VBA ดูที่นี่ครับ viewtopic.php?f=3&t=1354

สำหรับ Code ให้ถามว่าจะบันทึกหรือไม่ หากตอบ Yes ให้บันทึก ตอบ No ไม่บันทึก ดูตัวอย่าง Code ด้านล่างครับ

Code: Select all

Sub SaveData()
Dim msg As Integer
msg = MsgBox("Are you want to record now?", vbYesNo)
If msg = vbYes Then
    If Range("C5") <> "" Then
        Sheets("Temp").Select
        Range("B4:H34").Resize(Range("J2"), 7).Select
        Selection.Copy
        Sheets("Database").Select
        Range("Target").Select
        Selection.PasteSpecial xlPasteValues
        Sheets("Order").Select
        Range("B5:F34,C3,C2").SpecialCells(xlCellTypeConstants).ClearContents
        MsgBox ("abcdef")
    Else
        MsgBox ("ijklmnop")
        Range("C5").Activate
    End If
 End If
End Sub

[bank9597]

ขอบคุณมากครับ