Как найти и отобразить все пустые ячейки в колонке - VBA

Узнай цену своей работы

Формулировка задачи:

Здравствуйте, Ребята! Выполняю сейчас лабу по экселю и задача следующая: Нужно найти и отобразить все пустые ячейки в колонке, используя userform. Пожалуйста, помогите, никак не получается Заранее благодарю за помощь!!

Решение задачи: «Как найти и отобразить все пустые ячейки в колонке»

textual
Листинг программы
Sub Найти_пустые_ячейки()
    Dim r As Range, i&, j&
    On Error Resume Next
    Do
        Set r = Application.InputBox("Введите или Укажите колонку на листе", Type:=8)
        If r Is Nothing Then Exit Sub
        If r.Columns.Count = 1 Then Exit Do
        If MsgBox("Использовать несколько колонок ?", 68) = vbYes Then Exit Do
    Loop
 
    For i = 1 To r.Columns.Count: For j = 1 To r.Rows.Count
        Debug.Print r.Cells(j, i).Address
        With r.Cells(j, i)
            If IsEmpty(.Value) Then
                .Interior.ColorIndex = 6
            Else
                .Interior.ColorIndex = xlNone
            End If
        End With
    Next: Next
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 4.357 из 5
Похожие ответы