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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос выделяющий ноли. (Макросы/Sub)
Макрос выделяющий ноли.
Mark1976 Дата: Суббота, 09.04.2016, 14:22 | Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 738
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
Здравствуйте. Есть макрос, который выделяет цветом значения равные=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
Репутация: 137 ±
Замечаний: 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
Группа: Проверенные
Ранг: Ветеран
Сообщений: 738
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
МВТ, хочу через горячую клавишу. Это макрос?
 
Ответить
СообщениеМВТ, хочу через горячую клавишу. Это макрос?
Автор - Mark1976
Дата добавления - 09.04.2016 в 14:39
KuklP Дата: Суббота, 09.04.2016, 14:42 | Сообщение № 4
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Цитата МВТ, 09.04.2016 в 14:35, в сообщении № 2
Each cell in Usedange
я бы так не делал Здесь показал почему. Mark1976, у Вас ноли откуда берутся - константы, формулы?

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
Сообщение
Цитата МВТ, 09.04.2016 в 14:35, в сообщении № 2
Each cell in Usedange
я бы так не делал Здесь показал почему. Mark1976, у Вас ноли откуда берутся - константы, формулы?
Автор - KuklP
Дата добавления - 09.04.2016 в 14:42
al-Ex Дата: Суббота, 09.04.2016, 14:42 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 190
Репутация: 59 ±
Замечаний: 0% ±

Excel 2010
Цитата Mark1976, 09.04.2016 в 14:39, в сообщении № 3
Это макрос?
В своём макросе, строчку где "For Each cell In Selection" измените
на " For Each cell in UsedRange"


Сообщение отредактировал al-Ex - Суббота, 09.04.2016, 14:46
 
Ответить
Сообщение
Цитата Mark1976, 09.04.2016 в 14:39, в сообщении № 3
Это макрос?
В своём макросе, строчку где "For Each cell In Selection" измените
на " For Each cell in UsedRange"
Автор - al-Ex
Дата добавления - 09.04.2016 в 14:42
Mark1976 Дата: Суббота, 09.04.2016, 14:55 | Сообщение № 6
Группа: Проверенные
Ранг: Ветеран
Сообщений: 738
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
KuklP, в большинстве случаев это константы в умной таблице.
 
Ответить
СообщениеKuklP, в большинстве случаев это константы в умной таблице.
Автор - Mark1976
Дата добавления - 09.04.2016 в 14:55
StoTisteg Дата: Суббота, 09.04.2016, 15:03 | Сообщение № 7
Группа: Авторы
Ранг: Старожил
Сообщений: 1161
Репутация: 103 ±
Замечаний: 0% ±

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

Интуитивно понятный код - это когда интуитивно понятно, что это код.
 
Ответить
СообщениеТогда
[vba]
Код
For Each cell in Activesheet.ListObjects(1).Cells
[/vba]
Автор - StoTisteg
Дата добавления - 09.04.2016 в 15:03
KuklP Дата: Суббота, 09.04.2016, 15:09 | Сообщение № 8
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

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

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
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
Группа: Проверенные
Ранг: Ветеран
Сообщений: 738
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
KuklP, выложите полный макрос плиз.
 
Ответить
СообщениеKuklP, выложите полный макрос плиз.
Автор - Mark1976
Дата добавления - 09.04.2016 в 17:20
KuklP Дата: Суббота, 09.04.2016, 17:23 | Сообщение № 10
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Если что не так - пример в студию.
[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им! kuklp60@gmail.com
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
Группа: Проверенные
Ранг: Ветеран
Сообщений: 738
Репутация: 3 ±
Замечаний: 0% ±

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

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