Има моменти, в които трябва да създаваме или добавяме лист и по -късно установихме, че няма полза от този лист, поради което се налага бързо да изтрием листа от работната книга. Тази статия се фокусира върху спестяването на време и предоставя код за премахване на листове без никакво поле за съобщения с помощта на vba макрос / код. Това може да бъде един лист или няколко. И Excel дава изскачащ сигнал, за да потвърди изтриването на листа. Ако е от един лист, може да се управлява. Но ако трябва да изтриете няколко листа, ще получите по един изскачащ прозорец на лист.
Често създавате няколко листа, използвайки VBA. Но в крайна сметка всъщност нямате нужда от тях. Бихте искали да ги изтриете, след като свършите работата си. Това ще поддържа файла ви по -лек, по -бърз и разумен.
VBA кодът за изтриване на лист е прост
Листове („SheetName“). Изтриване
Да предположим, че имате този код, за да добавите лист и след това да го изтриете, когато работата приключи.
Sub AddAndDeleteSheet () Sheets.Add 'Добавя нов лист към активната работна книга' ---- '----' ---- 'някаква работа върху листа е извършена ActiveSheet.Delete' изтрива активния подплатен лист ActiveSheet
Когато изпълните този код, Sheets.Add ще работи без подкана, но когато компилаторът ще дойде ActiveSheet.Delete ще изведе съобщение като това.
Тъй като изтривате листове с помощта на VBA, знаете какво правите. Бихте искали да кажете на Excel да не показва това предупреждение и да изтрие проклетия лист.
За да направите това, ще изключим бутона за предупреждение на дисплея на приложение Excel.
Кодът по -долу ще заобиколи това предупредително съобщение и листът ще бъде изтрит без никакви намеци.
Sub AddAndDeleteSheet () Application.DisplayAlerts = False 'изключване на бутона за предупреждение Sheets.Add' ---- '----' ---- 'някои работи по листа са извършени ActiveSheet.Delete Application.DisplayAlerts = True' включване бутонът за предупреждение End Sub
Тук изтриваме Activesheet с помощта на VBA. Можете да изтриете всеки лист с помощта на VBA. Просто напишете Sheets ("Sheetname"). Delete. Преместване на…
DisplayAlerts е свойство на обект Application във VBA. Тук го изключваме в началото на кода и го включваме в края на кода. Горният код ще потвърди изтриването без никакви намеци.
Забележка:Горният код ще игнорира всички предупреждения, отправени от Excel. Ако искате да разрешите само изтриване на лист, използвайте този ред.
Application.DisplayAlerts = False 'изключване на бутона за предупреждение ActiveSheet.Delete Application.DisplayAlerts = True' включване на бутона за предупреждение
Това ще игнорира само предупреждението за изтриване на листа.
Професионален съвет: Тези редове код правят вашия VBA код по -ефективен.Винаги ги използвайте в началото на вашия макрос и ги включвайте отново там, където се очаква кодът ви да излезе от рутината.Внимание: Ако не е включено преди излизане от подпрограмата, може изобщо да не видите предупреждение. Дори ако вашият код не работи. Това може да причини много проблеми.
Ако имате няколко листа за изтриване и използвате цикъл, опитайте този код -
Опция Изричен подмакрос2 () Dim i As Long Application.DisplayAlerts = False For i = 1 към работни листове. Пребройте If Worksheets (i) .Name Like "Test*" then Worksheets (i) .Delete Next i Application.DisplayAlerts = True End Под
Това е. Готово е. Това е лесно като включване и изключване на вентилатора. Нали?
Ако ви харесаха нашите блогове, споделете го с приятелите си във Facebook. Можете също така да ни следвате в Twitter и Facebook.
Ще се радваме да чуем от вас, уведомете ни как можем да подобрим, допълним или обновим работата си и да я подобрим. Пишете ни на имейл сайтСвали файл
Изтриване на листове без подкани за потвърждение с помощта на VBA в Microsoft Excel
Разделете Excel листа на множество файлове въз основа на колона с помощта на VBA
Променете принтера по подразбиране, използвайки VBA в Microsoft Excel 2016
Изключете предупредителните съобщения с помощта на VBA в Microsoft Excel 2016
Показване на съобщение в лентата за състоянието на Excel VBA
Вмъкнете снимки с помощта на VBA в Microsoft Excel 2016
Как да преглеждате листове в Excel с помощта на VBA
Популярни статии:
50 преки пътища в Excel за повишаване на вашата производителност
Как да използвате функцията VLOOKUP в Excel
Как да използвате функцията COUNTIF в Excel
Как да използвате функцията SUMIF в Excel