จะอยู่ที่เซลล์ A1 เสมอเมื่อเปิดสมุดงานได้อย่างไร
อย่างที่เราทราบกันดีว่าเมื่อคุณเปิดสมุดงานมันจะแสดงตำแหน่งเซลล์ที่คุณบันทึกและปิดมันครั้งล่าสุด คุณจะเปิดสมุดงานโดยใช้แผ่นงานแต่ละแผ่นในเซลล์ A1 ได้อย่างไร บทความนี้จะพูดถึงวิธีแก้ปัญหาบางอย่าง
เปิดสมุดงานทุกแผ่นที่เซลล์ A1 โดยใช้รหัส VBA
เปิดเวิร์กบุ๊กในแผ่นงานเฉพาะและเซลล์ A1 โดยใช้รหัส VBA
เปิดสมุดงานทุกแผ่นที่เซลล์ A1 โดยใช้รหัส VBA
ตัวอย่างเช่นคุณต้องการให้เวิร์กบุ๊กเปิดที่เซลล์ A1 ของแต่ละแผ่นงานเสมอไม่ว่าคุณจะอยู่ที่ใดในสมุดงานเมื่อปิดล่าสุด กรุณาดำเนินการดังนี้:
1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง. ทางด้านซ้าย โครงการ -VBAProject บานหน้าต่างให้ดับเบิลคลิก สมุดงานนี้ เพื่อเปิดโมดูลเปล่าจากนั้นคัดลอกและวางรหัสต่อไปนี้ลงในโมดูลดูภาพหน้าจอ:
รหัส VBA: เปิดสมุดงานทุกแผ่นที่เซลล์ A1:
Private Sub Workbook_SheetActivate(ByVal Wsh As Object)
'Updateby Extendoffice
On Error Resume Next
Wsh.Range("A1").Select
End Sub
2. จากนั้นปิดรหัสนี้และคลิก เนื้อไม่มีมัน > บันทึกเป็น เพื่อบันทึกสมุดงานเป็น สมุดงานที่เปิดใช้งานแมโคร Excel รูปแบบดูภาพหน้าจอ:
3. จากนี้ไปเมื่อคุณเปิดสมุดงานนี้ในครั้งต่อไปโปรดคลิก เปิดใช้งานเนื้อหา เพื่อเปิดใช้งานรหัสและสลับระหว่างแผ่นงานคุณจะเห็นแต่ละแผ่นงานอยู่ที่เซลล์ A1 โดยอัตโนมัติ
เปิดเวิร์กบุ๊กในแผ่นงานเฉพาะและเซลล์ A1 โดยใช้รหัส VBA
หากคุณต้องการเปิดแผ่นงานเฉพาะที่เซลล์ A1 เมื่อเปิดสมุดงานทุกครั้งรหัส VBA ต่อไปนี้อาจช่วยคุณได้
ตัวอย่างเช่นฉันต้องการไปที่ Sheet1 ที่เซลล์ A1 เสมอเมื่อเปิดสมุดงาน
1. ค้างไว้ ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง. ทางด้านซ้าย โครงการ -VBAProject บานหน้าต่างให้ดับเบิลคลิก สมุดงานนี้ เพื่อเปิดโมดูลเปล่าจากนั้นคัดลอกและวางรหัสต่อไปนี้ลงในโมดูลดูภาพหน้าจอ:
รหัส VBA: เปิดสมุดงานที่มีแผ่นงานเฉพาะที่เซลล์ A1 เสมอ:
Private Sub Workbook_Open()
'Updateby Extendoffice
Application.Goto ThisWorkbook.Sheets("Sheet1").Range("A1"), True
End Sub
หมายเหตุ: ในโค้ดด้านบน Sheet1 และ A1 คือเวิร์กชีตและการอ้างอิงเซลล์ที่คุณต้องการไปเมื่อเปิดเวิร์กบุ๊ก คุณสามารถเปลี่ยนได้ตามความต้องการของคุณ
2. จากนั้นปิดรหัสนี้และคลิก เนื้อไม่มีมัน > บันทึกเป็น เพื่อบันทึกสมุดงานเป็น สมุดงานที่เปิดใช้งานแมโคร Excel จากนี้ไปเมื่อคุณเปิดสมุดงานนี้ในครั้งต่อไปโปรดคลิก เปิดใช้งานเนื้อหา เพื่อเปิดใช้งานรหัสและจะไปที่ Sheet1 ที่เซลล์ A1 โดยอัตโนมัติ
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!