Как найти и отобразить все пустые ячейки в колонке - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д