วิธีการซ่อนค่าความผิดพลาดเฉพาะใน Excel?

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

ซ่อนค่าข้อผิดพลาดเฉพาะหลายค่าโดยเปลี่ยนข้อความเป็นสีขาวด้วยVBA

เราได้สร้างรหัส VBA สองรหัสเพื่อช่วยคุณซ่อนค่าข้อผิดพลาดเฉพาะหลายค่าในช่วงที่เลือกหรือในแผ่นงานหลายแผ่นอย่างรวดเร็วโดยเปลี่ยนสีแบบอักษรของข้อผิดพลาดที่ระบุเป็นสีขาว โปรดทำตามขั้นตอนด้านล่างและรันโค้ดตามความต้องการของคุณ

1. ใน Excel ของคุณ ให้กด อื่น ๆ + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 คลิก สิ่งที่ใส่เข้าไป > โมดูล. จากนั้นคัดลอกรหัส VBA ต่อไปนี้ไปที่ โมดูล หน้าต่าง

รหัส VBA 1: ซ่อนค่าข้อผิดพลาดเฉพาะหลายค่าในช่วงที่เลือก

'Updated by ExtendOffice 20220824
Dim xRg As Range
Dim xFindStr As String
Dim xFindRg As Range
Dim xARg As Range
Dim xURg As Range
Dim xFindRgs As Range
Dim xFAddress As String
Dim xBol As Boolean
Dim xJ

xArrFinStr = Array("#DIV/0!”, “#N/A”, “#NAME?") 'Enter the errors to hide, enclose each with double quotes and separate them with commas

On Error Resume Next
Set xRg = Application.InputBox("Please select the range that includes the errors to hide:", "Kutools for Excel", , Type:=8)
If xRg Is Nothing Then Exit Sub

xBol = False
For Each xARg In xRg.Areas
    Set xFindRg = Nothing
    Set xFindRgs = Nothing
    Set xURg = Application.Intersect(xARg, xARg.Worksheet.UsedRange)
    For Each xFindRg In xURg
        For xJ = LBound(xArrFinStr) To UBound(xArrFinStr)
            If xFindRg.Text = xArrFinStr(xJ) Then
                xBol = True
                If xFindRgs Is Nothing Then
                    Set xFindRgs = xFindRg
                Else
                    Set xFindRgs = Application.Union(xFindRgs, xFindRg)
                End If
            End If
        Next
    Next
    If Not xFindRgs Is Nothing Then
        xFindRgs.Font.ThemeColor = xlThemeColorDark1
        
    End If
Next
If xBol Then
    MsgBox "Successfully hidden."
Else
     MsgBox "No specified errors were found."
End If
End Sub

หมายเหตุ ในตัวอย่าง xArrFinStr = Array("#DIV/0!", “#N/A”, “#NAME?”) ในแถวที่ 12 คุณควรแทนที่ "#DIV/0!", “#N/A”, “#NAME?” ด้วยข้อผิดพลาดจริงที่คุณต้องการซ่อน อย่าลืมใส่เครื่องหมายคำพูดคู่และคั่นแต่ละค่าด้วยเครื่องหมายจุลภาค

รหัส VBA 2: ซ่อนค่าข้อผิดพลาดเฉพาะหลายค่าในหลายแผ่น

Sub HideSpecificErrors_WorkSheets()
'Updated by ExtendOffice 20220824
Dim xRg As Range
Dim xFindStr As String
Dim xFindRg As Range
Dim xARg, xFindRgs As Range
Dim xWShs As Worksheets
Dim xWSh As Worksheet
Dim xWb As Workbook
Dim xURg As Range
Dim xFAddress As String
Dim xArr, xArrFinStr
Dim xI, xJ
Dim xBol As Boolean
xArr = Array("Sheet1", "Sheet2") 'Names of the sheets where to find and hide the errors. Enclose each with double quotes and separate them with commas
xArrFinStr = Array("#DIV/0!", "#N/A", "#NAME?") 'Enter the errors to hide, enclose each with double quotes and separate them with commas
'On Error Resume Next
Set xWb = Application.ActiveWorkbook
xBol = False
For xI = LBound(xArr) To UBound(xArr)
    Set xWSh = xWb.Worksheets(xArr(xI))
    Set xFindRg = Nothing
    xWSh.Activate
    Set xFindRgs = Nothing

    Set xURg = xWSh.UsedRange
    Set xFindRgs = Nothing
    For Each xFindRg In xURg
        For xJ = LBound(xArrFinStr) To UBound(xArrFinStr)
            If xFindRg.Text = xArrFinStr(xJ) Then
                xBol = True
                If xFindRgs Is Nothing Then
                    Set xFindRgs = xFindRg
                Else
                    Set xFindRgs = Application.Union(xFindRgs, xFindRg)
                End If
            End If
        Next
    Next
    If Not xFindRgs Is Nothing Then
        xFindRgs.Font.ThemeColor = xlThemeColorDark1
        
    End If
Next
If xBol Then
    MsgBox "Successfully hidden."
Else
     MsgBox "No specified errors were found."
End If
End Sub

3 กด F5 เพื่อเรียกใช้โค้ด VBA หมายเหตุ หากคุณใช้ไฟล์ รหัส VBA 1กล่องโต้ตอบจะปรากฏขึ้นเพื่อขอให้คุณเลือกช่วงที่จะค้นหาและลบค่าข้อผิดพลาด คุณยังสามารถคลิกที่แท็บแผ่นงานเพื่อเลือกทั้งแผ่น

4. กล่องโต้ตอบดังที่แสดงด้านล่างปรากฏขึ้นเพื่อแจ้งให้คุณทราบว่าค่าข้อผิดพลาดที่ระบุถูกซ่อนไว้ คลิก OK เพื่อปิดกล่องโต้ตอบ

5. ค่าความผิดพลาดที่ระบุถูกซ่อนไว้พร้อมกัน

แทนที่ค่าความผิดพลาดเฉพาะด้วยค่าอื่นด้วยคุณสมบัติตัวช่วยสร้างเงื่อนไขข้อผิดพลาด

ถ้าคุณไม่คุ้นเคยกับรหัส VBA Kutools สำหรับ Excel's ตัวช่วยสร้างเงื่อนไขข้อผิดพลาด สามารถช่วยให้คุณค้นหาค่าความผิดพลาดทั้งหมดข้อผิดพลาด #N / ​​A ทั้งหมดหรือข้อผิดพลาดใด ๆ ยกเว้น #N / ​​A ได้อย่างง่ายดายและแทนที่ด้วยค่าอื่น ๆ ที่คุณระบุ โปรดอ่านเพื่อหาวิธีทำให้งานนี้สำเร็จ

1 เมื่อ Kutools ในแท็บ สูตร กลุ่มคลิก More > ตัวช่วยสร้างเงื่อนไขข้อผิดพลาด.

3 คลิก Ok. ค่าความผิดพลาดที่ระบุจะแสดงเป็นตัวเลือกที่คุณเลือก

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

แทนที่ข้อผิดพลาดเฉพาะด้วยค่าอื่นด้วยสูตร

เมื่อต้องการแทนที่ค่าความผิดพลาดเฉพาะ Excel's IF, ไอเอฟเอ็นเอและ ข้อผิดพลาดประเภท ฟังก์ชั่นสามารถช่วยคุณได้ แต่ก่อนอื่น คุณควรทราบรหัสตัวเลขที่สอดคล้องกันของค่าความผิดพลาดแต่ละค่า

ตัวอย่างเช่น คุณมีตารางที่มีค่าดังที่แสดงด้านบน เพื่อแทนที่ # DIV / 0! ข้อผิดพลาดกับสตริงข้อความ หารด้วยความผิดพลาดเป็นศูนย์คุณควรหารหัสของข้อผิดพลาดนี้ก่อน ซึ่งก็คือ 2. แล้วใช้สูตรต่อไปนี้ในเซลล์ B2แล้วลากที่จับเติมลงไปเพื่อใช้สูตรกับเซลล์ด้านล่าง:

=IF(IFNA(ERROR.TYPE(A2),A2)=2,"หารด้วยความผิดพลาดเป็นศูนย์",A2)

บทความที่เกี่ยวข้อง

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

🤖	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% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!

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