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

Вход

Регистрация

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

 

= Мир MS Excel/Новый день при создании нового листа - Мир MS Excel

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

Excel 2016
Здравствуйте!

Хотелось бы помощи в создании макроса, поскольку сам новичок.

Задача: каждая новая, созданная страница должна копировать данные с предыдущей, а имя листа должно соответствовать текущей дате.

Например, текущий лист называется 17.06.2018, создаем следующий, он копирует данные с предыдущего листа и должен называться уже 18.06.2018
 
Ответить
СообщениеЗдравствуйте!

Хотелось бы помощи в создании макроса, поскольку сам новичок.

Задача: каждая новая, созданная страница должна копировать данные с предыдущей, а имя листа должно соответствовать текущей дате.

Например, текущий лист называется 17.06.2018, создаем следующий, он копирует данные с предыдущего листа и должен называться уже 18.06.2018
Автор - rocket
Дата добавления - 18.06.2018 в 01:05
_Boroda_ Дата: Понедельник, 18.06.2018, 01:45 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Так нужно?
В модуль книги

Не, не так. Не заметил про текущую дату. Это я сделал со следующей по порядку датой. Пусть остается. Файл 1689

А вот с текущей. Файл 1689_1
К сообщению приложен файл: 1689.xlsm (14.2 Kb) · 1689_1.xlsm (17.7 Kb)

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

Не, не так. Не заметил про текущую дату. Это я сделал со следующей по порядку датой. Пусть остается. Файл 1689

А вот с текущей. Файл 1689_1
Автор - _Boroda_
Дата добавления - 18.06.2018 в 01:45
rocket Дата: Понедельник, 18.06.2018, 03:24 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Да, благодарю! Это именно то, что было нужно.
 
Ответить
СообщениеДа, благодарю! Это именно то, что было нужно.
Автор - rocket
Дата добавления - 18.06.2018 в 03:24
rocket Дата: Понедельник, 18.06.2018, 13:48 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
_Boroda_, скажите, пожалуйста, а можно ли с учетом этого макроса сделать:

Ежедневно мне нужен расчет, но значение нужно брать с предыдущего дня.

Допустим сегодня лист 18.06.2018, у меня есть расчет: 18.06.2018 А2 - А3, но предыдущего дня/листа 17.06.2018.

И нужно чтобы каждый новый день это значение менялось автоматически.


Сообщение отредактировал rocket - Понедельник, 18.06.2018, 13:49
 
Ответить
Сообщение_Boroda_, скажите, пожалуйста, а можно ли с учетом этого макроса сделать:

Ежедневно мне нужен расчет, но значение нужно брать с предыдущего дня.

Допустим сегодня лист 18.06.2018, у меня есть расчет: 18.06.2018 А2 - А3, но предыдущего дня/листа 17.06.2018.

И нужно чтобы каждый новый день это значение менялось автоматически.
Автор - rocket
Дата добавления - 18.06.2018 в 13:48
_Boroda_ Дата: Понедельник, 18.06.2018, 14:10 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
- Прочитайте Правила форума
- Приложите файл с исходными данными и желаемым результатом (можно вручную) в формате Excel размером до 100кб согласно п.3 Правил форума

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение- Прочитайте Правила форума
- Приложите файл с исходными данными и желаемым результатом (можно вручную) в формате Excel размером до 100кб согласно п.3 Правил форума
Автор - _Boroda_
Дата добавления - 18.06.2018 в 14:10
rocket Дата: Понедельник, 18.06.2018, 17:42 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
_Boroda_,
К сообщению приложен файл: 2121.xlsm (25.8 Kb)
 
Ответить
Сообщение_Boroda_,
Автор - rocket
Дата добавления - 18.06.2018 в 17:42
RAN Дата: Понедельник, 18.06.2018, 20:42 | Сообщение № 7
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Цитата rocket, ()
сделать в формуле (F3-'16.06.2018'!P3) динамическое измнение даты

То, что имя листа внешне похоже на дату, не делает его датой.
вам нужна формула, которая проверяет имя листа, делает из него текст предыдущей даты, находит подходящий лист, и оттуда тянет данные.
Этажа 4, или 5.

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение
Цитата rocket, ()
сделать в формуле (F3-'16.06.2018'!P3) динамическое измнение даты

То, что имя листа внешне похоже на дату, не делает его датой.
вам нужна формула, которая проверяет имя листа, делает из него текст предыдущей даты, находит подходящий лист, и оттуда тянет данные.
Этажа 4, или 5.
Автор - RAN
Дата добавления - 18.06.2018 в 20:42
_Boroda_ Дата: Понедельник, 18.06.2018, 21:06 | Сообщение № 8
Группа: Админы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
rocket, как Вы думаете, в Вашем приложенном файле за реальное время (1-2 минуты) можно разобраться? Что, куда, откуда должно тянуться?
Нет, все в принципе понятно, что из предыдущего листа, о чем Андрей выше и написал. Но что конкретно? (с)
Приложите нормальный файл, в котором четко пропишите - в эту ячейку нужно вытянуть данные из того листа, а в это - сумму из этих листов

*До меня как-то только сейчас дошло - название темы "Новый день при создании нового листа". Это что ж получается - как только создаем новый лист, так сразу же наступает новый день? :D

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщениеrocket, как Вы думаете, в Вашем приложенном файле за реальное время (1-2 минуты) можно разобраться? Что, куда, откуда должно тянуться?
Нет, все в принципе понятно, что из предыдущего листа, о чем Андрей выше и написал. Но что конкретно? (с)
Приложите нормальный файл, в котором четко пропишите - в эту ячейку нужно вытянуть данные из того листа, а в это - сумму из этих листов

*До меня как-то только сейчас дошло - название темы "Новый день при создании нового листа". Это что ж получается - как только создаем новый лист, так сразу же наступает новый день? :D
Автор - _Boroda_
Дата добавления - 18.06.2018 в 21:06
rocket Дата: Вторник, 19.06.2018, 00:05 | Сообщение № 9
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
_Boroda_, философский вопрос.

Я добавил значения и добавил некоторые формулы (по-дилетантски конечно, но я учусь)

Мне для подсчета дневного прироста, нужно прирост первой смены высчитывать исходя из капитализации 3 смены предыдущего дня.

Так вроде корректней звучит, но это первая цель. А далее я хочу высчитывать прирост капитализации каждого направления относительно динамики курса и количества монет.
К сообщению приложен файл: 2121-1-.xlsm (28.7 Kb)


Сообщение отредактировал rocket - Вторник, 19.06.2018, 00:06
 
Ответить
Сообщение_Boroda_, философский вопрос.

Я добавил значения и добавил некоторые формулы (по-дилетантски конечно, но я учусь)

Мне для подсчета дневного прироста, нужно прирост первой смены высчитывать исходя из капитализации 3 смены предыдущего дня.

Так вроде корректней звучит, но это первая цель. А далее я хочу высчитывать прирост капитализации каждого направления относительно динамики курса и количества монет.
Автор - rocket
Дата добавления - 19.06.2018 в 00:05
rocket Дата: Вторник, 19.06.2018, 00:07 | Сообщение № 10
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
_Boroda_, ну и все это естественно хочется, чтобы автоматизировано было.
 
Ответить
Сообщение_Boroda_, ну и все это естественно хочется, чтобы автоматизировано было.
Автор - rocket
Дата добавления - 19.06.2018 в 00:07
boa Дата: Вторник, 19.06.2018, 08:48 | Сообщение № 11
Группа: Друзья
Ранг: Ветеран
Сообщений: 559
Репутация: 167 ±
Замечаний: 0% ±

365
rocket,
Так хочется?
Код
=$F$3-INDIRECT("'"&TEXT(DATEVALUE(MID(CELL("filename");SEARCH("]";CELL("filename"))+1;LEN(CELL("filename"))))-1;"dd.mm.yyyy")&"'!P3";1)
К сообщению приложен файл: 7777503.xlsm (26.1 Kb)



Сообщение отредактировал boa - Вторник, 19.06.2018, 13:26
 
Ответить
Сообщениеrocket,
Так хочется?
Код
=$F$3-INDIRECT("'"&TEXT(DATEVALUE(MID(CELL("filename");SEARCH("]";CELL("filename"))+1;LEN(CELL("filename"))))-1;"dd.mm.yyyy")&"'!P3";1)
Автор - boa
Дата добавления - 19.06.2018 в 08:48
_Boroda_ Дата: Вторник, 19.06.2018, 13:40 | Сообщение № 12
Группа: Админы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
rocket, у Вас в книге всегда листы по порядку будут? Например, пропусков листов с датами выходных и праздников не будет? Если будут, то формула будет посложнее.
Если нет, то можно так
Код
=F3-ДВССЫЛ(ТЕКСТ(ПРАВБ(ЯЧЕЙКА("filename");10)-1;"'ДД.ММ.ГГГГ'!P\3"))

А вообще я бы сразу макросом все писал при создании нового листа
[vba]
Код
Private Sub Workbook_NewSheet(ByVal Sh As Object)
    in_ = Sh.Index - 1
    Application.ScreenUpdating = 0
    Application.DisplayAlerts = 0
    Sh.Delete
    Sheets(in_).Copy after:=Sheets(in_)
    On Error Resume Next
    With Sheets(in_ + 1)
        .Name = Format(Date + 0, "DD.MM.YYYY")
        If Err Then
            .Delete
            MsgBox "Остановись, кто-то уже это сделал"
        Else
            .Range("G20").FormulaLocal = "=F3-'" & Sheets(in_).Name & "'!P3"
        End If
    End With
    Application.DisplayAlerts = 1
    Application.ScreenUpdating = 1
End Sub
[/vba]
И не совсем понятно почему у Вас в пожеланиях Клетка G20 —
Цитата
сделать в формуле (F3-'16.06.2018'!P3)
- для строки 20 разницу строк 3. Но дело Ваше
К сообщению приложен файл: 2121-1-2.xlsm (35.2 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщениеrocket, у Вас в книге всегда листы по порядку будут? Например, пропусков листов с датами выходных и праздников не будет? Если будут, то формула будет посложнее.
Если нет, то можно так
Код
=F3-ДВССЫЛ(ТЕКСТ(ПРАВБ(ЯЧЕЙКА("filename");10)-1;"'ДД.ММ.ГГГГ'!P\3"))

А вообще я бы сразу макросом все писал при создании нового листа
[vba]
Код
Private Sub Workbook_NewSheet(ByVal Sh As Object)
    in_ = Sh.Index - 1
    Application.ScreenUpdating = 0
    Application.DisplayAlerts = 0
    Sh.Delete
    Sheets(in_).Copy after:=Sheets(in_)
    On Error Resume Next
    With Sheets(in_ + 1)
        .Name = Format(Date + 0, "DD.MM.YYYY")
        If Err Then
            .Delete
            MsgBox "Остановись, кто-то уже это сделал"
        Else
            .Range("G20").FormulaLocal = "=F3-'" & Sheets(in_).Name & "'!P3"
        End If
    End With
    Application.DisplayAlerts = 1
    Application.ScreenUpdating = 1
End Sub
[/vba]
И не совсем понятно почему у Вас в пожеланиях Клетка G20 —
Цитата
сделать в формуле (F3-'16.06.2018'!P3)
- для строки 20 разницу строк 3. Но дело Ваше
Автор - _Boroda_
Дата добавления - 19.06.2018 в 13:40
rocket Дата: Вторник, 19.06.2018, 14:21 | Сообщение № 13
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
_Boroda_, о, вот макрос годный. Благодарю!

Данное пожелание, чтобы посмотреть и разобраться по какому принципу что и как работает.
 
Ответить
Сообщение_Boroda_, о, вот макрос годный. Благодарю!

Данное пожелание, чтобы посмотреть и разобраться по какому принципу что и как работает.
Автор - rocket
Дата добавления - 19.06.2018 в 14:21
rocket Дата: Среда, 20.06.2018, 12:33 | Сообщение № 14
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
_Boroda_, функционал excel позволяет копировать значения ячеек одного файла в другой при условии, что оба файла архиве?
 
Ответить
Сообщение_Boroda_, функционал excel позволяет копировать значения ячеек одного файла в другой при условии, что оба файла архиве?
Автор - rocket
Дата добавления - 20.06.2018 в 12:33
_Boroda_ Дата: Среда, 20.06.2018, 13:02 | Сообщение № 15
Группа: Админы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Возможности функционала Excel зависят только от степени извращенности пользователя.
Но
1. вопрос непонятен;
2. это уже совсем другая тема

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеВозможности функционала Excel зависят только от степени извращенности пользователя.
Но
1. вопрос непонятен;
2. это уже совсем другая тема
Автор - _Boroda_
Дата добавления - 20.06.2018 в 13:02
rocket Дата: Четверг, 21.06.2018, 18:08 | Сообщение № 16
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
_Boroda_, уточню вопрос, несколько человек на разных операторах заполняют таблицы, сервер один, файлы excel в архивах и под паролем, нужно результаты подсчета таблицы одного файла автоматически экспортировать в таблицу другого файла, чтобы заполнение таблиц занимало как можно меньше времени.
 
Ответить
Сообщение_Boroda_, уточню вопрос, несколько человек на разных операторах заполняют таблицы, сервер один, файлы excel в архивах и под паролем, нужно результаты подсчета таблицы одного файла автоматически экспортировать в таблицу другого файла, чтобы заполнение таблиц занимало как можно меньше времени.
Автор - rocket
Дата добавления - 21.06.2018 в 18:08
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Новый день при создании нового листа (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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