วิธีใช้ปุ่มเพื่อแสดงซ่อนคอลัมน์ใน Excel

บทความนี้จะแสดงวิธีการสร้างและใช้ปุ่มเพื่อแสดงและซ่อนคอลัมน์ใน Excel

ใช้ปุ่มเพื่อแสดงซ่อนคอลัมน์ด้วยปุ่มสลับ
ใช้ปุ่มเพื่อแสดงซ่อนคอลัมน์ด้วย Kutools for Excel

ใช้ปุ่มเพื่อแสดงซ่อนคอลัมน์ด้วยปุ่มสลับ

คุณสามารถสร้างปุ่ม Toggle เพื่อแสดงซ่อนคอลัมน์โดยคลิกที่ปุ่ม กรุณาดำเนินการดังนี้

1 คลิก ผู้พัฒนา > สิ่งที่ใส่เข้าไป > ปุ่มสลับ (ActiveX Control). ดูภาพหน้าจอ:

หมายเหตุ: หากคุณไม่เห็นไฟล์ ผู้พัฒนา บน Ribbon โปรดคลิก แสดง / แสดงแท็บนักพัฒนาใน Excel เพื่อทราบวิธีเปิดใช้งาน

2. วาดปุ่ม Toggle บนแผ่นงาน คลิกขวาจากนั้นเลือก ดูรหัส จากเมนูคลิกขวา ดูภาพหน้าจอ:

3. ในช่องเปิด แอปพลิเคชัน Microsoft Visual Basic หน้าต่างแทนที่เนื้อหาทั้งหมดในหน้าต่างรหัสด้วยรหัส VBA ด้านล่าง

รหัส VBA: ปุ่มเพื่อแสดงซ่อนคอลัมน์

Private Sub ToggleButton1_Click()
Dim xAddress As String
xAddress = "F:G"
If ToggleButton1.Value Then
    Application.ActiveSheet.Columns(xAddress).Hidden = True
Else
    Application.ActiveSheet.Columns(xAddress).Hidden = False
End If
End Sub

หมายเหตุ:“ F: G” ในโค้ดหมายความว่าคอลัมน์ F: G จะแสดงและซ่อนขณะเรียกใช้โค้ด โปรดเปลี่ยนตามความต้องการของคุณ

4 กด อื่น ๆ + Q พร้อมกันเพื่อปิดไฟล์ แอปพลิเคชัน Microsoft Visual Basic หน้าต่าง

5 ปิดกล้อง โหมดการออกแบบ ด้วยการคลิก ผู้พัฒนา > โหมดการออกแบบ.

ตอนนี้เมื่อคุณคลิกปุ่มสลับคอลัมน์ที่ระบุจะถูกซ่อนทันที

ในขณะที่คลิกอีกครั้งคอลัมน์จะปรากฏขึ้น

ใช้ปุ่มเพื่อแสดงซ่อนคอลัมน์ด้วย Kutools for Excel

หากมีคอลัมน์ที่ซ่อนอยู่ในแผ่นงานของคุณแล้ว Kutools สำหรับ Excel's สลับเพื่อยกเลิกการซ่อน / ซ่อนคอลัมน์ที่ซ่อนอยู่ทั้งหมด ยูทิลิตี้สามารถช่วยให้คุณแสดงและซ่อนได้อย่างรวดเร็วเพียงคลิกเดียว

ก่อนที่จะใช้ Kutools สำหรับ Excelโปรด ดาวน์โหลดและติดตั้งในตอนแรก.

1 คลิก Kutools > การเดินเรือ

2. เลื่อนไปที่ไฟล์ รายการคอลัมน์ บานหน้าต่างจากนั้นคุณสามารถคลิกไฟล์ สลับเพื่อยกเลิกการซ่อน / ซ่อนคอลัมน์ที่ซ่อนอยู่ทั้งหมด ปุ่มเพื่อแสดง / ซ่อนคอลัมน์ในแผ่นงานปัจจุบัน

หากคุณต้องการทดลองใช้ยูทิลิตี้นี้ฟรี ( 30 วัน) กรุณาคลิกเพื่อดาวน์โหลดแล้วไปใช้การดำเนินการตามขั้นตอนข้างต้น

ใช้ปุ่มเพื่อแสดงซ่อนคอลัมน์ด้วย Kutools for Excel

เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel แก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office / Excel 2007-2019 และ 365 รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ ทดลองใช้ฟรี 30 วันเต็ม รับประกันคืนเงิน 60 วัน

อ่านเพิ่มเติม ... ดาวน์โหลดฟรี... ซื้อ...

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

เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!

อ่านเพิ่มเติม ... ดาวน์โหลดฟรี... ซื้อ...

7 Comments
Login

Sort by Newest
- Best
- Popular
- Newest
- Oldest

You are guest

or post as a guest, but your post won't be published automatically.

Loading comment... The comment will be refreshed after 00:00.

To post as a guest, your comment is unpublished.
Aidenn · 3 months ago
I tried the formula on 3 buttons. The problem is they hide and unhide according to the sequenced they are inputted in the code. Is there anyway that I can click any button that will show/hide the columns not in sequence?
- Reply
To post as a guest, your comment is unpublished.
Liz · 4 years ago
Adding to Ryan's comment, how about hiding a column based on the value of a cell? Basically making the xAdress an IF-function and not a predetermined range of columns.
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 4 years ago
  
  Dear Liz,
  
  Thank you for your comment!
  
  VBA code in this tutorial can help you hiding specified columns based on the value of a cell. Please follow the below hyperlink to know more details.
  https://www.extendoffice.com/documents/excel/2682-excel-hide-columns-based-on-dropdown-list.html
  
  Reply
To post as a guest, your comment is unpublished.
Ryan · 4 years ago
Hi there, How would you change it to select a bunch of non-adjacent cells?
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 4 years ago
  
  Dear Ryan,
  
  If you need to select a bunch of non-adjacent cells (every selected cell is interval of X cell) as below screenshot shown, please try the Select Interval Rows & Columns utility of Kutools for Excel.
  
  You can also follow this link to know more about this feature. Thank you!
  https://www.extendoffice.com/product/kutools-for-excel/excel-select-interval-rows-or-columns.html
  
  Reply
- To post as a guest, your comment is unpublished.
  crystal · 4 years ago
  
  Dear Ryan,
  
  About the bunch of non-adjacent cells you need to select, can you provide a screenshot to show where they locating in your worksheet?
  Thank you for your comment.
  
  Reply
To post as a guest, your comment is unpublished.
Syed · 4 years ago
This was very helpful, thanks!
- Reply

เข้าสู่ระบบบัญชีของคุณ

ตั้งค่ารหัสผ่าน