Snasui Excel Forum

เมื่อเปิดไฟล์ บังคับให้เปิด sheet แรก cell A1 ทุกครั้ง
sheet แรก ชื่อ หน้าแรก

Sub หน้าแรก()
'
' หน้าแรก แมโคร
'

'
Sheets("หน้าแรก").Select
Range("A1").Select
End Sub

ผมสั่งแบบนี้ แต่ต้องคอยกดปุ่มกลับหน้าแรกครับ

การโพสต์ Code ในฟอรัม ควรโพสต์ให้แสดงในรูปแบบ Code ซึ่งจะมีความแตกต่างจากตัวอักษรปกติ เพื่อสะดวกในการอ่านและ Copy ไปใช้สามารถดูได้จาก Link นี้ครับ viewtopic.php?f=6&t=1187

การให้เปิดไฟล์แล้วไปยังตำแหน่งที่ต้องการในไฟล์ ให้เข้า VBE > ดับเบิ้ลคลิก ThisWorkbook > ที่ช่อง Object เลือก Workbook > สังเกตว่าช่อง Procedure เป็น Open หากเป็นอย่างอื่นให้เลือก Open จากนั้นนำ Code ที่เขียนไว้ไปวาง จะได้เป็นด้านล่าง
เมื่อเปิดไฟล์จะไปยังตำแหน่งที่ต้องการเสมอครับ

snasui wrote: การโพสต์ Code ในฟอรัม ควรโพสต์ให้แสดงในรูปแบบ Code ซึ่งจะมีความแตกต่างจากตัวอักษรปกติ เพื่อสะดวกในการอ่านและ Copy ไปใช้สามารถดูได้จาก Link นี้ครับ viewtopic.php?f=6&t=1187

การให้เปิดไฟล์แล้วไปยังตำแหน่งที่ต้องการในไฟล์ ให้เข้า VBE > ดับเบิ้ลคลิก ThisWorkbook > ที่ช่อง Object เลือก Workbook > สังเกตว่าช่อง Procedure เป็น Open หากเป็นอย่างอื่นให้เลือก Open จากนั้นนำ Code ที่เขียนไว้ไปวาง จะได้เป็นด้านล่าง

Code: Select all

Private Sub Workbook_Open()
    Sheets("หน้าแรก").Select
    Range("A1").Select
End Sub

เมื่อเปิดไฟล์จะไปยังตำแหน่งที่ต้องการเสมอครับ

ขอบคุณมากครับอาจารย์ ทำได้แล้วครับ