Овај водич ће вас научити како да избришете или обришете радни лист помоћу ВБА.
Избриши радни лист
Користите команду делете за брисање радног листа.
Избришите радни лист по имену
| 1 | Табеле („Лист1“). Избришите |
Избришите радни лист према броју индекса
Овај код брише први радни лист у радној свесци:
| 1 | Листови (1) .Брисати |
Овај код брише последњи радни лист у радној свесци:
| 1 | Табеле (Схеетс.Цоунт) .Брисати |
Брисање радног листа без упита
Када покушате да избришете радни лист, Екцел ће од вас затражити да потврдите своју радњу:
Можете онемогућити ове упите (упозорења) пребацивањем ДисплаиАлертс -а:
| 123 | Апплицатион.ДисплаиАлертс = НетачноТабеле („Лист1“). ИзбришитеАпплицатион.ДисплаиАлертс = Тачно |
Избришите лист ако постоји
Ако покушате да избришете радни лист који не постоји, ВБА ће генерисати грешку. Помоћу Он Еррор Ресуме Нект можете рећи ВБА да избрише лист ако постоји, у супротном пређите на следећи ред кода:
| 123 | На Грешка Настави даљеТабеле („Лист1“). ИзбришитеОн Еррор ГоТо 0 |
Такође можете користити нашу функцију РангеЕкистс да проверите да ли лист постоји и ако постоји, избришите га .:
| 123 | Ако РангеЕкистс ("Схеет1") ЗатимТабеле („Лист1“). ИзбришитеКрај Ако |
Цлеар Схеет
Овај код ће обрисати читав лист садржаја, формате и све остало:
| 1 | Листови ("Лист1"). Ћелије.Очисти |
Обриши садржај листа
Овај код ће обрисати садржај читавог листа. Форматирање, коментаре и све остало оставиће на миру:
| 1 | Схеетс ("Схеет1"). Целлс.ЦлеарЦонтентс |
Цлеар Схеет УседРанге
Горњи примери ће обрисати СВЕ ћелије на радном листу. За велике листове ово може одузети много времена. Ако уместо тога користите УседРанге, ВБА ће обрисати само „коришћене“ ћелије које садрже вредности, формате итд.
| 1 | Схеетс ("Схеет1"). УседРанге.Цлеар |
