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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир 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
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

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

Excel 2007
Цитата Wasilic, 12.02.2016 в 13:25, в сообщении № 2
Что конкретно, надо то?

надо чтобы макрос очищал содержимое всех ячеек,если цвет не белый.
 
Ответить
Сообщение
Цитата Wasilic, 12.02.2016 в 13:25, в сообщении № 2
Что конкретно, надо то?

надо чтобы макрос очищал содержимое всех ячеек,если цвет не белый.
Автор - rash58
Дата добавления - 12.02.2016 в 16:05
Wasilich Дата: Пятница, 12.02.2016, 16:14 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 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 из 1
  • 1
Поиск:

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