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

Вход

Регистрация

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

 

= Мир MS Excel/Создать макрос для очищения строки - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создать макрос для очищения строки (Формулы)
Создать макрос для очищения строки
deliriousss Дата: Четверг, 12.12.2013, 00:16 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Ребята, очень нужна ваша помощь, никак не получается самой справиться.
Нужно написать макрос, который будет очищать строку, в одной из ячеек которой стоит курсор. Ячейка, естественно, может быть абсолютно любая.
Помогите пожалуйста. Заранее благодарна.
 
Ответить
СообщениеРебята, очень нужна ваша помощь, никак не получается самой справиться.
Нужно написать макрос, который будет очищать строку, в одной из ячеек которой стоит курсор. Ячейка, естественно, может быть абсолютно любая.
Помогите пожалуйста. Заранее благодарна.

Автор - deliriousss
Дата добавления - 12.12.2013 в 00:16
SergeyKorotun Дата: Четверг, 12.12.2013, 01:10 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 301
Репутация: 15 ±
Замечаний: 0% ±

Excel 2007
[vba]
Код
Sub ClearActiveRows()
Dim r As Long
r = ActiveCell.Row
Application.ScreenUpdating = False
Rows(r & ":" & r).Clear
Application.ScreenUpdating = True
End Sub
[/vba]


Сообщение отредактировал SergeyKorotun - Четверг, 12.12.2013, 01:10
 
Ответить
Сообщение[vba]
Код
Sub ClearActiveRows()
Dim r As Long
r = ActiveCell.Row
Application.ScreenUpdating = False
Rows(r & ":" & r).Clear
Application.ScreenUpdating = True
End Sub
[/vba]

Автор - SergeyKorotun
Дата добавления - 12.12.2013 в 01:10
_Boroda_ Дата: Четверг, 12.12.2013, 09:54 | Сообщение № 3
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Не совсем понятно, что значит "очищать". Предположу, что стирать значения, а форматы оставлять.
[vba]
Код
Sub tt()
On Error Resume Next
Rows(Selection.Row).ClearContents
On Error GoTo 0
End Sub
[/vba]
Если форматы тоже убивать, то примерно так, как выше написал SergeyKorotun,
[vba]
Код
Sub tt()
On Error Resume Next
Rows(Selection.Row).Clear
On Error GoTo 0
End Sub
[/vba]
Обработчик ошибок на случай, если при запуске макроса выделена/ы не ячейка/и, а, например, фигура.


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеНе совсем понятно, что значит "очищать". Предположу, что стирать значения, а форматы оставлять.
[vba]
Код
Sub tt()
On Error Resume Next
Rows(Selection.Row).ClearContents
On Error GoTo 0
End Sub
[/vba]
Если форматы тоже убивать, то примерно так, как выше написал SergeyKorotun,
[vba]
Код
Sub tt()
On Error Resume Next
Rows(Selection.Row).Clear
On Error GoTo 0
End Sub
[/vba]
Обработчик ошибок на случай, если при запуске макроса выделена/ы не ячейка/и, а, например, фигура.

Автор - _Boroda_
Дата добавления - 12.12.2013 в 09:54
archi102 Дата: Среда, 29.01.2014, 22:22 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Приветствую, у меня есть вопрос по написанию макроса( или альтернативные способы) для таблицы расчета стоимости Шкафа купе, долго я вникал как это сделать, ни один из знакомых мне программистов не посоветовал мне изучить VBA, все утверждали что нереально, но я сделал, оказалось все элементарно, теперь же возникла необходимость добавить маленькую функцию, кнопку чтоб при ее нажатие очищались нужные ячейки. Просто я думаю что освоение VBA, это не одного дня дело, а кнопка нужна), буду благодарен за любую помощь или дельный совет.

[admin]Даю дельный совет: Читайте правила форума, пока я Вас не забанил[/admin]
 
Ответить
СообщениеПриветствую, у меня есть вопрос по написанию макроса( или альтернативные способы) для таблицы расчета стоимости Шкафа купе, долго я вникал как это сделать, ни один из знакомых мне программистов не посоветовал мне изучить VBA, все утверждали что нереально, но я сделал, оказалось все элементарно, теперь же возникла необходимость добавить маленькую функцию, кнопку чтоб при ее нажатие очищались нужные ячейки. Просто я думаю что освоение VBA, это не одного дня дело, а кнопка нужна), буду благодарен за любую помощь или дельный совет.

[admin]Даю дельный совет: Читайте правила форума, пока я Вас не забанил[/admin]

Автор - archi102
Дата добавления - 29.01.2014 в 22:22
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создать макрос для очищения строки (Формулы)
  • Страница 1 из 1
  • 1
Поиск:

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