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

Вход

Регистрация

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

 

= Мир MS Excel/Присвоение ячейке значения в зависимости от цвета - Мир MS Excel

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

Здравствуйте!

Кратко суть задачи в названии, чуть прдробней:
Делается задача по АСУТП, технолог расписывает (раскрашивает!) ячейки в соответствии со структурной схемой клапанов, которые я должен буду включить при том или ином процессе.
По итогу в результате мне нужно будет получить из 16(15) ячеек строки двоичное число, с которым оперировать дальше.
Задач будет очень много, боюсь ошибиться при ручном переписывании, поэтому пытался сделать следующее, - в выделенной области по нажатию волшебной кнопки присвоить всем незакрашенным ячейкам значение FALSE, всем зеленым (к примеру) TRUE. Кроме зеленых есть еще красные, с ними впоследствие нужно будет проделать примерно то же.

Собственных знаний и знания знакомых не хватило, обращаюсь к коллективному разуму, - куда копать?
К сообщению приложен файл: 3436844.xls(32.0 Kb)
 
Ответить
СообщениеЗдравствуйте!

Кратко суть задачи в названии, чуть прдробней:
Делается задача по АСУТП, технолог расписывает (раскрашивает!) ячейки в соответствии со структурной схемой клапанов, которые я должен буду включить при том или ином процессе.
По итогу в результате мне нужно будет получить из 16(15) ячеек строки двоичное число, с которым оперировать дальше.
Задач будет очень много, боюсь ошибиться при ручном переписывании, поэтому пытался сделать следующее, - в выделенной области по нажатию волшебной кнопки присвоить всем незакрашенным ячейкам значение FALSE, всем зеленым (к примеру) TRUE. Кроме зеленых есть еще красные, с ними впоследствие нужно будет проделать примерно то же.

Собственных знаний и знания знакомых не хватило, обращаюсь к коллективному разуму, - куда копать?

Автор - VaBo
Дата добавления - 21.03.2021 в 20:20
bmv98rus Дата: Воскресенье, 21.03.2021, 20:37 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3444
Репутация: 602 ±
Замечаний: 0% ±

Excel 2013/2016
примерно так
[vba]
Код
Sub TrueFalse()
Application.EnableEvents = False
Selection = False
For Each cell In Selection
    If cell.Interior.Color = 5287936 Then cell.Value = True
Next
Application.EnableEvents = True
End Sub
[/vba]


Замечательный Временно просто медведь , процентов на 20.
 
Ответить
Сообщениепримерно так
[vba]
Код
Sub TrueFalse()
Application.EnableEvents = False
Selection = False
For Each cell In Selection
    If cell.Interior.Color = 5287936 Then cell.Value = True
Next
Application.EnableEvents = True
End Sub
[/vba]

Автор - bmv98rus
Дата добавления - 21.03.2021 в 20:37
VaBo Дата: Воскресенье, 21.03.2021, 21:33 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Спасибо. Как отчасти программист даже немного понимаю, что написано.
Но в экселе я полный нуб. Это VBA скрипт? В ту сторону читать, смотреть?
 
Ответить
СообщениеСпасибо. Как отчасти программист даже немного понимаю, что написано.
Но в экселе я полный нуб. Это VBA скрипт? В ту сторону читать, смотреть?

Автор - VaBo
Дата добавления - 21.03.2021 в 21:33
bmv98rus Дата: Воскресенье, 21.03.2021, 21:40 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3444
Репутация: 602 ±
Замечаний: 0% ±

Excel 2013/2016
Да все верно, это оно. Расположить в моддуле книги и запускать при выделенной области обработки. Для того чтоб не портиь вид можно в ячейках установит пользовательский формат ;;; . Значения False/True не будут показаны и так как не помещаются в ваши ячейки, то не будут показаны как ###


Замечательный Временно просто медведь , процентов на 20.
 
Ответить
СообщениеДа все верно, это оно. Расположить в моддуле книги и запускать при выделенной области обработки. Для того чтоб не портиь вид можно в ячейках установит пользовательский формат ;;; . Значения False/True не будут показаны и так как не помещаются в ваши ячейки, то не будут показаны как ###

Автор - bmv98rus
Дата добавления - 21.03.2021 в 21:40
VaBo Дата: Понедельник, 22.03.2021, 08:21 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Спасибо еще раз, начинаю пробовать...
 
Ответить
СообщениеСпасибо еще раз, начинаю пробовать...

Автор - VaBo
Дата добавления - 22.03.2021 в 08:21
VaBo Дата: Вторник, 23.03.2021, 21:20 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Спрошу еще, - число 5287936 для зеленого, а как для красного из того же файла получить? Прямой перевод из RGB в десятичный ничего не дает, гугл отвечает, что не все так просто, как могло казаться...
 
Ответить
СообщениеСпрошу еще, - число 5287936 для зеленого, а как для красного из того же файла получить? Прямой перевод из RGB в десятичный ничего не дает, гугл отвечает, что не все так просто, как могло казаться...

Автор - VaBo
Дата добавления - 23.03.2021 в 21:20
bmv98rus Дата: Вторник, 23.03.2021, 21:33 | Сообщение № 7
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3444
Репутация: 602 ±
Замечаний: 0% ±

Excel 2013/2016
ну это не чистый цвет, с примесями. Проще всего покрасить ячейку в нужный цвет и посмотреть значение цвета.


Замечательный Временно просто медведь , процентов на 20.
 
Ответить
Сообщениену это не чистый цвет, с примесями. Проще всего покрасить ячейку в нужный цвет и посмотреть значение цвета.

Автор - bmv98rus
Дата добавления - 23.03.2021 в 21:33
VaBo Дата: Вторник, 23.03.2021, 21:46 | Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Да, но сейчас я могу только "перекрасить", файл сильно разросся. Но чтобы перекрасить (при помощи того же VBA) нужно знать исходный цвет, я правильно понимаю?
5287936 = 16#50B000 это rgb(80, 176, 0), далеко от зеленого, хотя бралось из палитры "основные цвета"
Как по-простому можно вывести цвет ячейки в MsgBox, к примеру?

Добавлю, попробовал чистый красный 255,0,0 воткнуть, и все равно цифра FF0000 = 16711680 не прокатывает.


Сообщение отредактировал VaBo - Вторник, 23.03.2021, 21:56
 
Ответить
СообщениеДа, но сейчас я могу только "перекрасить", файл сильно разросся. Но чтобы перекрасить (при помощи того же VBA) нужно знать исходный цвет, я правильно понимаю?
5287936 = 16#50B000 это rgb(80, 176, 0), далеко от зеленого, хотя бралось из палитры "основные цвета"
Как по-простому можно вывести цвет ячейки в MsgBox, к примеру?

Добавлю, попробовал чистый красный 255,0,0 воткнуть, и все равно цифра FF0000 = 16711680 не прокатывает.

Автор - VaBo
Дата добавления - 23.03.2021 в 21:46
Nic70y Дата: Среда, 24.03.2021, 08:41 | Сообщение № 9
Группа: Друзья
Ранг: Экселист
Сообщений: 6832
Репутация: 1567 ±
Замечаний: 0% ±

Excel 2010
Как по-простому можно вывести цвет ячейки в MsgBox, к примеру?
[vba]
Код
    MsgBox Selection.Interior.Color
[/vba]АпДэйт
можно задать ргб[vba]
Код
.Interior.Color = RGB(255, 0, 0)
[/vba]


ЮMoney(Яндекс Деньги) 41001841029809

Сообщение отредактировал Nic70y - Среда, 24.03.2021, 08:48
 
Ответить
Сообщение
Как по-простому можно вывести цвет ячейки в MsgBox, к примеру?
[vba]
Код
    MsgBox Selection.Interior.Color
[/vba]АпДэйт
можно задать ргб[vba]
Код
.Interior.Color = RGB(255, 0, 0)
[/vba]

Автор - Nic70y
Дата добавления - 24.03.2021 в 08:41
VaBo Дата: Среда, 24.03.2021, 11:34 | Сообщение № 10
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Прямое задание RGB сработало, спасибо.
 
Ответить
СообщениеПрямое задание RGB сработало, спасибо.

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

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