Страницы: 1
RSS
Если ячейка закрашена, то - 1 , если нет - 0
 
Здравствуйте! Как можно реализовать данный процесс?
Есть столбик с закрашенными в разнобой ячейками, в другой столбик надо вывести если ячейка закрашена, то 1 , если нет  0

Ниже пример
 
UDF
Код
Function ЦВЕТ(cl As Range)
    ЦВЕТ = IIf(cl.Interior.Pattern = xlNone, 0, 1)
End Function
Согласие есть продукт при полном непротивлении сторон
 
Код
Sub Tablica()
Dim i As Long
Dim iLastRow As Long
 iLastRow = Cells(Rows.Count, 3).End(xlUp).Row
  For i = 3 To iLastRow
      Cells(i, 5) = IIf(Cells(i, 3).Interior.ColorIndex <> -4142, 1, 0)
  Next
End Sub
 
Sanja,  СУПЕР! Спасибо огромное!
 
UDF v.2:
Код
Function ЦВЕТ_2(cl As Range)
    ЦВЕТ_2 = CInt(cl.Interior.Pattern <> xlNone) * -1
End Function
 
Ещё сократим:
Код
Function ЦВЕТ_3(cl As Range)
    ЦВЕТ_3 = (cl.Interior.Pattern <> xlNone) * -1
End Function
 
Пожалуйста, помогите, в Exele плохо разбираюсь, не получается,
Можно ли помочь сделать такую таблицу:на двух листах числа и если есть повторы, высветить цветом и в следующем столбике 1, при этом на листе 2 всегда добавляются новые числа
 
" Д,артаньян и три мушкетёра" "Имя, сестра Имя"
Лень двигатель прогресса, доказано!!!
 
08011958, для начала зайдите в свой профиль и поменяйте отображаемое имя (логин). Если ещё не ознакомились с нашими Правилами - ознакомьтесь. И после всего этого создайте свою тему, так как Ваш вопрос к этой теме имеет лишь косвенное отношение.
Страницы: 1
Наверх