создание нового листа - Microsoft Office Excel

cathie · 12.12.2007, 14:45

Здравствуйте!
начну с того, что я не программист.. но у меня есть проблема связанная с vba в excel.. переделываю макрос, вызываемый нажатием на кнопку, одному богу известно с помощью чего, не зная vba, вообще.. кое-что удалось, но лит-ры под рукой нет никакой, а посоветоваться не с кем.. надеюсь, что помогут здесь.. в этом макросе мне надо создать проверку на существование листа в данной книге excel с определенным названием, и если этого листа не существует, создать его.. пыхчу уже как паравоз, ничего не получается.. подскажи, пожалуйста, как это можно сделать?

SAS888 · 12.12.2007, 15:35

Например, так:

Sub List()
Dim x As Object
On Error Resume Next
Set x = ActiveWorkbook.Sheets("SheetName")
If Err = 0 Then
MsgBox "Лист существует"
Else
Set NewSheet = Worksheets.Add
NewSheet.Name = "SheetName"
End If
End Sub

Будет вставлен (если его нет) лист с именем "SheetName".

cathie · 12.12.2007, 15:49

Супер!!!! Вы - гений!!! Огромное Вам спасибо..
А я пробовала через функцию, но у меня не получалось..
Еще раз спасибо!!

12.12.2007, 14:45	#1
cathie Новичок Джуниор Регистрация: 12.12.2007 Сообщений: 2	создание нового листа Здравствуйте! начну с того, что я не программист.. но у меня есть проблема связанная с vba в excel.. переделываю макрос, вызываемый нажатием на кнопку, одному богу известно с помощью чего, не зная vba, вообще.. кое-что удалось, но лит-ры под рукой нет никакой, а посоветоваться не с кем.. надеюсь, что помогут здесь.. в этом макросе мне надо создать проверку на существование листа в данной книге excel с определенным названием, и если этого листа не существует, создать его.. пыхчу уже как паравоз, ничего не получается.. подскажи, пожалуйста, как это можно сделать?

12.12.2007, 15:35	#2
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	Например, так: Sub List() Dim x As Object On Error Resume Next Set x = ActiveWorkbook.Sheets("SheetName") If Err = 0 Then MsgBox "Лист существует" Else Set NewSheet = Worksheets.Add NewSheet.Name = "SheetName" End If End Sub Будет вставлен (если его нет) лист с именем "SheetName". Чем шире угол зрения, тем он тупее.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Создание нового типа	master_root	Общие вопросы Delphi	2	02.07.2008 22:33
XML - создание нового документа	PUH	Помощь студентам	5	17.04.2008 20:32
Меню, создание нового пункта	Yogik™	Помощь студентам	2	17.08.2007 17:32
Создание нового класса на базе существующего	SpiritSm	Общие вопросы Delphi	1	19.07.2007 10:11
Создание нового класса на базе существующего	SpiritSm	Помощь студентам	1	19.07.2007 01:05

12.12.2007, 15:49	#3
cathie Новичок Джуниор Регистрация: 12.12.2007 Сообщений: 2	Супер!!!! Вы - гений!!! Огромное Вам спасибо.. А я пробовала через функцию, но у меня не получалось.. Еще раз спасибо!!