Function col_cell(row As Range) As Integer
For Each cell In row
Dim color: color = cell.Interior.ColorIndex
Next cell
' период
Dim d_line: d_line = row.Value
pusto = IsNull(d_line)
Dim d As Integer: d = 0
Select Case pusto
' Case True
Case False
Dim row_c: row_c = ActiveCell.row
Dim d_b: d_b = CDate(Left(d_line, 5) & Right(d_line, 3))
Dim d_e: d_e = CDate(Right(d_line, 8))
d = d + d_e - d_b + 1
'Dim Rng As Range
'Set Rng = Range("uch_god").Find(d_b, , xlValues, xlPart)
'If Not Rng Is Nothing Then
'Cells(row_c, Rng.Column).Resize(, d).Interior.ColorIndex = color
'End If
Dim n As Integer: n = 1
For Each cellD In Range("uch_god")
If cellD.Value = d_b Then
Cells(row_c, 11 + n).Resize(, d).Interior.ColorIndex = color
End If
n = n + 1
Next cellD
End Select
col_cell = d
End Function
Добрый день. Пытаюсь помочь в автоматизации, сам никогда не программировал - просто адаптирую найденные примеры (инет - книги) к актуальной задаче. Нужно по датам периода выделить диапазон ячеек и проставить в них значение (к-во групп) см. картинку. Столкнулся с проблемой: - не смог запустить find, заковычил в коде - при отрабатывании "заливки" выдается "ЗНАЧ!"
Надеюсь на помощь специалистов. пс Версия с Условным форматированием уже реализована, сейчас пробую ее улучшить.