Ինչպե՞ս թաքցնել հատուկ սխալի արժեքները 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 = Զանգված ("#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. Նշված սխալի արժեքները միանգամից թաքցվել են:

Սխալների հատուկ արժեքները փոխարինեք այլ արժեքներով Error Condition Wizard ֆունկցիայի միջոցով

Եթե ​​ծանոթ չեք VBA կոդին, Kutools-ի համար Excel-ի Error Condition Wizard ֆունկցիան կարող է օգնել ձեզ հեշտությամբ գտնել սխալի բոլոր արժեքները, բոլոր #N/A սխալները կամ ցանկացած սխալ, բացի #N/A-ից և փոխարինել դրանք ձեր նշած այլ արժեքներով: , խնդրում ենք կարդալ՝ պարզելու համար, թե ինչպես կարելի է կատարել այս աշխատանքը:

1. Ին Կուտոլս էջում Ֆորմուլա խումբ, սեղմեք ավելի շատ > Սխալի պայմանների մոգ.

3: սեղմեք Ok. Նշված սխալի արժեքները ցուցադրվում են որպես ձեր ընտրած տարբերակ:

Նշում: Օգտագործել Սխալի պայմանների մոգ առանձնահատկություն, դուք պետք է ունենաք ձեր համակարգչում տեղադրված Kutools Excel-ի համար: Եթե ​​դուք չունեք տեղադրված Kutools, սեղմեք այստեղ՝ ներբեռնելու և տեղադրելու համար. Պրոֆեսիոնալ Excel հավելումը առաջարկում է 30-օրյա անվճար փորձարկում՝ առանց սահմանափակումների:

Փոխարինեք կոնկրետ սխալը այլ արժեքներով բանաձևով

Հատուկ սխալի արժեքը փոխարինելու համար Excel-ը IF, IFNA, եւ ՍԽԱԼ. ՏԵՍԱԿԸ գործառույթները կարող են ձեզ լավություն անել: Բայց նախ դուք պետք է իմանաք յուրաքանչյուր սխալի արժեքի համապատասխան համարի կոդը:

Օրինակ, դուք ունեք աղյուսակ արժեքներով, ինչպես ցույց է տրված վերևում: Փոխարինելու համար # DIV / 0! սխալ տեքստային տողի հետ Բաժանել զրո սխալով, նախ պետք է գտնել այս սխալի կոդը, որը 2. Եվ հետո բջիջում կիրառեք հետևյալ բանաձևը B2և ներքև քաշեք լրացման բռնիչը՝ ներքևի բջիջներում բանաձևը կիրառելու համար.

=IF(IFNA(ERROR.TYPE(A2),A2)=2,"Բաժանել զրո սխալով",A2)

Առնչվող հոդվածներ

Գրասենյակի արտադրողականության լավագույն գործիքները

🤖	Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
	Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
	Super Փնտրել: Բազմաթիվ չափանիշների VLookup  |   Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
	Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
	Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
	Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar   |  Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները   |  Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
	Լավագույն 15 գործիքների հավաքածու:  12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Կարդալ ավելին... Անվճար ներբեռնում...

---

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

• Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
• Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
• Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:

Կարդալ ավելին... Անվճար ներբեռնում...