Як створити аркуш, якщо його немає в книзі?
Припустимо, у вас є книга, яка містить кілька аркушів, тепер вам потрібно визначити, чи існує конкретна назва аркуша. Якщо назва робочого аркуша не існує, створіть його. Якщо він існує, надішліть оперативне повідомлення, щоб повідомити, що аркуш існує. Як ви могли вирішити це завдання в Excel?
Створіть аркуш, якщо його немає у книзі з кодом VBA
Створіть аркуш, якщо його немає у книзі з кодом VBA
Наступний код VBA може допомогти вам перевірити конкретну назву робочого аркуша, якщо воно є у книзі, якщо ні, код може створити аркуш, як вам потрібно.
1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно
Код VBA: Створіть аркуш, якщо його немає в книзі:
Sub TestSheetCreate()
'Updateby Extendoffice
Dim newSheetName As String
Dim checkSheetName As String
newSheetName = Application.InputBox("Input Sheet Name:", "Kutools for Excel", _
"sheet4", , , , , 2)
On Error Resume Next
checkSheetName = Worksheets(newSheetName).Name
If checkSheetName = "" Then
Worksheets.Add.Name = newSheetName
MsgBox "The sheet named ''" & newSheetName & _
"'' does not exist in this workbook but it has been created now.", _
vbInformation, "Kutools for Excel"
Else
MsgBox "The sheet named ''" & newSheetName & _
"''exist in this workbook.", vbInformation, "Kutools for Excel"
End If
End Sub
3. А потім натисніть F5 клавіша для запуску цього коду, вискакує підказка, щоб нагадати вам про введення імені аркуша, який потрібно перевірити, див. знімок екрана:
4. Потім натисніть OK Кнопка:
(1.) Якщо аркуш існує, з’явиться вікно із запитом, щоб нагадати вам, як показано на екрані:
(2.) Якщо аркуш не існує, його буде створено відразу, див. Знімок екрана:
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!