Как автоматически формировать дату при копировании строки

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как автоматически формировать дату при копировании строки (Формулы/Formulas)

privet2000

Дата: Среда, 16.05.2018, 10:42 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 24

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

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

Excel 2016

Если выделить целиком строку или столбец с датой CTRL+C затем СTRL+"+" то на новой строке (столбце) вставится та же дата, а нужно +1
ПС: выделяю строку целиком для автоматического строительства графика.

Ответить

sboy

Дата: Среда, 16.05.2018, 11:15 | Сообщение № 2

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

Ранг: Участник клуба

Сообщений: 2566

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

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

Excel 2010

Добрый день.
Выделяете ячейку с "предыдущей" датой и протягиваете ее за правый нижний угол

Яндекс: 410016850021169

Ответить

privet2000

Дата: Среда, 16.05.2018, 11:20 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 24

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

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

Excel 2016

Цитата sboy, 16.05.2018 в 11:15, в сообщении № 2 ()

Выделяете ячейку с "предыдущей" датой и протягиваете ее за правый нижний угол

Благодарю, но не автоматизировано ))

Ответить

_Boroda_

Дата: Среда, 16.05.2018, 11:20 | Сообщение № 4

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16674

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

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

2003; 2007; 2010; 2013 RUS

Потом где-то в свободном месте пишете 1 (единицу), копируете ее, выделяете ту строку, что вставилась, жмете F5 - Выделить - Константы , переходите в специальную вставку (Контрл+Альт+V), ставите точку на "Значения" и галку на "Сложить" - ОК

ВСе то же самое макросом
[vba]

Код

Sub VstStr()
    Dim d_ As Range, z_ As Range
    Application.ScreenUpdating = 0
    Set d_ = Selection
    With d_
        If .Count > 1 Then
            .Copy
            .Insert Shift:=xlDown
            Set z_ = .SpecialCells(xlLastCell).Offset(1)
            With z_
                .Value = 1
                .Copy
            End With
            On Error Resume Next
            .SpecialCells(xlCellTypeConstants, 23).PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd
            On Error GoTo 0
            z_.EntireRow.Delete
            .Cells(1).Select
        End If
    End With
    Application.ScreenUpdating = 1
End Sub

[/vba]

К сообщению приложен файл: 59832.xlsm (16.8 Kb)

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

Ответить

Страница 1 из 1
1