польз функция, значение в ячейке в зависимости от цвета в др

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

польз функция, значение в ячейке в зависимости от цвета в др (Формулы/Formulas)

micholap_denis

Дата: Понедельник, 28.02.2022, 19:59 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 341

Репутация: 0 ±

Замечаний: 60% ±

Excel 2013

подскажите как подправить,
[vba]

Код

Function cellcolor(a As Range)
cellcolor = a.Interior.color
End Function
Function ifcolor(a As Range)
    Dim i As Long
    Application.Volatile
    i = a.Interior.color
    Select Case i
    Case Is = 255: ifcolor = 1
    Case Else: ifcolor = ""
    End Select
End Function

[/vba]

Case Is = 255: ifcolor = 1 что прописать что бы значение было со столбца A таблицы

К сообщению приложен файл: 11.xls (35.5 Kb)

Ответить

Pelena

Дата: Понедельник, 28.02.2022, 21:22 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19507

Репутация: 4620 ±

Замечаний: ±

Excel 365 & Mac Excel

вместо
[vba]

Код

ifcolor = 1

[/vba]
напишите
[vba]

Код

ifcolor = Cells(a.Row, 1)

[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

micholap_denis

Дата: Понедельник, 28.02.2022, 21:41 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 341

Репутация: 0 ±

Замечаний: 60% ±

Excel 2013

Pelena, спасибо.
вопросик
если ячейка выделяется цветом условным форматированием то не работает (если просто закрасить -работает)...
а почему??

Ответить

micholap_denis

Дата: Понедельник, 28.02.2022, 21:49 | Сообщение № 4

Группа: Проверенные

Ранг: Обитатель

Сообщений: 341

Репутация: 0 ±

Замечаний: 60% ±

Excel 2013

Pelena, вот макрос УФ

[vba]

Код

With Range("Счета")
        .FormatConditions.Add Type:=xlTextString, String:="(расч.)", _
        TextOperator:=xlEndsWith
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        .FormatConditions(1).Interior.color = 255
    End With
End Sub

[/vba]

че то в нем похоже нужно менять

Ответить

Pelena

Дата: Понедельник, 28.02.2022, 21:57 | Сообщение № 5

Группа: Админы

Ранг: Местный житель

Сообщений: 19507

Репутация: 4620 ±

Замечаний: ±

Excel 365 & Mac Excel

вместо
[vba]

Код

a.Interior.color

[/vba]
используйте
[vba]

Код

a.DisplayFormat.Interior.Color

[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

micholap_denis

Дата: Понедельник, 28.02.2022, 22:29 | Сообщение № 6

Группа: Проверенные

Ранг: Обитатель

Сообщений: 341

Репутация: 0 ±

Замечаний: 60% ±

Excel 2013

Pelena,
[vba]

Код

Function ifcolor(a As Range)
    Dim i As Long
    Application.Volatile
    i = a.DisplayFormat.Interior.Color
    Select Case i
    Case Is = 255: ifcolor = Cells(a.Row, 1)
    Case Else: ifcolor = ""
    End Select
End Function

[/vba]
если так то ощибка знач....