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

วิธีล็อคตำแหน่งแผ่นงานเพื่อให้มองเห็นได้เสมอใน Excel Workbook?

หากมีแผ่นงานหลายแผ่นในสมุดงานเมื่อคุณสลับไปยังแผ่นงานสุดท้ายแผ่นงานแรกจะซ่อนอยู่ในแถบแท็บแผ่นงานดังที่แสดงด้านล่าง ตอนนี้คุณต้องการล็อคตำแหน่งของแผ่นงานหลักเพื่อให้มองเห็นได้ตลอดเวลาคุณจะจัดการได้อย่างไร?

ตำแหน่งแผ่นล็อค doc 1 doc ลูกศรขวา ตำแหน่งแผ่นล็อค doc 2

ล็อคตำแหน่งแผ่นงานด้วย VBA


ล็อคตำแหน่งแผ่นงานด้วย VBA

ที่นี่ฉันแนะนำรหัส VBA สองรหัสเพื่อให้คุณจัดการงานนี้

ข้ามไปที่แผ่นงาน

1 กด Alt + F11 คีย์เพื่อเปิดใช้งานไฟล์ Microsoft Visual Basic สำหรับ Windows.

2 คลิก สิ่งที่ใส่เข้าไป > โมดูลจากนั้นคัดลอกและวางโค้ดด้านล่างลงในสคริปต์

VBA: ข้ามไปที่แผ่นงานหลัก

Sub GoToSheet()
'UpdatebyExtendoffice20180427
    Sheets("Master").Activate
End Sub

หมายเหตุ: ในส่วนของโค้ดของ ชีต ("Master") เปิดใช้งานคุณสามารถเปลี่ยน เจ้านาย ไปยังชื่อชีตใดก็ได้ตามที่คุณต้องการ

3 จากนั้นบันทึกรหัสนี้แล้วกลับไปที่สมุดงานคลิก ผู้พัฒนา > แมโคร.
ตำแหน่งแผ่นล็อค doc 3

4 ใน แมโคร กล่องโต้ตอบ เลือกชื่อรหัสที่คุณใส่ไว้ตอนนี้ คลิก Optionsให้สร้างทางลัดสำหรับการเรียกใช้โค้ดนี้
ตำแหน่งแผ่นล็อค doc 4

5 คลิก OK และปิด แมโคร โต้ตอบ

จากนี้ไป ขณะที่คุณกดทางลัดที่คุณสร้างขึ้น แผ่นงานหลักจะถูกเปิดใช้งานไม่ว่าคุณจะใช้แผ่นงานใดก็ตาม

วางแผ่นไว้ด้านหน้าเสมอ

1 กด Alt + F11 คีย์เพื่อเปิดใช้งานไฟล์ Microsoft Visual Basic สำหรับ Windows.

2 ดับเบิลคลิก สมุดงานนี้ จาก โครงการ -VBAProject บานหน้าต่างแล้วคัดลอกและวางโค้ดด้านล่างลงในสคริปต์

VBA: เก็บแผ่นงานไว้ข้างหน้าเสมอ

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'UpdatebyExtendoffice2018027
    Dim xSheet As Worksheet
    Application.EnableEvents = False
    Set xSheet = Sheets("master")
    If Sh.Name <> xSheet.Name Then
        Sh.Move , xSheet
        xSheet.Activate
        Sh.Activate
    End If
    Application.EnableEvents = True
End Sub

ตำแหน่งแผ่นล็อค doc 5

3. บันทึกโค้ดและปิดหน้าต่าง VBA จากนี้ไป ไม่ว่าคุณจะคลิกแผ่นงานใด แผ่นงานหลักก็จะยังคงอยู่ด้านหน้าแถบแท็บเสมอ

ตำแหน่งแผ่นล็อค doc 6 doc ลูกศรขวา ตำแหน่งแผ่นล็อค doc 7

หมายเหตุ ในโค้ดด้านบน “ อาจารย์” คือชื่อชีตที่คุณต้องการให้มองเห็นได้ เปลี่ยนแปลงได้ตามที่คุณต้องการ

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

🤖 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 (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi there, Very helpfull. How can I freeze 2 sheets instead of one? Thanks (i'm beginner in VBA)
This comment was minimized by the moderator on the site
Hi, Francis, sorry for replying such late. Hope below VBA code can help you.<div data-tag="code">Private Sub Workbook_SheetActivate(ByVal Sh As Object)

'UpdatebyExtendoffice20211115

Dim xSheet1 As Worksheet

Dim xSheet2 As Worksheet

Dim xBol As Boolean



Application.EnableEvents = False



xBol = Application.ScreenUpdating

Application.ScreenUpdating = False

Set xSheet1 = Sheets("Sheet1")

Set xSheet2 = Sheets("Sheet2")

If (Sh.Name <> xSheet1.Name) Then

If (Sh.Name <> xSheet2.Name) Then

xSheet2.Move , xSheet1

Sh.Move , xSheet2

xSheet1.Activate

xSheet2.Activate

Sh.Activate

End If

End If

Application.ScreenUpdating = xBol

Application.EnableEvents = True

End SubIn the code, Sheet1 and Sheet2 are the two sheets that will be fixed in the front of all sheets whichever sheet you active.
This comment was minimized by the moderator on the site
This seems to change the order of my other tabs when clicking through them. Is there a way to stop that? I would like to keep them in a specific order but keep the 'master' tab visible. Thank you
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations