Страницы: 1
RSS
Заливка ячеек в словаре
 
Добрый день.
Как делать заливку в цикле знаю, а как в словаре - близко не представляю.
1.В примере хочу закрасить зелёным цветом столбец А, при условии, что в столбце D данные от 50 до 100.
И красным, если менее нуля.

2.Что для быстродействия макроса и веса файла более комфортно  - красить в макросе или стандартным УФ-ом?

Спасибо.
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
Так у вас и так всё красится, что не так?
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
 
Красится УФ_ом, а вопрос макросом..
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
честно говоря - я не понял, какое отношение имеет заливка ячеек к словарю...

в конец макроса дописать:
Код
[a3].Resize(UBound(c)).interior.Color = xlNone
For i = 1 To UBound(c)
  If c(i, 1) >= 50 And c(i, 1) <= 100 Then
    [a3].Offset(i - 1).interior.Color = vbGreen
  ElseIf c(i, 1) < 0 Then
    [a3].Offset(i - 1).interior.Color = vbRed
  End If
Next
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
Я то думал, что можно как-то сюда привязать..
Код
If .exists(isk(i, 1)) Then
   ii = .Item(isk(i, 1))
   c(i, 1) = isx(ii, 2).  типа  interior.color...
End If
А тут отдельным циклом только получается?
Спасибо, Саша.
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Страницы: 1
Наверх