วิธีซ่อนคอลัมน์ในแผ่นงานหลายแผ่นในสมุดงาน
ใน Excel เราสามารถซ่อนคอลัมน์ในแผ่นงานเดียวได้อย่างรวดเร็ว แต่คุณเคยพยายามซ่อนคอลัมน์ในแผ่นงานหลายแผ่นพร้อมกันหรือไม่? โดยปกติคุณอาจพยายามเลือกแผ่นงานทั้งหมดและใช้คุณสมบัติซ่อน แต่จะไม่สำเร็จ บทความนี้ฉันจะพูดถึงวิธีซ่อนคอลัมน์ในแผ่นงานหลายแผ่นอย่างรวดเร็ว?
ซ่อนคอลัมน์บนแผ่นงานหลายแผ่นในสมุดงานด้วยรหัส VBA
ซ่อนคอลัมน์บนแผ่นงานหลายแผ่นในสมุดงานด้วยรหัส VBA
รหัสต่อไปนี้สามารถช่วยคุณซ่อนคอลัมน์เฉพาะในแผ่นงานทั้งหมดได้ทันทีโปรดดำเนินการดังนี้:
1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.
รหัส VBA: ซ่อนคอลัมน์ในหลายแผ่นพร้อมกัน:
Sub Hide_Columns()
'Updateby Extendoffice
Dim iWs As Integer
Dim sCol As String
On Error Resume Next
sCol = Application.InputBox("Input entire column,Eg A:A OR A:B", _
"Kutools for Excel", , , , , , 2)
If sCol = "" Then
MsgBox "Empty columns", vbInformation, "Kutools for Excel"
Exit Sub
End If
For iWs = 1 To ThisWorkbook.Worksheets.Count
ThisWorkbook.Sheets(iWs).Columns(sCol).Hidden = True
Next iWs
On Error GoTo 0
End Sub
3. จากนั้นกด F5 คีย์เพื่อเรียกใช้รหัสนี้และกล่องพร้อมต์จะปรากฏขึ้นเพื่อเตือนให้คุณพิมพ์คอลัมน์ที่คุณต้องการซ่อนในแผ่นงานทั้งหมดดูภาพหน้าจอ:
4. จากนั้นคลิก OK คอลัมน์ที่คุณระบุถูกซ่อนไว้ในแผ่นงานทั้งหมดพร้อมกัน
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!