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

Вход

Регистрация

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

 

= Мир MS Excel/Название страниц по датам. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Название страниц по датам. (Нужна помощь)
Название страниц по датам.
Awertiks Дата: Вторник, 26.03.2013, 17:08 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Здравствуйте. В Эксэле я новичок.
Как сделать, что бы страницы содержали в названии своем даты? То есть при создании новой писалась дата следующего дня.
Как то можно такое реализовать? Если да, то прошу подробную инструкцию. В гугл даже не знаю, как написать.
Или если там какая то сложная операция, вы можете сделать файл эксель, где будут страницы называться от 24.03.2013 и хотя бы до лета, то есть до 01.06.2013
Буду премного благодарен.
 
Ответить
СообщениеЗдравствуйте. В Эксэле я новичок.
Как сделать, что бы страницы содержали в названии своем даты? То есть при создании новой писалась дата следующего дня.
Как то можно такое реализовать? Если да, то прошу подробную инструкцию. В гугл даже не знаю, как написать.
Или если там какая то сложная операция, вы можете сделать файл эксель, где будут страницы называться от 24.03.2013 и хотя бы до лета, то есть до 01.06.2013
Буду премного благодарен.
Автор - Awertiks
Дата добавления - 26.03.2013 в 17:08
_Boroda_ Дата: Вторник, 26.03.2013, 17:19 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Цитата (Awertiks)
при создании новой писалась дата следующего дня


В модуль книги
[vba]
Код
Private Sub Workbook_NewSheet(ByVal Sh As Object)
On Error Resume Next
Application.DisplayAlerts = 0
Sh.Name = Date + 1
If Err.Number > 0 Then
      Sh.Delete
      MsgBox "Приходите завтра! Такой лист уже есть."
End If
Application.DisplayAlerts = 1
On Error GoTo 0
End Sub
[/vba]
К сообщению приложен файл: 136749_1.xls (33.5 Kb)

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


В модуль книги
[vba]
Код
Private Sub Workbook_NewSheet(ByVal Sh As Object)
On Error Resume Next
Application.DisplayAlerts = 0
Sh.Name = Date + 1
If Err.Number > 0 Then
      Sh.Delete
      MsgBox "Приходите завтра! Такой лист уже есть."
End If
Application.DisplayAlerts = 1
On Error GoTo 0
End Sub
[/vba]
Автор - _Boroda_
Дата добавления - 26.03.2013 в 17:19
Awertiks Дата: Вторник, 26.03.2013, 17:40 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

_Boroda_, спасибо за ответ.
Я не знаю, что значит в модуль книги.
Разъясните подробнее. Я совсем новичок.
Скачал ваш документ.
Когда я пытаюсь создать лист, мне пишет, что "Приходите завтра! Такой лист уже есть."
А мне нужно, что бы в каждом последующем писалась дата следующая за предыдущим листом.
 
Ответить
Сообщение_Boroda_, спасибо за ответ.
Я не знаю, что значит в модуль книги.
Разъясните подробнее. Я совсем новичок.
Скачал ваш документ.
Когда я пытаюсь создать лист, мне пишет, что "Приходите завтра! Такой лист уже есть."
А мне нужно, что бы в каждом последующем писалась дата следующая за предыдущим листом.
Автор - Awertiks
Дата добавления - 26.03.2013 в 17:40
Serge_007 Дата: Вторник, 26.03.2013, 17:51 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Цитата Awertiks
Я не знаю, что значит в модуль книги.

Азы VBA или С чего начать изучение макросов?

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Цитата Awertiks
Я не знаю, что значит в модуль книги.

Азы VBA или С чего начать изучение макросов?
Автор - Serge_007
Дата добавления - 26.03.2013 в 17:51
AlexM Дата: Вторник, 26.03.2013, 18:28 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4512
Репутация: 1128 ±
Замечаний: 0% ±

Excel 2003
Вариант создания листа со следующей датой, запуском макроса.
[vba]
Код
Sub Macros()
Set ws = ActiveSheet
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = CStr(CDate(Sheets(Sheets.Count - 1).Name) + 1)
ws.Activate
End Sub
[/vba]
К сообщению приложен файл: ____.xls (20.0 Kb)


Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Сообщение отредактировал AlexM - Вторник, 26.03.2013, 18:29
 
Ответить
СообщениеВариант создания листа со следующей датой, запуском макроса.
[vba]
Код
Sub Macros()
Set ws = ActiveSheet
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = CStr(CDate(Sheets(Sheets.Count - 1).Name) + 1)
ws.Activate
End Sub
[/vba]
Автор - AlexM
Дата добавления - 26.03.2013 в 18:28
Awertiks Дата: Вторник, 26.03.2013, 18:45 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

AlexM, спасибо. Мне подходит. Огромное вам спасибо!
 
Ответить
СообщениеAlexM, спасибо. Мне подходит. Огромное вам спасибо!
Автор - Awertiks
Дата добавления - 26.03.2013 в 18:45
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Название страниц по датам. (Нужна помощь)
  • Страница 1 из 1
  • 1
Поиск:

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