Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Закрашенные ячейки перевести в цифры - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Закрашенные ячейки перевести в цифры (Формулы/Formulas)
Закрашенные ячейки перевести в цифры
ivan47 Дата: Вторник, 21.06.2022, 22:49 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация: 0 ±
Замечаний: 20% ±

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

Автор - ivan47
Дата добавления - 21.06.2022 в 22:49
китин Дата: Среда, 22.06.2022, 07:35 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 6853
Репутация: 1050 ±
Замечаний: 0% ±

Excel 2007;2010;2016
ivan47, примера нетути


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениеivan47, примера нетути

Автор - китин
Дата добавления - 22.06.2022 в 07:35
ivan47 Дата: Среда, 22.06.2022, 12:48 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Прилагаю пример думаю там все понятно
К сообщению приложен файл: 1409769.xlsx(8.9 Kb)
 
Ответить
СообщениеПрилагаю пример думаю там все понятно

Автор - ivan47
Дата добавления - 22.06.2022 в 12:48
Nic70y Дата: Среда, 22.06.2022, 14:10 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 7567
Репутация: 1809 ±
Замечаний: 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
 
Ответить
Сообщениекак-то так
[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]

Автор - Nic70y
Дата добавления - 22.06.2022 в 14:10
ivan47 Дата: Среда, 22.06.2022, 15:23 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация: 0 ±
Замечаний: 20% ±

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

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

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

Автор - ivan47
Дата добавления - 22.06.2022 в 15:23
Serge_007 Дата: Среда, 22.06.2022, 15:41 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 15229
Репутация: 2509 ±
Замечаний: ±

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


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеТекст макроса скопируйте непосредственно из сообщения Nic70y

Автор - Serge_007
Дата добавления - 22.06.2022 в 15:41
ivan47 Дата: Среда, 22.06.2022, 17:53 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Nic70y, Все работает! но у меня не получается масштабировать. Можете помочь заполнить?
К сообщению приложен файл: 33.xlsx(206.1 Kb)
 
Ответить
СообщениеNic70y, Все работает! но у меня не получается масштабировать. Можете помочь заполнить?

Автор - ivan47
Дата добавления - 22.06.2022 в 17:53
Serge_007 Дата: Среда, 22.06.2022, 17:59 | Сообщение № 8
Группа: Админы
Ранг: Местный житель
Сообщений: 15229
Репутация: 2509 ±
Замечаний: ±

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
 
Ответить
Сообщение[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")

Автор - Serge_007
Дата добавления - 22.06.2022 в 17:59
Nic70y Дата: Пятница, 24.06.2022, 11:06 | Сообщение № 9
Группа: Друзья
Ранг: Экселист
Сообщений: 7567
Репутация: 1809 ±
Замечаний: 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
 
Ответить
Сообщение[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]

Автор - Nic70y
Дата добавления - 24.06.2022 в 11:06
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Закрашенные ячейки перевести в цифры (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2022 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!