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

จะใช้บานหน้าต่างตรึง / ยกเลิกการตรึงกับแผ่นงานหลายแผ่นพร้อมกันได้อย่างไร

สมมติว่าคุณมีสมุดงานขนาดใหญ่ซึ่งมีแผ่นงานหลายร้อยแผ่นและตอนนี้คุณจำเป็นต้องใช้ Freeze Panes เพื่อตรึงแผ่นงานทั้งหมดในครั้งเดียว ด้วยฟังก์ชัน Freeze Panes ของ Excel คุณสามารถตรึงแผ่นงานได้ทีละแผ่นเท่านั้นมีวิธีการตรึงหรือยกเลิกการตรึงแผ่นงานทั้งหมดในทันทีใน Excel หรือไม่

ใช้ Freeze Panes กับแผ่นงานทั้งหมดพร้อมกันด้วยรหัส VBA

ใช้ Unfreeze Panes กับแผ่นงานทั้งหมดพร้อมกันด้วยรหัส VBA

ใช้ Freeze / Unfreeze Panes กับแผ่นงานทั้งหมดพร้อมกันด้วยการคลิกเพียงครั้งเดียวด้วย Kutools for Excel


คุณสามารถใช้รหัสต่อไปนี้เพื่อใช้ Freeze Panes กับแผ่นงานทั้งหมดโปรดทำตามขั้นตอนต่อไปนี้:

1. ถ้าคุณต้องการตรึงแผ่นงานทั้งหมดไว้ในตำแหน่งเดียวกันให้เลือกเซลล์ที่คุณต้องการตรึงในแผ่นงานจากนั้นกดค้างไว้ เปลี่ยน เพื่อเลือกแท็บแผ่นงานทั้งหมด

2. กด ALT + F11 และจะเปิดไฟล์ หน้าต่าง Microsoft Visual Basic for Applications.

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

รหัส VBA: ตรึงแผ่นงานทั้งหมดพร้อมกันใน Excel

Sub Freeze()
'Updateby Extendoffice
Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In Application.ActiveWorkbook.Worksheets
    Ws.Activate
    With Application.ActiveWindow
        .FreezePanes = True
    End With
Next
Application.ScreenUpdating = True
End Sub

4. จากนั้นกด F5 คีย์เพื่อเรียกใช้รหัสนี้และแผ่นงานทั้งหมดถูกนำไปใช้กับบานหน้าต่างตรึงในตำแหน่งเดียวกัน

หมายเหตุ หากไม่ได้เลือกแผ่นงานทั้งหมดและเซลล์ที่ใช้งานอยู่ของแผ่นงานแต่ละแผ่นจะอยู่ในตำแหน่งที่ต่างกันบานหน้าต่างตรึงจะอยู่ในตำแหน่งต่างๆเมื่อเซลล์ที่ใช้งานอยู่บน


หากมีการใช้แผ่นงานหลายแผ่นกับบานหน้าต่างตรึงใน Excel ของคุณคุณจะยกเลิกการตรึงทีละแผ่นได้อย่างไรยกเว้นการยกเลิกการตรึงทีละแผ่น

1. เปิดสมุดงานของคุณที่ใช้แผ่นงานกับบานหน้าต่างตรึง

2. กด ALT + F11 และจะเปิดไฟล์ หน้าต่าง Microsoft Visual Basic for Applications.

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

รหัส VBA: เลิกตรึงแผ่นงานทั้งหมดพร้อมกันใน Excel

Sub UnFreeze()
'Updateby Extendoffice
Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In Application.ActiveWorkbook.Worksheets
    Ws.Activate
    With Application.ActiveWindow
        .FreezePanes = False
    End With
Next
Application.ScreenUpdating = True
End Sub

4. จากนั้นกด F5 กุญแจสำคัญในการเรียกใช้รหัสนี้และแผ่นงานทั้งหมดที่ใช้กับบานหน้าต่างตรึงจะถูกยกเลิกในครั้งเดียว


หากคุณไม่คุ้นเคยกับรหัส VBA นี่คือเครื่องมือที่มีประสิทธิภาพ - Kutools สำหรับ Excelมัน ตรึงบานหน้าต่างหลายแผ่น และ คลายการตรึงบานหน้าต่างหลายแผ่น โปรแกรมอรรถประโยชน์สามารถช่วยให้คุณหยุดหรือเลิกตรึงแผ่นงานทั้งหมดของสมุดงานปัจจุบันได้ในคราวเดียว

หมายเหตุที่จะใช้สิ่งนี้ ตรึงบานหน้าต่างหลายแผ่นประการแรกคุณควรดาวน์โหลดไฟล์ Kutools สำหรับ Excelแล้วใช้คุณสมบัตินี้อย่างรวดเร็วและง่ายดาย

หลังจากการติดตั้ง Kutools สำหรับ Excelโปรดทำตามนี้:

1. เลือกเซลล์ที่คุณต้องการใช้บานหน้าต่างตรึงสำหรับแผ่นงานทั้งหมดในกรณีนี้ฉันคลิกเซลล์ B2 ดูภาพหน้าจอ:

doc ตรึงแผ่นงานทั้งหมด 1-1

2. จากนั้นคลิก Kutools พลัส > แผ่นงาน > ตรึงบานหน้าต่างหลายแผ่นดูภาพหน้าจอ:

3. จากนั้นแผ่นงานทั้งหมดของคุณจะถูกนำไปใช้กับบานหน้าต่างตรึงในตำแหน่งเดียวกันของเซลล์ B2

หมายเหตุ: หากคุณต้องการยกเลิกการตรึงทันทีคุณเพียงแค่ต้องใช้คุณสมบัติ Unfreeze บานหน้าต่างหลายแผ่นโดยคลิก Kutools พลัส> แผ่นงาน > คลายการตรึงบานหน้าต่างหลายแผ่น.

ดาวน์โหลดและทดลองใช้ Kutools for Excel ฟรีทันที!


Kutools สำหรับ Excel: ด้วย Add-in ของ Excel ที่มีประโยชน์มากกว่า 300 รายการให้ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน ดาวน์โหลดและทดลองใช้ฟรีทันที!

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

🤖 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 (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Is it possible to do it on selected worksheets only?

what would i need to change in the code.
This comment was minimized by the moderator on the site
Hi, Fernando,

To apply the freeze pane to selected sheets, please use the following code:



Sub Freeze()

'Updateby Extendoffice

Dim Ws As Worksheet

Dim xArrName As Variant

Dim xS

xArrName = Array("Sheet2", "Sheet3") 'Change the sheet names to your need

Application.ScreenUpdating = False

For Each xS In xArrName

Set Ws = Worksheets(xS)

If Not Ws Is Nothing Then

Ws.Activate

With Application.ActiveWindow

.FreezePanes = True

End With

End If

Next

Application.ScreenUpdating = True

End Sub



Please try it, thank you!
This comment was minimized by the moderator on the site
This would work but i would need to change every time i try and run it in a different workbook.

Is it possible for the macro to be modified to the sheets i select in the main pane by clicking on one and pressing shift and selecting the other ones?
This comment was minimized by the moderator on the site
want to be able to freeze top row on multiple worksheets
This comment was minimized by the moderator on the site
I tried this in my workbook and it worked very well. thanks
This comment was minimized by the moderator on the site
dear all, I have a test in my workbook, have a good note that before you apply this macro, please move the mouse to the cell that you need to apply freeze pane in the sheet. it's really helpful. this info is what I am looking for. thank you very much Lan
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations