Page 1 of 1
แทรก msgBox ในโค๊ด VB
Posted: Tue Oct 11, 2011 10:54 pm
by 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
Re: แทรก msgBox ในโค๊ด VB
Posted: Wed Oct 12, 2011 12:54 am
by 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
Re: แทรก msgBox ในโค๊ด VB
Posted: Wed Oct 12, 2011 5:05 pm
by bank9597
ขอบคุณมากครับ