Еще последний вопрос: если "утром" или "вечером" есть значения (неважно одно или все 4) - надо переменной присвоить значение "1". Потом сложить все значения "1" для утра и вечера в филиале и поместить сумму в ячейку. То есть в ячейку должна помещаться сумма посещений филиала в месяц утром и вечером (если утром или вечером есть хотя бы одно значение - то посещение было).
Если я правильно понимаю, можно воспользоваться этой же функцией?
Если я правильно понимаю, можно воспользоваться этой же функцией?
| Код |
|---|
Private Sub Vizit_Count()
Dim v As Range, r&, c&
With Sheets("Лист1")
For c = 3 To 64 Step 2
For r = 6 To 117 Step 4
Set v = .Cells(r, c).Resize(4, 2)
If Application.CountA(v.Columns(1)) Then
If Application.CountA(v.Columns(2)) Then
.Cells(r, 66) = 'тут не могу понять что писать (утро)
.Cells(r, 67) = 'тут не могу понять что писать (вечер)
End If
End If
Next
Next
End With
End Sub
|
9 и А6:А9 должны сменить цвет. Значений может быть сколько угодно в этом диапазоне, единственное условие, чтобы либо УТРО либо ВЕЧЕР были пустыми, иначе сменить цвет.