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

Вход

Регистрация

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

 

= Мир MS Excel/Макрос выделяющий ноли. - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос выделяющий ноли. (Макросы/Sub)
Макрос выделяющий ноли.
Mark1976 Дата: Суббота, 09.04.2016, 14:22 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 331
Репутация: 0 ±
Замечаний: 40% ±

Excel 2007
Здравствуйте. Есть макрос, который выделяет цветом значения равные=0. Выделяет только, когда выделен диапазон. Как сделать, чтобы макрос выделял ноли на всем листе, вез выделения определенной области?
[vba]
Код
Sub NegSelect()
   Dim cell As Range
   ' Просмотр всех ячеек выделенного диапазона и пометка тех, _
    которые равны 0
   For Each cell In Selection
      If cell.Value = 0 Then
         cell.Interior.Color = RGB(255, 0, 0)
      Else
         cell.Interior.ColorIndex = xlNone
      End If
   Next cell
End Sub
[/vba]
 
Ответить
СообщениеЗдравствуйте. Есть макрос, который выделяет цветом значения равные=0. Выделяет только, когда выделен диапазон. Как сделать, чтобы макрос выделял ноли на всем листе, вез выделения определенной области?
[vba]
Код
Sub NegSelect()
   Dim cell As Range
   ' Просмотр всех ячеек выделенного диапазона и пометка тех, _
    которые равны 0
   For Each cell In Selection
      If cell.Value = 0 Then
         cell.Interior.Color = RGB(255, 0, 0)
      Else
         cell.Interior.ColorIndex = xlNone
      End If
   Next cell
End Sub
[/vba]

Автор - Mark1976
Дата добавления - 09.04.2016 в 14:22
МВТ Дата: Суббота, 09.04.2016, 14:35 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 476
Репутация: 136 ±
Замечаний: 0% ±

Excel 2007
Попробуйте [vba]
Код
Each cell in Usedange
[/vba]
А УФ не проще?
 
Ответить
СообщениеПопробуйте [vba]
Код
Each cell in Usedange
[/vba]
А УФ не проще?

Автор - МВТ
Дата добавления - 09.04.2016 в 14:35
Mark1976 Дата: Суббота, 09.04.2016, 14:39 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 331
Репутация: 0 ±
Замечаний: 40% ±

Excel 2007
МВТ, хочу через горячую клавишу. Это макрос?
 
Ответить
СообщениеМВТ, хочу через горячую клавишу. Это макрос?

Автор - Mark1976
Дата добавления - 09.04.2016 в 14:39
KuklP Дата: Суббота, 09.04.2016, 14:42 | Сообщение № 4
Группа: Проверенные
Ранг: Старожил
Сообщений: 2006
Репутация: 436 ±
Замечаний: 20% ±

Each cell in Usedange
я бы так не делал Здесь показал почему. Mark1976, у Вас ноли откуда берутся - константы, формулы?


Ну, с НДС и мы чего-то стoим! kuklp@mail.ru
WM Z206653985942, R334086032478, U238399322728
 
Ответить
Сообщение
Each cell in Usedange
я бы так не делал Здесь показал почему. Mark1976, у Вас ноли откуда берутся - константы, формулы?

Автор - KuklP
Дата добавления - 09.04.2016 в 14:42
al-Ex Дата: Суббота, 09.04.2016, 14:42 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 149
Репутация: 53 ±
Замечаний: 0% ±

Excel 2010
Это макрос?
В своём макросе, строчку где "For Each cell In Selection" измените
на " For Each cell in UsedRange"


Сообщение отредактировал al-Ex - Суббота, 09.04.2016, 14:46
 
Ответить
Сообщение
Это макрос?
В своём макросе, строчку где "For Each cell In Selection" измените
на " For Each cell in UsedRange"

Автор - al-Ex
Дата добавления - 09.04.2016 в 14:42
Mark1976 Дата: Суббота, 09.04.2016, 14:55 | Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 331
Репутация: 0 ±
Замечаний: 40% ±

Excel 2007
KuklP, в большинстве случаев это константы в умной таблице.
 
Ответить
СообщениеKuklP, в большинстве случаев это константы в умной таблице.

Автор - Mark1976
Дата добавления - 09.04.2016 в 14:55
StoTisteg Дата: Суббота, 09.04.2016, 15:03 | Сообщение № 7
Группа: Авторы
Ранг: Ветеран
Сообщений: 541
Репутация: 45 ±
Замечаний: 0% ±

Excel 2010
Тогда
[vba]
Код
For Each cell in Activesheet.ListObjects(1).Cells
[/vba]


Проверь всё. ThisWorkbook.Save. On Error Resume Next.
 
Ответить
СообщениеТогда
[vba]
Код
For Each cell in Activesheet.ListObjects(1).Cells
[/vba]

Автор - StoTisteg
Дата добавления - 09.04.2016 в 15:03
KuklP Дата: Суббота, 09.04.2016, 15:09 | Сообщение № 8
Группа: Проверенные
Ранг: Старожил
Сообщений: 2006
Репутация: 436 ±
Замечаний: 20% ±

Тогда делайте так:
[vba]
Код
on error resume next
for Each cell in activesheet.Usedrange.specialcells(2,1).cells
[/vba]
:( for забыл.


Ну, с НДС и мы чего-то стoим! kuklp@mail.ru
WM Z206653985942, R334086032478, U238399322728


Сообщение отредактировал KuklP - Суббота, 09.04.2016, 17:25
 
Ответить
СообщениеТогда делайте так:
[vba]
Код
on error resume next
for Each cell in activesheet.Usedrange.specialcells(2,1).cells
[/vba]
:( for забыл.

Автор - KuklP
Дата добавления - 09.04.2016 в 15:09
Mark1976 Дата: Суббота, 09.04.2016, 17:20 | Сообщение № 9
Группа: Проверенные
Ранг: Обитатель
Сообщений: 331
Репутация: 0 ±
Замечаний: 40% ±

Excel 2007
KuklP, выложите полный макрос плиз.
 
Ответить
СообщениеKuklP, выложите полный макрос плиз.

Автор - Mark1976
Дата добавления - 09.04.2016 в 17:20
KuklP Дата: Суббота, 09.04.2016, 17:23 | Сообщение № 10
Группа: Проверенные
Ранг: Старожил
Сообщений: 2006
Репутация: 436 ±
Замечаний: 20% ±

Если что не так - пример в студию.
[vba]
Код
Sub NegSelect()
Dim cell As Range
' Просмотр всех ячеек выделенного диапазона и пометка тех, _
которые равны 0
on error resume next
for Each cell in activesheet.Usedrange.specialcells(2,1).cells
If cell.Value = 0 Then
cell.Interior.Color = RGB(255, 0, 0)
Else
cell.Interior.ColorIndex = xlNone
End If
Next cell
End Sub
[/vba]


Ну, с НДС и мы чего-то стoим! kuklp@mail.ru
WM Z206653985942, R334086032478, U238399322728


Сообщение отредактировал KuklP - Суббота, 09.04.2016, 17:24
 
Ответить
СообщениеЕсли что не так - пример в студию.
[vba]
Код
Sub NegSelect()
Dim cell As Range
' Просмотр всех ячеек выделенного диапазона и пометка тех, _
которые равны 0
on error resume next
for Each cell in activesheet.Usedrange.specialcells(2,1).cells
If cell.Value = 0 Then
cell.Interior.Color = RGB(255, 0, 0)
Else
cell.Interior.ColorIndex = xlNone
End If
Next cell
End Sub
[/vba]

Автор - KuklP
Дата добавления - 09.04.2016 в 17:23
Mark1976 Дата: Суббота, 09.04.2016, 17:45 | Сообщение № 11
Группа: Проверенные
Ранг: Обитатель
Сообщений: 331
Репутация: 0 ±
Замечаний: 40% ±

Excel 2007
KuklP, спасибо. Макрос отработал на отлично.
 
Ответить
СообщениеKuklP, спасибо. Макрос отработал на отлично.

Автор - Mark1976
Дата добавления - 09.04.2016 в 17:45
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос выделяющий ноли. (Макросы/Sub)
Страница 1 из 11
Поиск:

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