Как да създадете лист, ако не съществува в работната книга?
Да предположим, че имате работна книга, която съдържа множество работни листове, сега трябва да определите дали съществува конкретно име на работен лист. Ако името на работния лист не съществува, моля, създайте го. Ако съществува, моля, изпратете незабавно съобщение, за да ви кажем, че листът съществува. Как бихте могли да решите тази задача в Excel?
Създайте лист, ако не съществува в работната книга с VBA код
Създайте лист, ако не съществува в работната книга с VBA код
Следният VBA код може да ви помогне да проверите конкретно име на работен лист, ако съществува в работната книга, ако не, кодът може да създаде листа, както ви е необходимо.
1. Задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2. Щракнете Поставете > Модулии поставете следния код в Модули Window.
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% и намалява стотици кликвания на мишката за вас всеки ден!