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

Вход

Регистрация

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

 

= Мир MS Excel/Очистка строки от значений без удаления формул - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Очистка строки от значений без удаления формул (Макросы/Sub)
Очистка строки от значений без удаления формул
dmtgrs Дата: Среда, 26.12.2018, 10:58 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Помогите пожалуйста
Нашел макрос (на сколько правильный не знаю, ибо совсем новичок), который вставляет скопированную строку, но мне нужно чтобы после вставки строки во всех ячейках очищались значения, а формулы оставались.
[vba]
Код
Sub Добавление_строки()

    Rows(ActiveCell.Row).Copy
    Rows(ActiveCell.Row).Insert Shift:=x1Down

End Sub
[/vba]
К сообщению приложен файл: __.xlsm(66.2 Kb)


Сообщение отредактировал dmtgrs - Среда, 26.12.2018, 11:01
 
Ответить
СообщениеПомогите пожалуйста
Нашел макрос (на сколько правильный не знаю, ибо совсем новичок), который вставляет скопированную строку, но мне нужно чтобы после вставки строки во всех ячейках очищались значения, а формулы оставались.
[vba]
Код
Sub Добавление_строки()

    Rows(ActiveCell.Row).Copy
    Rows(ActiveCell.Row).Insert Shift:=x1Down

End Sub
[/vba]

Автор - dmtgrs
Дата добавления - 26.12.2018 в 10:58
Roman777 Дата: Среда, 26.12.2018, 12:00 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 929
Репутация: 117 ±
Замечаний: 0% ±

Excel 2007, Excel 2013
dmtgrs, Вы имели в ввиду такое действие?
[vba]
Код
Sub Добавление_строки()
Dim r As Range
    Application.ScreenUpdating = False
    Rows(ActiveCell.Row).Copy
    Rows(ActiveCell.Row).Insert Shift:=x1Down
    With ActiveSheet.Rows(ActiveCell.Row + 1)
        For Each r In .SpecialCells(xlCellTypeConstants)
            r = ""
        Next r
    End With
    Application.ScreenUpdating = True
End Sub
[/vba]


Много чего не знаю!!!!

Сообщение отредактировал Roman777 - Среда, 26.12.2018, 12:01
 
Ответить
Сообщениеdmtgrs, Вы имели в ввиду такое действие?
[vba]
Код
Sub Добавление_строки()
Dim r As Range
    Application.ScreenUpdating = False
    Rows(ActiveCell.Row).Copy
    Rows(ActiveCell.Row).Insert Shift:=x1Down
    With ActiveSheet.Rows(ActiveCell.Row + 1)
        For Each r In .SpecialCells(xlCellTypeConstants)
            r = ""
        Next r
    End With
    Application.ScreenUpdating = True
End Sub
[/vba]

Автор - Roman777
Дата добавления - 26.12.2018 в 12:00
dmtgrs Дата: Среда, 26.12.2018, 12:23 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Класс!!! Огромнейшее спасибо!
 
Ответить
СообщениеКласс!!! Огромнейшее спасибо!

Автор - dmtgrs
Дата добавления - 26.12.2018 в 12:23
_Boroda_ Дата: Среда, 26.12.2018, 12:25 | Сообщение № 4
Группа: Модераторы
Ранг: Местный житель
Сообщений: 13928
Репутация: 5635 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Еще вариант
[vba]
Код
Sub DobStr()
on error resume next
    With Rows(ActiveCell.Row)
        .Copy
        .Insert Shift:=x1Down
        .SpecialCells(xlCellTypeConstants, 23).ClearContents
    End With
End Sub
[/vba]

*Что-то у меня Ваш файл глючит


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЕще вариант
[vba]
Код
Sub DobStr()
on error resume next
    With Rows(ActiveCell.Row)
        .Copy
        .Insert Shift:=x1Down
        .SpecialCells(xlCellTypeConstants, 23).ClearContents
    End With
End Sub
[/vba]

*Что-то у меня Ваш файл глючит

Автор - _Boroda_
Дата добавления - 26.12.2018 в 12:25
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Очистка строки от значений без удаления формул (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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