Page 1 of 1
ต้องการให้ Msgbox โชว์แค่ครั้งแรกที่ใช้คำสั่ง
Posted: Fri May 18, 2012 3:52 am
by djung
ผมต้องการให้ Msgbox โชว์ขึ้นเมื่อกด Print เพื่อเช็คว่าได้ตั้ง Printer ไว้ถูกต้องที่จะใช้งานหรือยัง แต่อยากให้โชว์แค่ครั้งแรกที่เราเปิดไฟล์นี้ขึ้นมาเท่านั้น
พอเราจะ Print ครั้งที่ 2,3,4,5 ไม่ต้องโชว์อีกให้ Print เลย ไม่รู้ว่าต้องใส่ Code อะไรเพิ่มเข้าไปครับ รบกวนช่วยด้วยครับ
Re: ต้องการให้ Msgbox โชว์แค่ครั้งแรกที่ใช้คำสั่ง
Posted: Fri May 18, 2012 10:14 am
by snasui
การทำเช่นนั้นสามารถทำดังนี้ได้ครับ
ในการสั่งพิมพ์ให้กำหนดค่าให้กับเซลล์ใด ๆ เอาไว้ เช่นกำหนดค่า True ไว้ที่เซลล์ I3 เมื่อเปิดไฟล์ก็กำหนดให้ลบค่านี้ทิ้งไป การเขียน Code เพื่อสั่งพิมพ์ก็ให้ตรวจสอบว่า I3 มีค่า True หรือไม่ ถ้ามีก็ไม่ต้องแสดงข้อความ ให้ Print ได้เลย ถ้าไม่มีก็แสดงข้อความแล้ว Print ดูตัวอย่าง Code ตามด้านล่าง
Code ในชีท Form
Code: Select all
Private Sub CommandButton1_Click()
If Range("I3") <> True Then
check1 = MsgBox("µÑé§ Printer Easy Coder à»ç¹ Printer ËÅÑ¡áÅéÇãªèãËÁ", vbInformation + vbOKCancel, "µÃǨÊͺ Printer")
If check1 = vbOK Then
' Sheets("FORM").PrintOut
ActiveWindow.SelectedSheets.PrintPreview
Range("I3") = True
End If
Else
' Sheets("FORM").PrintOut
ActiveWindow.SelectedSheets.PrintPreview
End If
End Sub
Code ใน ThisWorkbook
Code: Select all
Private Sub Workbook_Open()
Sheets("FORM").Range("I3").ClearContents
End Sub
Re: ต้องการให้ Msgbox โชว์แค่ครั้งแรกที่ใช้คำสั่ง
Posted: Fri May 18, 2012 8:14 pm
by djung
ขอบคุณมากๆเลยครับอาจารย์ เดี๋ยวลองไปทำดูก่อนครับผม