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

Вход

Регистрация

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

 

= Мир MS Excel/Макрос на очистку ячейки если цвет НЕ белый - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос на очистку ячейки если цвет НЕ белый (Макросы/Sub)
Макрос на очистку ячейки если цвет НЕ белый
rash58 Дата: Пятница, 12.02.2016, 12:52 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
нужно написать макрос,который бы проверял цвет ячейки,если он не соответствует белому,то происходит просто очистка ячейки без смещения .
есть такой вариант -
[vba]
Код
Sub clear2()
Dim r As Range
Dim rgn As Range
Set rgn = Application.ActiveSheet.UsedRange

Cells.MergeCells = False

For Each r In rgn.Cells

If (r.Cells.Interior.ColorIndex <> -4142) And (r.Cells.Interior.ColorIndex <> 6) Then
r.Cells.ClearContents
End If

Next
End Sub
[/vba]

тут определенный диапазон задается,может можно попроще сделать?
[moder]Оформите код тегом (кнопка #)[/moder]


Сообщение отредактировал rash58 - Пятница, 12.02.2016, 16:03
 
Ответить
Сообщениенужно написать макрос,который бы проверял цвет ячейки,если он не соответствует белому,то происходит просто очистка ячейки без смещения .
есть такой вариант -
[vba]
Код
Sub clear2()
Dim r As Range
Dim rgn As Range
Set rgn = Application.ActiveSheet.UsedRange

Cells.MergeCells = False

For Each r In rgn.Cells

If (r.Cells.Interior.ColorIndex <> -4142) And (r.Cells.Interior.ColorIndex <> 6) Then
r.Cells.ClearContents
End If

Next
End Sub
[/vba]

тут определенный диапазон задается,может можно попроще сделать?
[moder]Оформите код тегом (кнопка #)[/moder]

Автор - rash58
Дата добавления - 12.02.2016 в 12:52
Wasilich Дата: Пятница, 12.02.2016, 13:25 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 878
Репутация: 222 ±
Замечаний: 0% ±

2003
может можно попроще сделать?
Что конкретно, надо то?
 
Ответить
Сообщение
может можно попроще сделать?
Что конкретно, надо то?

Автор - Wasilich
Дата добавления - 12.02.2016 в 13:25
rash58 Дата: Пятница, 12.02.2016, 16:05 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Что конкретно, надо то?

надо чтобы макрос очищал содержимое всех ячеек,если цвет не белый.
 
Ответить
Сообщение
Что конкретно, надо то?

надо чтобы макрос очищал содержимое всех ячеек,если цвет не белый.

Автор - rash58
Дата добавления - 12.02.2016 в 16:05
Wasilich Дата: Пятница, 12.02.2016, 16:14 | Сообщение № 4
Группа: Друзья
Ранг: Ветеран
Сообщений: 878
Репутация: 222 ±
Замечаний: 0% ±

2003
Так проверьте
[vba]
Код
Sub clear2()
Dim r As Range
Dim rgn As Range
Set rgn = Application.ActiveSheet.UsedRange
Cells.MergeCells = False
For Each r In rgn.Cells

If (r.Cells.Interior.ColorIndex <> -4142) Then
r.Cells.ClearContents
End If

Next
End Sub
[/vba]


Сообщение отредактировал Wasilic - Пятница, 12.02.2016, 16:15
 
Ответить
СообщениеТак проверьте
[vba]
Код
Sub clear2()
Dim r As Range
Dim rgn As Range
Set rgn = Application.ActiveSheet.UsedRange
Cells.MergeCells = False
For Each r In rgn.Cells

If (r.Cells.Interior.ColorIndex <> -4142) Then
r.Cells.ClearContents
End If

Next
End Sub
[/vba]

Автор - Wasilich
Дата добавления - 12.02.2016 в 16:14
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос на очистку ячейки если цвет НЕ белый (Макросы/Sub)
Страница 1 из 11
Поиск:

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