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

วิธีล็อคตำแหน่งแผ่นงานเพื่อให้มองเห็นได้เสมอใน 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

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

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

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

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

kte แท็บ 201905

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

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