Ինչպե՞ս ջնջել աշխատաթերթը ՝ հիմնված բջջային արժեքի վրա Excel- ում:
Ենթադրելով, որ ես ունեմ բազմաթիվ աշխատաթերթեր աշխատանքային գրքում, այժմ ուզում եմ ջնջել թերթերը `ելնելով բջջային արժեքից: Օրինակ, եթե հատուկ A1 բջիջը պարունակում է «KTE» տեքստ, ապա բոլոր այն թերթերը, որոնց A1 բջիջն ունի այս տեքստը, անհրաժեշտ է միանգամից ջնջել: Այս հոդվածը կարող է օգնել ձեզ լուծել այս խնդիրը Excel- ում:
Deleteնջել աշխատաթերթը ՝ հիմնված բջջային արժեքի վրա VBA կոդով
Deleteնջել աշխատաթերթը ՝ հիմնված բջջային արժեքի վրա VBA կոդով
Այստեղ ես ձեզ կներկայացնեմ կոդ, որպեսզի ջնջեք բոլոր թերթերը, որոնց որոշակի բջիջը որոշակի արժեք ունի:
1. Անջատեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:
VBA կոդ. Deleteնջել աշխատանքային թերթը `ելնելով բջջային արժեքից.
Sub deletesheetbycell()
'Updateby Extendoffice
Dim shName As String
Dim xName As String
Dim xWs As Worksheet
Dim cnt As Integer
shName = Application.InputBox("Input the text to delete the sheets based on:", "Kutools for Excel", _
"", , , , , 2)
Application.DisplayAlerts = False
cnt = 0
For Each xWs In ThisWorkbook.Sheets
If xWs.Range("A1").Value = shName Then
xWs.delete
cnt = cnt + 1
End If
Next xWs
Application.DisplayAlerts = True
MsgBox "Have deleted" & cnt & "worksheets", vbInformation, "Kutools for Excel"
End Sub
ՆշումՎերոհիշյալ ծածկագրում A1 այն հատուկ բջիջն է, որը պարունակում է որոշակի տեքստ, որի հիման վրա ցանկանում եք ջնջել թերթերը:
3. Այնուհետեւ սեղմեք F5 Այս կոդն աշխատեցնելու բանալին, և հուշում է արկղը ՝ հիշեցնելու ձեզ մուտքագրել այն հատուկ արժեքը, որի վրա ցանկանում եք ջնջել թերթերը, տե՛ս նկարը.
4. Եվ այնուհետեւ կտտացրեք OK կոճակը, բոլոր թերթերը, որոնց A1 բջիջում կա KTE տեքստ, միանգամից ջնջվել են: Տեսեք,
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: