powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Цвет ячеек
4 сообщений из 4, страница 1 из 1
Цвет ячеек
    #37111777
cafep
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Есть база в Экселе. Если одна запись имеет жёлтый цвет заливки, то нужно, чтобы в определёном поле этой записи ставилось число 1, иначе 0. Помогите решить проблему.
...
Рейтинг: 0 / 0
Цвет ячеек
    #37112032
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
В Excel файлы - не базы данных, а таблицы. Также принято оперировать понятиями "Лист" (одна таблица), "Строка" (запись), "Столбец" (поле), "Ячейка".

Что вы подразумеваете под "имеет желтый цвет заливки"? Целая строка выделена? Выделена только какая-то ячейка?
Какое решение вас устроит - формулами листа, макросами (подпрограммами)? Проставление отметки должно вестись интерактивно, или надо обработать уже имеющуюся таблицу с заливками, или можно будет обрабатывать таблицу "одноразово", независимо от порядка выделения строк?

И дайте пример файла, с указанием, как что должно быть...
...
Рейтинг: 0 / 0
Цвет ячеек
    #37112072
TpaBka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
cafepЕсть база в Экселе. Если одна запись имеет жёлтый цвет заливки, то нужно, чтобы в определёном поле этой записи ставилось число 1, иначе 0. Помогите решить проблему.
Один из кучи вариантов:
Шерстите записи ячейки в цикле если у записи ячейки цвет желтый ставьте в нужную вам ячейку нужное вам значение
Вот вам для затравки:
Код: plaintext
1.
2.
3.
4.
For i =  1  To Me.Rows.Count
If Me.Cells(i,  1 ).Interior.ColorIndex =  6  Then
Me.Cells(i,  2 ) =  1 
End If
Next
Данный код можно повесить в редакторе VB на событие Worksheet_SelectionChange
...
Рейтинг: 0 / 0
Цвет ячеек
    #37112185
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
cafep,

попробуйте еще worksheet function CELL .
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Цвет ячеек
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]