Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1 2 След.
RSS
[ Закрыто ] Создание новых листов с автоматически заданным именем
 
#1
29.07.2019 23:44:38
Уважаемые гуру эксцелеводства!!!

Одарите неофита светом мудрости и помогите облегчить непосильный труд составителя граФИГков рабочего времени и повелителя табелей учета того же, единоутробного, рабочего времени!?!

подскажите пожалуйста

Можно ли стандартными средствами(используя формулы, команды) эксцеля(или что-нибудь ещё не очень сложное для понимания) СКОПИРОВАТЬ имеющийся образцовый лист - на новый лист с названием содержащим наименования подразделения, месяца и года(взятых из образцового листа)???

На образцовом листе графика работ есть поля для ввода номера месяца, года, названия подразделения.
Идея(мечта) заключается в разработке механизма создания на базе введенной на образцовом листе информации нового листа с названием в формате "Наименование подразделения_Месяц_Год".
К примеру, заполнив таблицу на образцовом листе , нажимаем на кнопку "Создать лист графика работы"... и .... ву а ля!!! в эксцелекниге появился новый лист с нужным названием и скопированной ИЗ ИСХОДНОГО образцового листа информацией...

зы: файлик примера около 2Мб сюда не загружается ввиду избыточного веса... или роста...
Изменено: r_edkij - 31.07.2019 00:24:58 (поправил во избежание неверного толкования)
 
 
 
#2
29.07.2019 23:55:32
доброй ночи. "Облегчите" файл, удалите ненужные данные, сократите и приложите пример. А так... -  "переместить/скопировать лист"  
Изменено: Настя_Nastya - 30.07.2019 00:21:46
 
 
 
#3
30.07.2019 08:09:28
Можно так:
Код
Sub t()
    x = Sheets(1).Cells(3, 4) & "_" & MonthName(Sheets(1).Cells(4, 4)) & "_" & Sheets(1).Cells(5, 4)
    y = ThisWorkbook.Sheets.Count
        For i = 1 To y
            If Worksheets(i).Name = x Then
                MsgBox "Лист с таким именем уже существует!", vbCritical
                Exit Sub
            End If
        Next
    Sheets.Add(, Worksheets(y)).Name = x
    Sheets(1).Select
End Sub
 
 
 
#4
30.07.2019 08:40:35
И незабываем про ограничение длины имени листа!
Также кросс
Изменено: БМВ - 30.07.2019 08:54:54
По вопросам из тем форума, личку не читаю.
 
 
 
#5
30.07.2019 13:57:51
GRIM, Вот что-то подобное я и имел ....  в виду.
Только, ИЗВИНЯЙТЕ , не совсем верно описал задачу.

Исходный лист(из которого копируется с переименованием нужный лист) называется Grafik_Obrazec
На нем в ячейке Q3 выбирается из выпадающего списка наименование подразделения
На нем же в ячейке C4 задается номер месяца, а в ячейке  C3 - номер года
В итоге лист Grafik_Obrazec, с заполненными данными, должен по "нажатию кнопки" скопироваться в лист с названием "ККТ_7_2019"
где ККТ - наименование подразделения, 7 - номер месяца, 2019 - год

После чего сделать полученный лист текущим.
 
 
 
#6
30.07.2019 14:00:33
Цитата
r_edkij написал:
лист Grafik_Obrazec, с заполненными данными, должен по "нажатию кнопки" скопироваться в лист...
Не может лист копироваться в лист.
 
 
 
#7
30.07.2019 14:27:31
Юрий М, ну, видимо, лист-образец копируется с переименованием с заданным форматом имени

поразбирался с примером глубокоуважаемого GRIM
похоже что он работает так как надо...
ОГРОМНОЕ НЕЧЕЛОВЕЧЕСКОЕ МЕРСИ!!!

однако при попытке адаптировать это решение в мой файлик попал в засаду собственной некомпетентности ... что-то у меня, пока, не получилось адаптировать это превосходно работающее в Вашем файле примера решение, в свой файл... какое-то у меня недопонимание в вопросе корректного указания мест где находятся необходимые данные в строке.

Цитата
x = Sheets(1).Cells(3, 4) & "_" & MonthName(Sheets(1).Cells(4, 3)) & "_" & Sheets(1).Cells(3, 3)
не могли бы вы пояснить что есть Sheets(1)? Это ведь надо заменить названием Листа-образца? И что за параметр в скобках? Это не порядковый номер листа в книге?
и что есть Cells(4, 3)? Как я понял это указание на ячейку с данными в 3 строке, 4 столбце на листе?
Изменено: r_edkij - 30.07.2019 22:35:33 (надо)
 
 
 
#8
30.07.2019 18:47:44
Sheets("Grafik_Obrazec").Cells(4,3)  - ячейка в четвертой строке и третьем столбце на листе "Grafik_Obrazec"
 
 
 
#9
30.07.2019 19:05:50
Цитата
r_edkij написал:
не могли бы вы пояснить что есть Sheets(1)?
Это самый первый лист.
 
 
 
#10
30.07.2019 19:11:00
_Igor_61, Спасибо! Все заработало!!!
 
 
 
#11
30.07.2019 20:19:16
_Igor_61, А не подскажете как изменить последнюю строку,
Цитата
Sheets("Grafik_Obrazec").Select
что бы активным сделать созданный лист, а не лист-образец?
возможно каким-то образом можно использовать переменную x?
Изменено: r_edkij - 30.07.2019 20:25:03
 
 
 
#12
30.07.2019 20:33:56
В ней и содержится имя листа.  Sheets(x).Select
 
 
 
#13
30.07.2019 21:09:18
_Igor_61,  Это ПРЕКРАСНО!!!
НО!
у меня создается лист с нужным именем, но туда НЕ копируется все с листа-образца, а смысл этих "танцев с бубном" как-раз в том что все что набрано и посчитано в образце - должно сохраниться на новом листе
 
 
 
#14
30.07.2019 21:21:41
Ну так и покажите в файле, что именно там у Вас творится - кто откуда знает?.
Цитата
Настя_Nastya написал:
"Облегчите" файл, удалите ненужные данные, сократите и приложите пример
 
 
 
#15
30.07.2019 21:40:36
_Igor_61, Не могу ужать до 100к
меньше 150 никак не получается
 
 
 
#16
30.07.2019 21:50:15
r_edkij, пожалуйста, перечитайте правила.
 
 
 
#17
30.07.2019 22:42:10
Перечитал... 300 - лучше чем 100  :D

Какой-то глюк поймал мой эксцел.
Чем больше удаляю из файла листов, строк и пр, тем больше становится размер файла :qstn:
Не знаю что произошло, но файлик который я кастрировал до 150кБ сейчас, почему-то весит около 4Мб
 
 
 
#18
30.07.2019 22:54:31
хрень какая-то нездоровая!
поубирал всякие календари и пр фичи с украшалками
оставил 2 листа с малюсенькими табличками и они весят 2241кБ !!!
пробовал сохранить в файл без поддержки макросов, не помогает.. все-равно 2234кБ.
не может какая-нибудь ВБАшная байда нагружать файл примера?
и как от неё избавиться?
Изменено: r_edkij - 30.07.2019 23:45:55
 
 
 
#19
30.07.2019 22:59:43
Зачем Вы каждое предложение отделяете пустой строкой?! Да еще предложения рвете...
 
 
 
#20
30.07.2019 23:03:19
vikttur,это, наверно, от нервов.
а в этом есть какой-то криминал?
 
 
 
#21
30.07.2019 23:05:41
Тама останется в помощь другим, а Вы бардак разводите. Вспомните, как учили в школе правильно писать и приведите сообщение в порядок.
 
 
 
#22
30.07.2019 23:09:54
Юрий М,кстати сказать!
при попытке загрузить файлик меня похабно обругали красным треугольником с восклицательным знаком и сообщением "Загружаемые файлы не должны быть размером более 100 Кб.". Какое-то трагическое несовпадение с пунктом 2.3 вышеупомянутых... ПРАВИЛ
 
 
 
#23
30.07.2019 23:10:03
edkij,
у Вас 2 варианта:
1. сделать файл и выгрузить его сюда с надеждой, что кто-то что-то в нем поймет и поможет
2. не нужно ничего готовить, не нужно ничего никуда грузить, разбираетесь со своими данными самостоятельно до полного удовлетворения
Вы свободный мыслящий человек и сами можете решить как Вам действовать в данной ситуации. удачи!
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#24
30.07.2019 23:32:20
Ігор Гончаренко, зачем ЭТО сюда написано? высокопарная трансляция ОЧЕВИДНЫХ утверждений - пустопорожний флейм.
 
 
 
#25
30.07.2019 23:39:22
именно с этой целью
удачи в решении задачи!
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#26
30.07.2019 23:40:13
Offtop
Цитата
r_edkij написал:
трансляция ОЧЕВИДНЫХ утверждений - пустопорожний флейм
Правильно ли я понимаю, что вот это
Цитата

[QUOTE]r_edkij написал:
Одарите неофита светом мудрости и помогите облегчить непосильный труд составителя граФИГков рабочего времени и повелителя табелей учета того же, единоутробного, рабочего времени!?!
Цитата
r_edkij написал:
ОсЯтите знанием....
Цитата
r_edkij написал:
попал в засаду собственной некомпетентности ... что-то у меня, пока,
Настолько нужное для постановки задачи, что никак не обойтись?
 
 
 
#27
30.07.2019 23:50:45
Андрей VG,вы бы по теме что-то полезное изрекли, а не занимались перевоспитанием дяденьки с давно седыми тастикулами.
 
 
 
#28
30.07.2019 23:58:38
А Вы не задумывались, почему другие взрослые дяденьки так отвечают? Может быть, не в них проблема?
После сообщения №10 тема закрыта. Об изменении активного листа - не по теме.
 
 
 
#29
31.07.2019 00:15:47
vikttur,задумывался конечно! ИМХО у многих банально-непреодолимое, перманентное желание поучать и воспитывать окружающих. Ибо по делу и по-существу ответили три комментатора. Которые, кстати, претензий к стилю изложения вопроса не имели. Им - ОГРОМНОЕ спасибо и прочие респекты.  Ну и модераторы, понятно, блюли порядок. А остальные что тут делали мне не очень понятно. Нафига в теме по VBA заниматься обсуждением лексики, грамматики правописания и пр. синтаксисов разговорной речи? Я, честно говоря, как любитель словесности и тонкий ценитель русского языка, с трудом удерживал себя от ненормативных аргументов.
 
 
 
#30
31.07.2019 00:19:15
vikttur, как не по-теме? Это как-раз вопрос по последней строке предложенного макроса.
 
 
 
Страницы: 1 2 След.
Наверх