Ինչպե՞ս ջնջել տողերը ՝ հիմնվելով ֆոնի գույնի վրա, Excel- ում:
Ինչպե՞ս կարող եք ջնջել ամբողջ շարքերը ՝ հիմնվելով ֆոնի գույնի վրա: Այս օրինակում ես պետք է ջնջեմ բոլոր տողերը, որոնք բջիջները լցված են կապույտ ֆոնի գույնով, ինչպես ցույց է տրված հետևյալ նկարը: Այս հոդվածով դուք կստանաք մի քանի կոդեր `Excel- ում այս առաջադրանքին հասնելու համար:
Յուրաքանչյուր բջիջի հիման վրա ջնջեք հատուկ ֆոնի գույնով տողերը
Մեկ սյունակի հիման վրա ջնջեք հատուկ ֆոնի գույնով տողերը
Յուրաքանչյուր բջիջի հիման վրա ջնջեք հատուկ ֆոնի գույնով տողերը
Եթե ունեք տվյալների մի շարք, որոնք պատահականորեն լցված են բջիջների որոշ գույներով, և անհրաժեշտ է ջնջել այն շարքերը, որոնց բջջի գույնը կապույտ է, ինչպես ցույց է տրված հետևյալ նկարը.
Այս տողերի տողերը ջնջելու համար կարող եք օգտագործել հետևյալ VBA կոդը, խնդրում ենք արեք հետևյալ կերպ.
1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:
VBA կոդ. Deleteնջեք այն տողերը, որոնք բջիջները պարունակում են լրացման հատուկ գույն.
Sub DeleteRows()
'Updateby Extendoffice
Dim rngCl As Range
Dim xRows As Long
Dim xCol As Long
Dim colorLg As Long
On Error Resume Next
Set rngCl = Application.InputBox _
(Prompt:="Select a cell with the background color to be deleted", _
Title:="Kutools for Excel", Type:=8)
On Error GoTo 0
If rngCl Is Nothing Then
MsgBox "User cancelled operation." & vbCrLf & _
"Processing terminated", vbInformation, "Kutools for Excel"
Exit Sub
End If
colorLg = rngCl.Interior.Color
Application.ScreenUpdating = False
With ActiveSheet.UsedRange
For xRows = .Rows.Count To 1 Step -1
For xCol = 1 To .Columns.Count
If .Cells(xRows, xCol).Interior.Color = colorLg Then
.Rows(xRows).Delete
Exit For
End If
Next xCol
Next xRows
End With
Application.ScreenUpdating = True
End Sub
3, Եվ հետո սեղմեք F5 այս կոդն աշխատեցնելու բանալին, և կհայտնվի հուշման տուփ ՝ հիշեցնելու համար, որ բջիջ եք ընտրում լրացման գույնով, որը ցանկանում եք ջնջել, տե՛ս նկարը.
4. Այնուհետեւ կտտացրեք OK, և բոլոր տողերը ջնջվել են, եթե լրացման հատուկ գույնով բջիջը:
Մեկ սյունակի հիման վրա ջնջեք հատուկ ֆոնի գույնով տողերը
Եթե ցանկանում եք ջնջել հատուկ գույնով տողերը, որոնք հիմնված են միայն մեկ սյունակի վրա, օրինակ, A սյունակում ջնջեք կապույտ գույնով շարքերը և ստացեք ստորև բերված նկարը, ահա նաև VBA կոդ կարող է ձեզ լավություն բերել:
1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:
VBA կոդ. Deleteնջել տողերը, հիմնվելով սյունակի վրա, որի բջիջներն ունեն լրացման հատուկ գույն.
Sub deleterow()
'UpdateBY Extendoffice
Dim xRg As Range, rgDel As Range
For Each xRg In ThisWorkbook.ActiveSheet.Range("A2:A21")
If xRg.Interior.ColorIndex = 20 Then
If rgDel Is Nothing Then
Set rgDel = xRg
Else
Set rgDel = Union(rgDel, xRg)
End If
End If
Next xRg
If Not rgDel Is Nothing Then rgDel.EntireRow.Delete
End Sub
ՆշումՎերոհիշյալ ծածկագրում A2: A21 այն սյունն է, որը պարունակում է լրացման հատուկ գույնը, որի վրա ցանկանում եք ջնջել տողերը `համարը 20 in Գույնի ինդեքս = 20 սցենարը գունային ցուցիչ է, որի հիման վրա ցանկանում եք ջնջել տողերը: Կարող եք դրանք փոխել ըստ ձեր կարիքի:
3, Դրանից հետո սեղմեք F5 այս կոդը գործարկելու համար ստեղնը, և բոլոր շարքերը, որոնք բջիջներ են պարունակում կապույտ գույն A սյունակում, միանգամից ջնջվել են:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: