Page 1 of 1
สอบถามเรื่องการ ออกจากโปรแกรมด้วย code vba
Posted: Fri Sep 18, 2015 8:28 am
by thanasit55
รบกวนอาจารย์หน่อยนะครับพอดีติดปัญหาการใช code เพื่อปิดตัวโปรแกรม excel ครับ เวลารัน code แล้ว มันจะไปปิดโปรแกรม excel อื่นๆ ด้วยครับ ผมอยากให้มันปิดแค่ตัวงาน นั้นๆแทนไปครับ เช่นเปิดงาน 3 งาน ชื่อ 1.xlsx 2.xlsm 3.xlsm Run code ที่ 2.xlsm ก็ให้มันปิดแค่ 2.xlsm ครับ ตัวอย่าง code ครับ
Code: Select all
Sub saveexit()
Dim x As Integer
x = MsgBox(" ต้องการ Save แล้ว ออก ใช่หรือไม่", vbOKCancel, "คำเตือน")
If x = vbOK Then
ActiveWorkbook.save
Application.DisplayAlerts = False
Application.Quit
Else
Sheets("sheet1").Select
End If
End Sub
ถามเพิ่มเติมครับ เราสามารถจัดข้อความใน MsgBox ให้อยู่ตรงกลางได้หรือไม่ครับแล้วสามารถรใส่สีข้อความลงไปด้วยได้หรือไม่ครับ
ขอบคุณมากครับ
Re: สอบถามเรื่องการ ออกจากโปรแกรมด้วย code vba
Posted: Fri Sep 18, 2015 9:31 am
by suka
ใช้ ActiveWindow.Close แทน Application.Quit ไหมคะ
Re: สอบถามเรื่องการ ออกจากโปรแกรมด้วย code vba
Posted: Fri Sep 18, 2015 1:30 pm
by thanasit55
suka wrote:ใช้ ActiveWindow.Close แทน Application.Quit ไหมคะ
ได้แล้วครับขอบคุณมากครับ
ถามต่อครับ อยากให้ข้อความใน MsgBox ให้มันมาอยู่ตรงกลางแบบนี้มันสามารถทำได้ไหมครับ กับพวกใส่สีในข้อความ ครับ
ขอบคุณมากนะครับ
Re: สอบถามเรื่องการ ออกจากโปรแกรมด้วย code vba
Posted: Fri Sep 18, 2015 2:36 pm
by snasui
ช่วยอธิบายคำว่า "อยู่ตรงกลาง" ว่ามีลักษณะเป็นอย่างไร วาดเป็นภาพมาก็ได้ครับ
การใส่สีข้อความก็เช่นเดียวกัน ต้องการใส่สีข้อความไหน อย่างไร อธิบายเพิ่มเติมด้วยครับ
Re: สอบถามเรื่องการ ออกจากโปรแกรมด้วย code vba
Posted: Fri Sep 18, 2015 7:18 pm
by thanasit55
snasui wrote: ช่วยอธิบายคำว่า "อยู่ตรงกลาง" ว่ามีลักษณะเป็นอย่างไร วาดเป็นภาพมาก็ได้ครับ
การใส่สีข้อความก็เช่นเดียวกัน ต้องการใส่สีข้อความไหน อย่างไร อธิบายเพิ่มเติมด้วยครับ
- ข้อความที่อยากให้อยู่ตรงกลางคือข้อความใน MsgBox ที่เด้งขึ้นมาหลังจากกดปุ่ม ครับ อยากให้มันเหมือนในรูปนี้ครับ(ใช้ paintตัดข้อความมาใส่เอา
)
- ส่วนสีในข้อความคือ สีใน MsgBox "ต้องการ Save แล้ว ออก ใช่หรือไม่" ครับ อยากรู้ว่ามันใส่สีตัวอักศรได้หรือเปล่าครับ
ขอบคุณมากครับ
Re: สอบถามเรื่องการ ออกจากโปรแกรมด้วย code vba
Posted: Fri Sep 18, 2015 7:29 pm
by snasui
ทั้งหมดที่กล่าวมานั้นไม่สามารถจัดการได้ครับ
กล่องข้อความนั้นไม่มี Option ให้ไปกำหนดสิ่งที่กล่าวมา ยกเว้นการแสดงปุ่ม แสดงข้อความเท่านั้นครับ
Re: สอบถามเรื่องการ ออกจากโปรแกรมด้วย code vba
Posted: Fri Sep 18, 2015 8:19 pm
by thanasit55
snasui wrote: ทั้งหมดที่กล่าวมานั้นไม่สามารถจัดการได้ครับ
กล่องข้อความนั้นไม่มี Option ให้ไปกำหนดสิ่งที่กล่าวมา ยกเว้นการแสดงปุ่ม แสดงข้อความเท่านั้นครับ
ขอบคุณมากครับ อาจารย์
Re: สอบถามเรื่องการ ออกจากโปรแกรมด้วย code vba
Posted: Tue Feb 23, 2021 7:28 pm
by Chanisa
สอบถามcodeค่ะ หากเราใช้ ActiveWindow.Close แต่ excel file มัน ถามต่อว่าจะให้ SAVE หรือ Don't SAVE แล้วเราไม่ต้องการ Save หรือต้องการ SAVE มี code อะไรบ้างค่ะ
ขอบคุณค่ะ
Re: สอบถามเรื่องการ ออกจากโปรแกรมด้วย code vba
Posted: Tue Feb 23, 2021 7:33 pm
by snasui
Chanisa wrote: Tue Feb 23, 2021 7:28 pm
เราไม่ต้องการ Save
กรณีไม่ Save ใช้
ActiveWindow.Close false ครับ
Chanisa wrote: Tue Feb 23, 2021 7:28 pm
หรือต้องการ SAVE
กรณี Save ใช้
ActiveWindow.close true ครับ
Re: สอบถามเรื่องการ ออกจากโปรแกรมด้วย code vba
Posted: Tue Feb 23, 2021 8:32 pm
by Chanisa
ขอบคุณมากค่ะ
Re: สอบถามเรื่องการ ออกจากโปรแกรมด้วย code vba
Posted: Sun Dec 26, 2021 11:00 am
by nettory
thanasit55 wrote: Fri Sep 18, 2015 1:30 pm
suka wrote:ใช้ ActiveWindow.Close แทน Application.Quit ไหมคะ
ได้แล้วครับขอบคุณมากครับ
ถามต่อครับ อยากให้ข้อความใน MsgBox ให้มันมาอยู่ตรงกลางแบบนี้มันสามารถทำได้ไหมครับ กับพวกใส่สีในข้อความ ครับ
ขอบคุณมากนะครับ
ผมใส่ใน vba แล้วตรงตามที่ต้องการ แต่ในโค้ดผมเจอปัญหาครับ ถ้ากด ok จะปิดปกติ แต่ถ้ากด cancel มันจะเออเร่อครับ สามารถแก้ไขได้ไหมครับ ถ้ากด cancel แล้วให้ยังคงอยู่หน้าเดิมต่อไปครับ
Re: สอบถามเรื่องการ ออกจากโปรแกรมด้วย code vba
Posted: Sun Dec 26, 2021 9:17 pm
by snasui
แนบไฟล์นั้นมาด้วยจะได้ช่วยสะดวกต่อการช่วยกันหาคำตอบครับ