макрос добавления строк в таблицу до сегодняшней даты

Дата: Пятница, 11.02.2022, 12:37 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 341

Репутация: 0 ±

Замечаний: 60% ±

Excel 2013

уважаемые знатоки напишите пожалуйста макрос который будет добавлять автоматом строки при открытии книги до сегодняшней даты (столбец дата) с сохранением форматирования и формул вышерасположенных строк

К сообщению приложен файл: 8086540.xlsb (11.2 Kb)

Дата: Пятница, 11.02.2022, 13:18 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 9005

Репутация: 2369 ±

Замечаний: 0% ±

Excel 2010

в модуль книги,
как-то так примерно
[vba]

Код

Private Sub Workbook_Open()
    Dim d As Double
    a = Evaluate("=MAX(Таблица2[Дата])")
    b = Evaluate("=MAX(ROW(Таблица2[Дата]))")
    c = Evaluate("=MIN(COLUMN(Таблица2[Дата]))")
    d = Date
    e = d - a
    If e > 0 Then
        For f = 1 To e
            Sheets("Лист2").Cells(b + f, c) = a + f
        Next
    End If
End Sub

[/vba]

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Пятница, 11.02.2022, 13:19

Дата: Пятница, 11.02.2022, 14:30 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 341

Репутация: 0 ±

Замечаний: 60% ±

Excel 2013

Nic70y, спасибо
а куда добавить формат даты?
Range("А:AA" & r_).NumberFormat = "ДД.ММ.ГГГГ"

Дата: Пятница, 11.02.2022, 14:48 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 9005

Репутация: 2369 ±

Замечаний: 0% ±

Excel 2010

Цитата micholap_denis, 11.02.2022 в 14:30, в сообщении № 3 (

)

куда добавить формат даты?

ни куда.
умная таблица - умная, сама поймет.

ЮMoney 41001841029809

Дата: Пятница, 11.02.2022, 15:05 | Сообщение № 5

Группа: Проверенные

Ранг: Обитатель

Сообщений: 341

Репутация: 0 ±

Замечаний: 60% ±

Excel 2013

Nic70y, спасибо

Дата: Пятница, 11.02.2022, 15:44 | Сообщение № 6

Группа: Проверенные

Ранг: Обитатель

Сообщений: 341

Репутация: 0 ±

Замечаний: 60% ±

Excel 2013

Nic70y, а если не при открытии книги нужно чтоб срабатывал макрос ?
либо кнопкой либо альт+ф8

Дата: Пятница, 11.02.2022, 15:51 | Сообщение № 7

Группа: Друзья

Ранг: Экселист

Сообщений: 9005

Репутация: 2369 ±

Замечаний: 0% ±

Excel 2010

вместо

Цитата Nic70y, 11.02.2022 в 13:18, в сообщении № 2 (

)

Private Sub Workbook_Open()

[vba]

Код

Sub имя_макроса()

[/vba]в стандартный модуль

К сообщению приложен файл: 3202021.gif (11.0 Kb) · 6703627.gif (58.8 Kb)

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Пятница, 11.02.2022, 15:52

Дата: Пятница, 18.02.2022, 00:00 | Сообщение № 8

Группа: Проверенные

Ранг: Обитатель

Сообщений: 341

Репутация: 0 ±

Замечаний: 60% ±

Excel 2013

Nic70y, спасибо.
А подскажите ещё : что добавить и куда если понадобиться чтоб при добавлении строки до сегодняшней даты вставлялись значения из предыдущей строки( за искл даты конечно)

Дата: Пятница, 18.02.2022, 07:59 | Сообщение № 9

Группа: Друзья

Ранг: Экселист

Сообщений: 9005

Репутация: 2369 ±

Замечаний: 0% ±

Excel 2010

на пример 2-й столбец таблицы:
[vba]

Код

        For f = 1 To e
            Sheets("Лист2").Cells(b + f, c) = a + f
            Sheets("Лист2").Cells(b + f, c + 1) = Sheets("Лист2").Cells(b + f - 1, c + 1).Value
        Next

[/vba]должно работать, в файле не проверял.

ЮMoney 41001841029809

Дата: Пятница, 18.02.2022, 09:00 | Сообщение № 10

Группа: Проверенные

Ранг: Обитатель

Сообщений: 341

Репутация: 0 ±

Замечаний: 60% ±

Excel 2013

Nic70y, а если все значения в строке копировать при добавлении, а не только 2столбец?

Дата: Пятница, 18.02.2022, 09:14 | Сообщение № 11

Группа: Друзья

Ранг: Экселист

Сообщений: 9005

Репутация: 2369 ±

Замечаний: 0% ±

Excel 2010

micholap_denis, у вас же формулы кроме значений,
формулы в умной таблице сами копируются.

ЮMoney 41001841029809