Страницы: 1
RSS
По датам периода выделить диапазон ячеек и проставить в них значение
 
Код
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,  заковычил в коде
- при отрабатывании "заливки" выдается "ЗНАЧ!"

Надеюсь на помощь специалистов.
пс Версия с Условным форматированием уже реализована, сейчас пробую ее улучшить.

Картинки удалены. Превышение допустимого размера вложения [МОДЕРАТОР]
Изменено: avrd - 07.12.2018 15:46:54
 
А что за диапазон Range("uch_god")?
 
Диапазон дат Учебного года «L5:LD5”, типа с1.09.18 по 30.06.19
Изменено: avrd - 07.12.2018 14:00:25 (Дополнение)
Страницы: 1
Наверх