วิธีตรวจสอบว่าแถวนั้นซ่อนอยู่ใน Excel หรือไม่?
บทความนี้พูดถึงการตรวจสอบว่าแถวนั้นซ่อนอยู่ในช่วงที่ระบุหรือเวิร์กชีตใน Excel
ตรวจสอบว่าแถวนั้นซ่อนอยู่ในช่วงที่เลือกด้วยรหัส VBA หรือไม่
ตรวจสอบว่าแถวนั้นซ่อนอยู่ในแผ่นงานด้วยรหัส VBA หรือไม่
ตรวจสอบว่าแถวนั้นซ่อนอยู่ในช่วงที่เลือกด้วยรหัส VBA หรือไม่
โปรดทำดังนี้เพื่อตรวจสอบว่าแถวนั้นซ่อนอยู่ในช่วงที่เลือกหรือไม่และค้นหาหมายเลขแถวที่ซ่อนอยู่
1. เลือกช่วงที่คุณจะตรวจสอบแถวที่ซ่อนอยู่ กด อื่น ๆ + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูล. จากนั้นคัดลอกโค้ด VBA ด้านล่างลงในหน้าต่างรหัส
รหัส VBA: ตรวจสอบแถวที่ซ่อนอยู่ในช่วงที่เลือก
Sub HiddenRowsInRange()
'Update by Extendoffice 2018/5/15
Dim I As Long
Dim xStr As String
Dim xOne, xTwo As Long
Dim xRg, xRgVsb, xRgItem As Range
On Error Resume Next
Set xRg = Range("A1:A100")
Set xRgVsb = xRg.SpecialCells(xlCellTypeVisible)
If xRg.Count <> xRgVsb.Count Then
For I = 1 To xRgVsb.Areas.Count - 1
Set xRgItem = xRgVsb.Areas.Item(I)
xOne = xRgItem.Rows(xRgItem.Rows.Count).Row
xTwo = xRgVsb.Areas.Item(I + 1).Rows(1).Row
xStr = xStr & Str(xOne + 1) & " --" & Str(xTwo - 1) & ","
Next
xStr = Left(xStr, Len(xStr) - 1)
MsgBox "Hidden rows in selected range are:" & xStr
Else
MsgBox "No rows hidden"
End If
End Sub3 กด F5 กุญแจสำคัญในการเรียกใช้รหัส
แล้ว a Microsoft Excel กล่องโต้ตอบจะปรากฏขึ้นเพื่อแสดงแถวที่ซ่อนอยู่ด้านล่างภาพหน้าจอที่แสดง
ตรวจสอบว่าแถวนั้นซ่อนอยู่ในแผ่นงานด้วยรหัส VBA หรือไม่
รหัส VBA ด้านล่างสามารถช่วยคุณตรวจสอบแถวที่ซ่อนอยู่ในแผ่นงานใน Excel กรุณาดำเนินการดังนี้
1. เปิดแผ่นงานที่คุณต้องการตรวจสอบแถวที่ซ่อนอยู่กดปุ่ม อื่น ๆ + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูล. จากนั้นคัดลอกโค้ด VBA ด้านล่างลงในหน้าต่างรหัส
รหัส VBA: ตรวจสอบว่าแถวนั้นซ่อนอยู่ในแผ่นงานหรือไม่
Sub HiddenRowsInSheet()
'Update by Extendoffice 2018/5/15
Dim I As Long
Dim xStr As String
Dim xOne, xTwo As Long
Dim xRg, xRgVsb, xRgItem As Range
On Error Resume Next
Set xRg = ActiveSheet.UsedRange
Set xRgVsb = xRg.SpecialCells(xlCellTypeVisible)
Debug.Print xRgVsb.Address
If xRg.Count <> xRgVsb.Count Then
For I = 1 To xRgVsb.Areas.Count - 1
Set xRgItem = xRgVsb.Areas.Item(I)
xOne = xRgItem.Rows(xRgItem.Rows.Count).Row
xTwo = xRgVsb.Areas.Item(I + 1).Rows(1).Row
xStr = xStr & Str(xOne + 1) & " --" & Str(xTwo - 1) & ","
Next
xStr = Left(xStr, Len(xStr) - 1)
MsgBox "Hidden rows in active sheet are:" & xStr
Else
MsgBox "No rows hidden"
End If
End Sub3 กด F5 กุญแจสำคัญในการเรียกใช้รหัส
แล้ว a Microsoft Excel กล่องโต้ตอบจะปรากฏขึ้นเพื่อแสดงแถวที่ซ่อนอยู่ในแผ่นงานปัจจุบันตามภาพด้านล่างที่แสดง
หมายเหตุ: หากตอนนี้มีแถวที่ซ่อนอยู่ในช่วงหรือแผ่นงานที่เลือกคุณจะได้รับกล่องโต้ตอบดังภาพด้านล่างที่แสดง
บทความที่เกี่ยวข้อง:
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
