Закрашенные ячейки перевести в цифры

Старая форма входа

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

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

ivan47

Дата: Вторник, 21.06.2022, 22:49 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 24

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

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

Excel 2010

Есть столбик с цифрами, определенные цифры закрашены в розовый цвет.
Нужно рядом в столбик те цифры который залиты розовым преобразовать в -1, те который без заливки в 1
Прилагаю пример думаю там все понятно

Ответить

китин

Дата: Среда, 22.06.2022, 07:35 | Сообщение № 2

Группа: Модераторы

Ранг: Экселист

Сообщений: 7029

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

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

Excel 2007;2010;2016

ivan47, примера нетути

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

ivan47

Дата: Среда, 22.06.2022, 12:48 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 24

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

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

Excel 2010

Прилагаю пример думаю там все понятно

К сообщению приложен файл: 1409769.xlsx (8.9 Kb)

Ответить

Nic70y

Дата: Среда, 22.06.2022, 14:10 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 9006

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

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

Excel 2010

как-то так
[vba]

Код

Sub u_215()
    Application.ScreenUpdating = False
    For Each c In Range("c3:i7")
        a = c.DisplayFormat.Interior.Color
        If a = 13551615 Then
            c.Offset(0, 8) = -1
        Else
            c.Offset(0, 8) = 1
        End If
    Next
    Application.ScreenUpdating = True
End Sub

[/vba]

К сообщению приложен файл: 1409769.xlsm (17.0 Kb)

ЮMoney 41001841029809

Ответить

ivan47

Дата: Среда, 22.06.2022, 15:23 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 24

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

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

Excel 2010

Цитата Nic70y, 22.06.2022 в 14:10, в сообщении № 4 (

)

К сообщению приложен файл: 1409769.xlsm(17.0 Kb)

При открытий пишет это "Удаленный компонент: Компонент /xl/vbaProject.bin. (Visual Basic для приложений (VBA))" при нажатие на кнопку пишет не удается выполнить макрос. Как быть?

Ответить

Serge_007

Дата: Среда, 22.06.2022, 15:41 | Сообщение № 6

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

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Текст макроса скопируйте непосредственно из сообщения Nic70y

ЮMoney:41001419691823 | WMR:126292472390

Ответить

ivan47

Дата: Среда, 22.06.2022, 17:53 | Сообщение № 7

Группа: Пользователи

Ранг: Новичок

Сообщений: 24

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

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

Excel 2010

Nic70y, Все работает! но у меня не получается масштабировать. Можете помочь заполнить?

К сообщению приложен файл: 33.xlsx (206.1 Kb)

Ответить

Serge_007

Дата: Среда, 22.06.2022, 17:59 | Сообщение № 8

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

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

[vba]

Код

Sub u_215()
    Application.ScreenUpdating = False
    For Each c In Range("c3:i1100")
        a = c.DisplayFormat.Interior.Color
        If a = 13551615 Then
            c.Offset(0, 8) = -1
        Else
            c.Offset(0, 8) = 1
        End If
    Next
    Application.ScreenUpdating = True
End Sub

[/vba]

Запустите макрос три раза
Сначала с Range("c3:i1100"),
потом с Range("s3:y1100"),
и в конце с Range("ai3:ao1100")

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Nic70y

Дата: Пятница, 24.06.2022, 11:06 | Сообщение № 9

Группа: Друзья

Ранг: Экселист

Сообщений: 9006

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

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

Excel 2010

[vba]

Код

Sub u_215()
    Application.ScreenUpdating = False
    For Each c In Range("c3:ao1100").SpecialCells(xlCellTypeAllFormatConditions)
        a = c.DisplayFormat.Interior.Color
        If a = 13551615 Then
            c.Offset(0, 8) = -1
        Else
            c.Offset(0, 8) = 1
        End If
    Next
    Application.ScreenUpdating = True
End Sub

[/vba]

ЮMoney 41001841029809

Ответить

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

Страница 1 из 1
1