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

Вход

Регистрация

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

 

= Мир MS Excel/Стирание группы ячеек по условию - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Стирание группы ячеек по условию
art Дата: Среда, 01.10.2014, 13:36 | Сообщение № 1
Группа: Гости
Помогите пожалуйста, нужен макрос, который будет стирать группу ячеек в большом массиве по условию, т.е. например, если в ячейке А1 стоит число 1, то стираются ячейки В1:С2, если стоит число 2, то стираются ячейки D1:E2 и т.д.
 
Ответить
СообщениеПомогите пожалуйста, нужен макрос, который будет стирать группу ячеек в большом массиве по условию, т.е. например, если в ячейке А1 стоит число 1, то стираются ячейки В1:С2, если стоит число 2, то стираются ячейки D1:E2 и т.д.

Автор - art
Дата добавления - 01.10.2014 в 13:36
0beorn Дата: Среда, 01.10.2014, 15:28 | Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: -5 ±
Замечаний: 0% ±

Excel 2010
Хм.. ну как поставлена задача это:
Sub Gmmhmm()
Dim sdvig As Integer
sdvig = Cells(1, 1)
Range(Cells(1, 1).Offset(0, sdvig * 2 - 1), Cells(1, 1).Offset(1, sdvig * 2)).Clear
End Sub


Сообщение отредактировал 0beorn - Среда, 01.10.2014, 15:29
 
Ответить
СообщениеХм.. ну как поставлена задача это:
Sub Gmmhmm()
Dim sdvig As Integer
sdvig = Cells(1, 1)
Range(Cells(1, 1).Offset(0, sdvig * 2 - 1), Cells(1, 1).Offset(1, sdvig * 2)).Clear
End Sub

Автор - 0beorn
Дата добавления - 01.10.2014 в 15:28
art Дата: Среда, 01.10.2014, 18:33 | Сообщение № 3
Группа: Гости
Это то, что нужно, спасибо большое hands
 
Ответить
СообщениеЭто то, что нужно, спасибо большое hands

Автор - art
Дата добавления - 01.10.2014 в 18:33
  • Страница 1 из 1
  • 1
Поиск:

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