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

Вход

Регистрация

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

 

= Мир MS Excel/обновление данных с привязкой к текущей дате - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » обновление данных с привязкой к текущей дате (Макросы/Sub)
обновление данных с привязкой к текущей дате
adamm1603 Дата: Вторник, 08.11.2016, 08:30 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 89
Репутация: 1 ±
Замечаний: 20% ±

Excel 2013
Доброго времени форумчане! Помогите с макросом, суть обновить ячейку, при условии текущей даты, на примере: в строке 1 расположены даты, нужно обновить (скопировать ячейки из J2 в область J3:J18) в столбце, только с текущей датой 10.11.16. Пытался записать макроредактрором, но не получилось(
К сообщению приложен файл: 9519457.xlsx(12Kb)
 
Ответить
СообщениеДоброго времени форумчане! Помогите с макросом, суть обновить ячейку, при условии текущей даты, на примере: в строке 1 расположены даты, нужно обновить (скопировать ячейки из J2 в область J3:J18) в столбце, только с текущей датой 10.11.16. Пытался записать макроредактрором, но не получилось(

Автор - adamm1603
Дата добавления - 08.11.2016 в 08:30
Pelena Дата: Вторник, 08.11.2016, 08:54 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 9839
Репутация: 2252 ±
Замечаний: 0% ±

Excel 2010 & Mac Excel 2011
Здравствуйте. Формулой не подойдёт?
Код
=ЕСЛИ(A$1=СЕГОДНЯ();N3;"")

Если надо оставить и все предыдущие, то <=
К сообщению приложен файл: 6471559.xlsx(12Kb)


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЗдравствуйте. Формулой не подойдёт?
Код
=ЕСЛИ(A$1=СЕГОДНЯ();N3;"")

Если надо оставить и все предыдущие, то <=

Автор - Pelena
Дата добавления - 08.11.2016 в 08:54
adamm1603 Дата: Вторник, 08.11.2016, 08:59 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 89
Репутация: 1 ±
Замечаний: 20% ±

Excel 2013
попробую
 
Ответить
Сообщениепопробую

Автор - adamm1603
Дата добавления - 08.11.2016 в 08:59
adamm1603 Дата: Вторник, 08.11.2016, 10:57 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 89
Репутация: 1 ±
Замечаний: 20% ±

Excel 2013
желательно конечно макрос
 
Ответить
Сообщениежелательно конечно макрос

Автор - adamm1603
Дата добавления - 08.11.2016 в 10:57
adamm1603 Дата: Вторник, 08.11.2016, 11:00 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 89
Репутация: 1 ±
Замечаний: 20% ±

Excel 2013
Извиняюсь, опять баг, троят сообщения
 
Ответить
СообщениеИзвиняюсь, опять баг, троят сообщения

Автор - adamm1603
Дата добавления - 08.11.2016 в 11:00
adamm1603 Дата: Вторник, 08.11.2016, 11:06 | Сообщение № 6
Группа: Пользователи
Ранг: Участник
Сообщений: 89
Репутация: 1 ±
Замечаний: 20% ±

Excel 2013
Данную тему открыл: http://www.planetaexcel.ru/forum....e701677
 
Ответить
СообщениеДанную тему открыл: http://www.planetaexcel.ru/forum....e701677

Автор - adamm1603
Дата добавления - 08.11.2016 в 11:06
SLAVICK Дата: Вторник, 08.11.2016, 11:32 | Сообщение № 7
Группа: Модераторы
Ранг: Старожил
Сообщений: 1834
Репутация: 613 ±
Замечаний: 0% ±

2007,2010,2013,2016
так пойдет?:
[vba]
Код
Private Sub Workbook_Open()
For Each c In Sheets("Лист1").[a1:k1]
    If CDate(c) = Date Then
        c.Offset(1, 0).Copy 'Копируем ячейку на одну строку ниже заголовка
        Range(c.Offset(2, 0), c.Offset(17, 0)).PasteSpecial xlPasteFormulas 'Вставляем данные в ячейки 2-17строк ниже заголовка
        Exit For
    End If
Next
End Sub
[/vba]
макрос при срабатывает при открытии файла. Смотрит данные в 1-й строке и если находит сегодняшнюю дату - копирует формулу.
К сообщению приложен файл: 9519457.xlsm(17Kb)


Иногда все проще чем кажется с первого взгляда.
 
Ответить
Сообщениетак пойдет?:
[vba]
Код
Private Sub Workbook_Open()
For Each c In Sheets("Лист1").[a1:k1]
    If CDate(c) = Date Then
        c.Offset(1, 0).Copy 'Копируем ячейку на одну строку ниже заголовка
        Range(c.Offset(2, 0), c.Offset(17, 0)).PasteSpecial xlPasteFormulas 'Вставляем данные в ячейки 2-17строк ниже заголовка
        Exit For
    End If
Next
End Sub
[/vba]
макрос при срабатывает при открытии файла. Смотрит данные в 1-й строке и если находит сегодняшнюю дату - копирует формулу.

Автор - SLAVICK
Дата добавления - 08.11.2016 в 11:32
adamm1603 Дата: Вторник, 08.11.2016, 12:20 | Сообщение № 8
Группа: Пользователи
Ранг: Участник
Сообщений: 89
Репутация: 1 ±
Замечаний: 20% ±

Excel 2013
Минутку протестирую
 
Ответить
СообщениеМинутку протестирую

Автор - adamm1603
Дата добавления - 08.11.2016 в 12:20
adamm1603 Дата: Вторник, 08.11.2016, 12:33 | Сообщение № 9
Группа: Пользователи
Ранг: Участник
Сообщений: 89
Репутация: 1 ±
Замечаний: 20% ±

Excel 2013
SLAVICK спасибо всё работает, у меня вопрос если я меняю диапазон дат, мне следует изменить [a1:k1], остальное не трогаю?
 
Ответить
СообщениеSLAVICK спасибо всё работает, у меня вопрос если я меняю диапазон дат, мне следует изменить [a1:k1], остальное не трогаю?

Автор - adamm1603
Дата добавления - 08.11.2016 в 12:33
SLAVICK Дата: Вторник, 08.11.2016, 12:39 | Сообщение № 10
Группа: Модераторы
Ранг: Старожил
Сообщений: 1834
Репутация: 613 ±
Замечаний: 0% ±

2007,2010,2013,2016
мне следует изменить [a1:k1], остальное не трогаю?

Если формула для копирования сразу под шапкой - да. Пробуйте - получится. ;) .


Иногда все проще чем кажется с первого взгляда.
 
Ответить
Сообщение
мне следует изменить [a1:k1], остальное не трогаю?

Если формула для копирования сразу под шапкой - да. Пробуйте - получится. ;) .

Автор - SLAVICK
Дата добавления - 08.11.2016 в 12:39
adamm1603 Дата: Вторник, 08.11.2016, 13:25 | Сообщение № 11
Группа: Пользователи
Ранг: Участник
Сообщений: 89
Репутация: 1 ±
Замечаний: 20% ±

Excel 2013
SLAVICK всё работает!!! Спасибо!!!
 
Ответить
СообщениеSLAVICK всё работает!!! Спасибо!!!

Автор - adamm1603
Дата добавления - 08.11.2016 в 13:25
adamm1603 Дата: Вторник, 08.11.2016, 15:29 | Сообщение № 12
Группа: Пользователи
Ранг: Участник
Сообщений: 89
Репутация: 1 ±
Замечаний: 20% ±

Excel 2013
SLAVICK, извиняюсь, что сразу не спросил, можете подкорректировать код, после вставки его нужно заменить на значения, пробовал сам вставить код:
[vba]
Код
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
[/vba]
но ничего не вышло
 
Ответить
СообщениеSLAVICK, извиняюсь, что сразу не спросил, можете подкорректировать код, после вставки его нужно заменить на значения, пробовал сам вставить код:
[vba]
Код
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
[/vba]
но ничего не вышло

Автор - adamm1603
Дата добавления - 08.11.2016 в 15:29
SLAVICK Дата: Вторник, 08.11.2016, 18:15 | Сообщение № 13
Группа: Модераторы
Ранг: Старожил
Сообщений: 1834
Репутация: 613 ±
Замечаний: 0% ±

2007,2010,2013,2016
Можно так:
[vba]
Код
Private Sub Workbook_Open()
For Each c In Sheets("Лист1").[a1:k1]
    If CDate(c) = Date Then
        c.Offset(1, 0).Copy 'Копируем ячейку на одну строку ниже заголовка
        With Range(c.Offset(2, 0), c.Offset(17, 0))
           .PasteSpecial xlPasteFormulas 'Вставляем данные в ячейки 2-17строк ниже заголовка
            Calculate
           .Copy: .PasteSpecial xlPasteValues
        End With
        Exit For
    End If
Next
End Sub
[/vba]
К сообщению приложен файл: 9519457-1-.xlsm(17Kb)


Иногда все проще чем кажется с первого взгляда.
 
Ответить
СообщениеМожно так:
[vba]
Код
Private Sub Workbook_Open()
For Each c In Sheets("Лист1").[a1:k1]
    If CDate(c) = Date Then
        c.Offset(1, 0).Copy 'Копируем ячейку на одну строку ниже заголовка
        With Range(c.Offset(2, 0), c.Offset(17, 0))
           .PasteSpecial xlPasteFormulas 'Вставляем данные в ячейки 2-17строк ниже заголовка
            Calculate
           .Copy: .PasteSpecial xlPasteValues
        End With
        Exit For
    End If
Next
End Sub
[/vba]

Автор - SLAVICK
Дата добавления - 08.11.2016 в 18:15
adamm1603 Дата: Среда, 09.11.2016, 04:50 | Сообщение № 14
Группа: Пользователи
Ранг: Участник
Сообщений: 89
Репутация: 1 ±
Замечаний: 20% ±

Excel 2013
Ешё раз спасибо
 
Ответить
СообщениеЕшё раз спасибо

Автор - adamm1603
Дата добавления - 09.11.2016 в 04:50
Мир MS Excel » Вопросы и решения » Вопросы по VBA » обновление данных с привязкой к текущей дате (Макросы/Sub)
Страница 1 из 11
Поиск:

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