ไปยังเนื้อหาหลัก

 จะอยู่ที่เซลล์ 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

เอกสารเปิดเสมอที่ A1 1

2. จากนั้นปิดรหัสนี้และคลิก เนื้อไม่มีมัน > บันทึกเป็น เพื่อบันทึกสมุดงานเป็น สมุดงานที่เปิดใช้งานแมโคร Excel รูปแบบดูภาพหน้าจอ:

เอกสารเปิดเสมอที่ A1 2

3. จากนี้ไปเมื่อคุณเปิดสมุดงานนี้ในครั้งต่อไปโปรดคลิก เปิดใช้งานเนื้อหา เพื่อเปิดใช้งานรหัสและสลับระหว่างแผ่นงานคุณจะเห็นแต่ละแผ่นงานอยู่ที่เซลล์ A1 โดยอัตโนมัติ

เอกสารเปิดเสมอที่ A1 3


ลูกศรสีฟ้าฟองขวา เปิดเวิร์กบุ๊กในแผ่นงานเฉพาะและเซลล์ 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

เอกสารเปิดเสมอที่ A1 4

หมายเหตุ: ในโค้ดด้านบน Sheet1 และ A1 คือเวิร์กชีตและการอ้างอิงเซลล์ที่คุณต้องการไปเมื่อเปิดเวิร์กบุ๊ก คุณสามารถเปลี่ยนได้ตามความต้องการของคุณ

2. จากนั้นปิดรหัสนี้และคลิก เนื้อไม่มีมัน > บันทึกเป็น เพื่อบันทึกสมุดงานเป็น สมุดงานที่เปิดใช้งานแมโคร Excel จากนี้ไปเมื่อคุณเปิดสมุดงานนี้ในครั้งต่อไปโปรดคลิก เปิดใช้งานเนื้อหา เพื่อเปิดใช้งานรหัสและจะไปที่ Sheet1 ที่เซลล์ A1 โดยอัตโนมัติ

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

🤖 Kutools AI ผู้ช่วย: ปฏิวัติการวิเคราะห์ข้อมูลโดยยึดตาม: การดำเนินการที่ชาญฉลาด   |  สร้างรหัส  |  สร้างสูตรที่กำหนดเอง  |  วิเคราะห์ข้อมูลและสร้างแผนภูมิ  |  เรียกใช้ฟังก์ชัน Kutools...
คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์    VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่    สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์    ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...

รายละเอียด


แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations