Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Вставка даты с ячейки в название листа - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставка даты с ячейки в название листа (Макросы/Sub)
Вставка даты с ячейки в название листа
inohodec Дата: Вторник, 24.11.2015, 12:14 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 41
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день. Суть вопроса такова, как сделать так, чтоб в названии листа вставить дату?
Пробывал и через функции и макроссом, но моих знаний недостаточно, нужна Ваша помощ.
[vba]
Код

Sheets(2).Name = Sheets(1).Range("i6") & "_" & Sheets(1).Range("b3")
Sheets(3).Name = Sheets(1).Range("i7") & "_" & Sheets(1).Range("b3")
Sheets(4).Name = Sheets(1).Range("i8") & "_" & Sheets(1).Range("b3")
[/vba]

пробівал и через функцию =СЦЕПИТЬ(I6;C1;B3) но результат не устраевает 2315_42264,5625
К сообщению приложен файл: 24.11.2015.xls (36.5 Kb)
 
Ответить
СообщениеДобрый день. Суть вопроса такова, как сделать так, чтоб в названии листа вставить дату?
Пробывал и через функции и макроссом, но моих знаний недостаточно, нужна Ваша помощ.
[vba]
Код

Sheets(2).Name = Sheets(1).Range("i6") & "_" & Sheets(1).Range("b3")
Sheets(3).Name = Sheets(1).Range("i7") & "_" & Sheets(1).Range("b3")
Sheets(4).Name = Sheets(1).Range("i8") & "_" & Sheets(1).Range("b3")
[/vba]

пробівал и через функцию =СЦЕПИТЬ(I6;C1;B3) но результат не устраевает 2315_42264,5625
Автор - inohodec
Дата добавления - 24.11.2015 в 12:14
Manyasha Дата: Вторник, 24.11.2015, 12:26 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
inohodec, вот так можно, если в В3 нужный формат стоит
[vba]
Код
Sheets(2).Name = Sheets(1).Range("i6") & "_" & Sheets(1).Range("b3").Text
[/vba]
или так
[vba]
Код
Sheets(3).Name = Sheets(1).Range("i7") & "_" & Format(Sheets(1).Range("b3"), "dd.mm.yyyy")  
[/vba]

ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщениеinohodec, вот так можно, если в В3 нужный формат стоит
[vba]
Код
Sheets(2).Name = Sheets(1).Range("i6") & "_" & Sheets(1).Range("b3").Text
[/vba]
или так
[vba]
Код
Sheets(3).Name = Sheets(1).Range("i7") & "_" & Format(Sheets(1).Range("b3"), "dd.mm.yyyy")  
[/vba]
Автор - Manyasha
Дата добавления - 24.11.2015 в 12:26
inohodec Дата: Вторник, 24.11.2015, 12:32 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 41
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Большое спасибо, то что надо hands
 
Ответить
СообщениеБольшое спасибо, то что надо hands
Автор - inohodec
Дата добавления - 24.11.2015 в 12:32
китин Дата: Среда, 07.12.2016, 13:02 | Сообщение № 4
Группа: Модераторы
Ранг: Экселист
Сообщений: 7015
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
Марина спасибо. Стащил в копилку. Только вопрос возник: а что надо дописать, что бы срабатывало при изменении в ячейке? Причеи изменения производится формулой

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
СообщениеМарина спасибо. Стащил в копилку. Только вопрос возник: а что надо дописать, что бы срабатывало при изменении в ячейке? Причеи изменения производится формулой
Автор - китин
Дата добавления - 07.12.2016 в 13:02
_Boroda_ Дата: Среда, 07.12.2016, 13:21 | Сообщение № 5
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Цитатакитин, 07.12.2016 в 13:02, в сообщении № 4 ()
что надо дописать, что бы срабатывало при изменении в ячейке? Причеи изменения производится формулой

Игорь, подробнее нужно.
Предположу, что изменение названия листа по дате врядли нужно именно по изменению в ячейке. Возможно, надо по изменению даты или по созданию нового листа
Из серии вот этого в модуль КНИГИ - при создании нового листа дает ему имя по дате
[vba]
Код
Private Sub Workbook_NewSheet(ByVal Sh As Object)
    Sh.Name ="Создано_" & Format(Date, "dd.mm.yyyy")
End Sub
[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение
Цитатакитин, 07.12.2016 в 13:02, в сообщении № 4 ()
что надо дописать, что бы срабатывало при изменении в ячейке? Причеи изменения производится формулой

Игорь, подробнее нужно.
Предположу, что изменение названия листа по дате врядли нужно именно по изменению в ячейке. Возможно, надо по изменению даты или по созданию нового листа
Из серии вот этого в модуль КНИГИ - при создании нового листа дает ему имя по дате
[vba]
Код
Private Sub Workbook_NewSheet(ByVal Sh As Object)
    Sh.Name ="Создано_" & Format(Date, "dd.mm.yyyy")
End Sub
[/vba]
Автор - _Boroda_
Дата добавления - 07.12.2016 в 13:21
KuklP Дата: Среда, 07.12.2016, 13:22 | Сообщение № 6
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Игорь на примере ТС, в модуль первого листа:
[vba]
Код
Private Sub Worksheet_Calculate()
    Sheets(2).Name = Me.[i6] & "_" & Me.[b3].Text
    Sheets(3).Name = Me.[i7] & "_" & Me.[b3].Text
    Sheets(4).Name = Me.[i8] & "_" & Me.[b3].Text
End Sub
[/vba]

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Сообщение отредактировал KuklP - Среда, 07.12.2016, 13:23
 
Ответить
СообщениеИгорь на примере ТС, в модуль первого листа:
[vba]
Код
Private Sub Worksheet_Calculate()
    Sheets(2).Name = Me.[i6] & "_" & Me.[b3].Text
    Sheets(3).Name = Me.[i7] & "_" & Me.[b3].Text
    Sheets(4).Name = Me.[i8] & "_" & Me.[b3].Text
End Sub
[/vba]
Автор - KuklP
Дата добавления - 07.12.2016 в 13:22
китин Дата: Среда, 07.12.2016, 14:39 | Сообщение № 7
Группа: Модераторы
Ранг: Экселист
Сообщений: 7015
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
Цитата_Boroda_, 07.12.2016 в 13:21, в сообщении № 5 ()
подробнее нужно.

не. тут, видимо новую тему создавать нужно, но чуток попозже: надо сформулировать поточнее.
попробовал оба варианта. немного не то.но все равно спер в копилку. пригодится. Спасибо вам большое.не понял одного что такое [vba]
Код
Me.[i6]
[/vba] и с чем его едят %)
ну [i6] это ячейка а что за зверь Me.

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Сообщение отредактировал китин - Среда, 07.12.2016, 14:40
 
Ответить
Сообщение
Цитата_Boroda_, 07.12.2016 в 13:21, в сообщении № 5 ()
подробнее нужно.

не. тут, видимо новую тему создавать нужно, но чуток попозже: надо сформулировать поточнее.
попробовал оба варианта. немного не то.но все равно спер в копилку. пригодится. Спасибо вам большое.не понял одного что такое [vba]
Код
Me.[i6]
[/vba] и с чем его едят %)
ну [i6] это ячейка а что за зверь Me.
Автор - китин
Дата добавления - 07.12.2016 в 14:39
_Boroda_ Дата: Среда, 07.12.2016, 14:42 | Сообщение № 8
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
- это типа "я". Если код расположен в модуле листа, то "Me" - это тот лист, в котором код расположен. Аналогично и про модуль книги, и ...

Вы деляешь в коде нужное слово (в данном случае Ме) и жмешь F1, получаешь вот это
https://msdn.microsoft.com/ru-ru....5).aspx
Там не очень понятно, но для других вопросов может пригодиться

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение- это типа "я". Если код расположен в модуле листа, то "Me" - это тот лист, в котором код расположен. Аналогично и про модуль книги, и ...

Вы деляешь в коде нужное слово (в данном случае Ме) и жмешь F1, получаешь вот это
https://msdn.microsoft.com/ru-ru....5).aspx
Там не очень понятно, но для других вопросов может пригодиться
Автор - _Boroda_
Дата добавления - 07.12.2016 в 14:42
китин Дата: Среда, 07.12.2016, 15:00 | Сообщение № 9
Группа: Модераторы
Ранг: Экселист
Сообщений: 7015
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
понял. надо осмыслить :D

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениепонял. надо осмыслить :D
Автор - китин
Дата добавления - 07.12.2016 в 15:00
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставка даты с ячейки в название листа (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!