Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Создание нового листа по листу - шаблону
 
#1
11.11.2009 13:36:05
Нужен макрос который создает новый лист по листу шаблону с именем, которое введено в определенную ячейку.  
То есть есть 2 листа: "главный" лист (с кнопкой "создать" и ячейкой, в которую нужно ввести название будущего листа) и лист - шаблон, по которому будет создаваться новый лист.  
 
Заранее СПАСИБО!
 
 
 
#2
11.11.2009 13:40:19
Запишите макрорекордером копирование листа-шаблона и присовоение ему нового имени. Вот и весь код.
 
 
 
#3
11.11.2009 16:48:41
Записью я создаю новый лист, а вот как ему имя задать я не знаю, вот и спрашиваю у Вас.
 
 
 
#4
11.11.2009 21:38:29
Попробуйте так:  
Sub CopySheet()  
   Sheets("Шаблон").Copy After:=Sheets("Шаблон")  
   Sheets("Шаблон (2)").Name = Sheets("Лист1").Range("A1").Value  
End Sub  
Условия: на Лист1 в ячейке А1 имя для нового листа. Имя второго листа (листа-шаблона) - "Шаблон"
 
 
 
#5
12.11.2009 10:00:48
Всем СПАСИБО! :)
 
 
 
#6
12.11.2009 11:15:05
И еще маленький вопрос, как сделать чтоб в определенной ячейке писалось название книги? Т.е. есть книга, мы ее переименовываем, открываем и в определенной ячейке уже прописано название этой книги.
 
 
 
#7
12.11.2009 11:22:27
Функция, прописывающая имя файла и полный путь:  
=ЯЧЕЙКА("имяфайла";ссылка)
Век живи, век учись - два века проживешь!
 
 
 
#8
12.11.2009 11:32:07
А можно чтоб без полного пути, только название книги?
 
 
 
#9
12.11.2009 12:01:34
{quote}{login=PIKA4Y}{date=12.11.2009 11:32}{thema=}{post}А можно чтоб без полного пути, только название книги?{/post}{/quote}  
Вот накопал в инете такую формулу: =ПСТР(ЯЧЕЙКА("filename";A1);НАЙТИ("[";ЯЧЕЙКА("filename";A1))+1;65535)
Теперь нужно чтоб не отображалось то, что после .xls
 
 
 
#10
12.11.2009 14:28:39
{quote}{login=The_Prist}{date=12.11.2009 12:07}{thema=}{post}Туплю. Понял.  
=ПСТР(ЯЧЕЙКА("filename";A1);НАЙТИ("[";ЯЧЕЙКА("filename";A1))+1;НАЙТИ("]";ЯЧЕЙКА("filename";A1))-НАЙТИ("[";ЯЧЕЙКА("filename";A1))-1){/post}{/quote}
Спасибо! Все работает! Вот ток я в конце не "-1" поставил, а => =ПСТР(ЯЧЕЙКА("filename";A1);НАЙТИ("[";ЯЧЕЙКА("filename";A1))+1;НАЙТИ("]";ЯЧЕЙКА("filename";A1))-НАЙТИ("[";ЯЧЕЙКА("filename";A1))-5)
Чтоб расширение убрать ;)
 
 
 
Страницы: 1
Читают тему
Наверх