Snasui Excel Forum

#8

เข้าใจแล้วครับ ขอบคุณครับ

#7

หมายถึงปิดโดยไม่ต้อง Save ครับ

#6

Code: Select all

Sub CloseAllWB()
  'Close all open workbooks.
  For Each wb In Workbooks
    wb.Close False
  Next wb
End Sub

เรียนอาจาร์ยครับ " wb.Close False " หมายถึงอะไรครับ
หมายถึงชื่อไฟล์หรือเปล่าครับ
เพราะผมลองเปลี่ยนชื่อไฟล์ เครื่องก็ยังสั่งไม่เชฟไฟล์ตาม Code

#5

กราบขอบพระคุณท่านอาจารย์มากครับ code ใช้ได้ตามความต้องการครับ

#4

คีย์ตกไปครับ ผมกลับไปแก้ให้แล้ว ดูตามความเห็นก่อนได้เลยครับ

Code ที่เขียนให้ไป ไม่ว่าจะบันทึกที่แผ่นงานไหนเมือเปิดมาควรจะเปิดชีท HOME มาให้ครับ

#3

เรียน ท่านอาจารย์ที่เคารพ เวลาที่สั่งปิดแผ่นงานทั้งหมดที่เปิดใช้จะขึ้น pop up Compile error ตามภาพครับ และเวลาถ้าบันทึกแผ่นงานที่ sheet 2 แล้วเปิดมาใหม่ โปรแกรมก็จะเปิด sheet 2 โดยไม่เปิดแผ่นงาน Home ที่ต้องการครับ ขอบพระคุณมากครับ

#2

ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Sub Auto_Open()
    Sheets("Home").Activate
End Sub

Sub CloseAllWB()
  'Close all open workbooks.
  For Each wb In Workbooks
    wb.Close False
  Next wb
End Sub

#1

เรียน ท่านอาจารย์ที่เคารพ
เรียนสอบถามการเขียน code เพื่อสั่งให้เปิดแผ่นงานที่ชื่อว่า HOME ทุกครั้งที่เปิดจาก workbook"close all wb.xlsx" และสั่งให้ปิดงานทั้งหมดที่เปิดพร้อมกันโดยปิดตัวเองลงทั้งหมดโดยไม่มีการเซฟ เนื่องจากเวลาสั่งปิดแล้วยังมีแผ่นงานค้างอยู่อีก ขอบพระคุณมากครับ

Snasui Excel Forum

code ให้เปิดแผ่นงาน และให้ปิดแผ่นงานทั้งหมด

Post a reply

Expand view Topic review: code ให้เปิดแผ่นงาน และให้ปิดแผ่นงานทั้งหมด

Re: code ให้เปิดแผ่นงาน และให้ปิดแผ่นงานทั้งหมด

Re: code ให้เปิดแผ่นงาน และให้ปิดแผ่นงานทั้งหมด

Re: code ให้เปิดแผ่นงาน และให้ปิดแผ่นงานทั้งหมด

Re: code ให้เปิดแผ่นงาน และให้ปิดแผ่นงานทั้งหมด

Re: code ให้เปิดแผ่นงาน และให้ปิดแผ่นงานทั้งหมด

Re: code ให้เปิดแผ่นงาน และให้ปิดแผ่นงานทั้งหมด

Re: code ให้เปิดแผ่นงาน และให้ปิดแผ่นงานทั้งหมด

code ให้เปิดแผ่นงาน และให้ปิดแผ่นงานทั้งหมด