Excel позволяет создавать новые рабочие листы разными способами. Что, если вы хотите создать новый рабочий лист и дать ему имя за один шаг? Самый простой способ сделать это — использовать макрос. Ниже приведен пример макроса, который запрашивает имя, а затем создает рабочий лист и присваивает этому листу указанное имя.

Sub AddNameNewSheet1()

Dim Newname As String     Newname = InputBox("Name for new worksheet?")

If Newname <> "" Then         Sheets.Add Type:=xlWorksheet         ActiveSheet.Name = Newname     End If End Sub

Этот макрос работает нормально, пока пользователь вводит имя рабочего листа, которое является «допустимым» по стандартам Excel. Если новое имя неприемлемо для Excel, лист все равно добавляется, но не переименовывается должным образом.

Более надежный макрос предвидит возможные ошибки при именовании рабочего листа. Следующий пример кода добавит рабочий лист, но продолжайте запрашивать имя рабочего листа, если указано неправильное.

Sub AddNameNewSheet2()

Dim CurrentSheetName As String

'Remember where we started 'Not needed if you don't want to return 'to where you started but want to stay 'on the New Sheet

CurrentSheetName = ActiveSheet.Name

'Add New Sheet     Sheets.Add

'Make sure the name is valid     On Error Resume Next

'Get the new name      ActiveSheet.Name = InputBox("Name for new worksheet?")



'Keep asking for name if name is invalid     Do Until Err.Number = 0         Err.Clear         ActiveSheet.Name = InputBox("Try Again!" _           & vbCrLf & "Invalid Name or Name Already Exists" _           & vbCrLf & "Please name the New Sheet")

Loop     On Error GoTo 0

'Go back to where you started 'Not needed if you don't want to return 'to where you started but want to stay 'on the New Sheet     Sheets(CurrentSheetName).Select

End Sub

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (2022) применим к Microsoft Excel 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Excel (Excel 2007 и более поздних версий) здесь:

link: / excelribbon-Creating_Worksheets_with_a_Macro [Создание рабочих листов с помощью макроса].