Выделение строки с пустой ячейкой

Дата: Понедельник, 03.06.2019, 04:58 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 523

Репутация: 17 ±

Замечаний: 0% ±

Excel 2016

Добрый день!
Подскажите, пожалуйста процедуру, которая бы выделяла строку в диапазоне B3:G15 если хотя бы одна ячейка в этой строке пустая

К сообщению приложен файл: 4388048.xlsx (7.5 Kb)

Pelena

Дата: Понедельник, 03.06.2019, 08:58 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19405

Репутация: 4555 ±

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
Условным форматированием не пойдёт?

К сообщению приложен файл: 5186803.xlsx (8.5 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Дата: Понедельник, 03.06.2019, 10:03 | Сообщение № 3

Группа: Проверенные

Ранг: Ветеран

Сообщений: 523

Репутация: 17 ±

Замечаний: 0% ±

Excel 2016

Pelena, Нет я пробовал, большая таблица - подтормаживает, да и из-за постоянного копипаста и удаления строк начинают глючить формулы в УФ

Дата: Понедельник, 03.06.2019, 10:30 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16718

Репутация: 6505 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Цитата AVI, 03.06.2019 в 04:58, в сообщении № 1 ()

4388048.xlsx(7.5 Kb)

Какой красивый пустой файл!

Что значит "выделяла"? Именно выделить Селектом или как-то пометить, например, закрасить?
Такой вариант с закрасить
[vba]

Код

Sub tt()
    Set d_ = Range("B3:G15")
    r0_ = d_.Row
    ar = d_
    For i = 1 To UBound(ar)
        For j = 1 To UBound(ar, 2)
            If ar(i, j) = "" Then
                t_ = t_ & ", " & "B" & r0_ + i - 1 & ":G" & r0_ + i - 1
                Exit For
            End If
        Next j
    Next i
    d_.Interior.ColorIndex = 0
    If t_ <> "" Then
        t_ = Mid(t_, 3)
        Range(t_).Interior.Color = 255
    End If
End Sub

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Дата: Понедельник, 03.06.2019, 10:37 | Сообщение № 5

Группа: Проверенные

Ранг: Ветеран

Сообщений: 523

Репутация: 17 ±

Замечаний: 0% ±

Excel 2016

_Boroda_, Блин, отправил файл, а потом сохранил))
Именно закрасить и решение в точку! Спасибо)

Дата: Понедельник, 03.06.2019, 10:55 | Сообщение № 6

Группа: Проверенные

Ранг: Ветеран

Сообщений: 523

Репутация: 17 ±

Замечаний: 0% ±

Excel 2016

_Boroda_, что-то на много строк не работает... Их больше 3000
Приложил пример.

К сообщению приложен файл: 1146918.xlsm (29.4 Kb)

Сообщение отредактировал AVI - Понедельник, 03.06.2019, 10:57

Дата: Понедельник, 03.06.2019, 11:22 | Сообщение № 7

Группа: Админы

Ранг: Местный житель

Сообщений: 16718

Репутация: 6505 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Цитата AVI, 03.06.2019 в 10:55, в сообщении № 6 ()

что-то на много строк не работает

Что-то я в первоначальном условии ничего про "много строк" не вижу
[vba]

Код

Sub ee()
    Application.ScreenUpdating = 0
    Set d0_ = Range("B3:G" & Cells(Rows.Count, 2).End(3).Row)
    d0_.Interior.ColorIndex = 0
    Set d_ = d0_.SpecialCells(xlCellTypeBlanks)
    If Not d_ Is Nothing Then
        Set slov = CreateObject("Scripting.Dictionary")
        With slov
            For Each d1_ In d_
                r_ = d1_.Row
                If Not .Exists(r_) Then
                    aaa = .Item(r_)
                    Range("B" & r_).Resize(, 6).Interior.Color = 255
                End If
            Next d1_
        End With
    End If
    Application.ScreenUpdating = 1
End Sub

[/vba]

К сообщению приложен файл: 1146918_1.xlsm (32.4 Kb)

skais

Дата: Понедельник, 03.06.2019, 11:29 | Сообщение № 8

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 236

Репутация: 29 ±

Замечаний: 20% ±

Excel 2010

Boroda_

Цитата _Boroda_, 03.06.2019 в 11:22, в сообщении № 7 ()

Set d0_ = Range("B3:G" & Cells(Rows.Count, 2).End(3).Row)

Определение диапазона - что будет если последние строки в ячейке B будут пустыми?

Сообщение отредактировал skais - Понедельник, 03.06.2019, 11:44

Дата: Понедельник, 03.06.2019, 11:51 | Сообщение № 9

Группа: Админы

Ранг: Местный житель

Сообщений: 16718

Репутация: 6505 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Цитата skais, 03.06.2019 в 11:29, в сообщении № 8 ()

что будет если последние строки в ячейке B будут пустыми

А что будет, если в приложенном в сообщении 6 файле посмотреть измененный автором макрос? Или вообще просто посмотреть на файл и представить методику его заполнения?

skais

Дата: Понедельник, 03.06.2019, 11:57 | Сообщение № 10

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 236

Репутация: 29 ±

Замечаний: 20% ±

Excel 2010

_Boroda_ Вы ж понимаете - это мелочь, но из постановки задачи чуток не то, хотя по данным такое наверно невозможно, но кто знает?! Потому подвох останется.

Дата: Понедельник, 03.06.2019, 12:08 | Сообщение № 11

Группа: Админы

Ранг: Местный житель

Сообщений: 16718

Репутация: 6505 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

[offtop]

Цитата skais, 03.06.2019 в 11:57, в сообщении № 10 ()

но из постановки задачи чуток не то

В постановке задачи вообще много чего не то. Для того спинной мозг и существует, чтобы чуять им что автору на самом деле нужно

[/offtop]

Дата: Понедельник, 03.06.2019, 14:16 | Сообщение № 12

Группа: Проверенные

Ранг: Ветеран

Сообщений: 523

Репутация: 17 ±

Замечаний: 0% ±

Excel 2016

_Boroda_, Спасибо, все работает.
Отдельно спасибо за это [vba]

Код

Range("B3:G" & Cells(Rows.Count, 2).End(3).Row)

[/vba] Сам я никак не мог допереть как так кратенько очертить диапазон

skais, В этом столбце всегда заполнены все строки, какие нужны

bmv98rus

Дата: Понедельник, 03.06.2019, 14:20 | Сообщение № 13

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4115

Репутация: 769 ±

Замечаний: 0% ±

Excel 2013/2016

AVI, Может надо расчет вынести и форматировать строку?
В варианте от Pelena, расчет проводится для каждой ячейки, что на большом объеме сказывается на скорость.

К сообщению приложен файл: Copy_of_981.xlsx (14.5 Kb)

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.