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

Вход

Регистрация

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

 

= Мир MS Excel/Как автоматически формировать дату при копировании строки - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как автоматически формировать дату при копировании строки (Формулы/Formulas)
Как автоматически формировать дату при копировании строки
privet2000 Дата: Среда, 16.05.2018, 10:42 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - privet2000
Дата добавления - 16.05.2018 в 10:42
sboy Дата: Среда, 16.05.2018, 11:15 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 2020
Репутация: 578 ±
Замечаний: 0% ±

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

Автор - sboy
Дата добавления - 16.05.2018 в 11:15
privet2000 Дата: Среда, 16.05.2018, 11:20 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация: 0 ±
Замечаний: 0% ±

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

Благодарю, но не автоматизировано ))
 
Ответить
Сообщение
Выделяете ячейку с "предыдущей" датой и протягиваете ее за правый нижний угол

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

Автор - privet2000
Дата добавления - 16.05.2018 в 11:20
_Boroda_ Дата: Среда, 16.05.2018, 11:20 | Сообщение № 4
Группа: Модераторы
Ранг: Местный житель
Сообщений: 12772
Репутация: 5232 ±
Замечаний: 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 (единицу), копируете ее, выделяете ту строку, что вставилась, жмете 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]

Автор - _Boroda_
Дата добавления - 16.05.2018 в 11:20
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как автоматически формировать дату при копировании строки (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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