Ответы, понравившиеся пользователю Bartiwka

Задать вопрос

Лайки

Как автоматизировать, чтобы расставлять цвета в зависимости от содержаний ячейки?

kalapanga @kalapanga

Это делается условным форматированием. Выделить столбец В. Далее Главная - Условное форматирование - Создать правило... и т.д. Правило будет типа если $A1="да" то формат серая заливка

Ответ написан более трёх лет назад

1 комментарий

1 комментарий
Как выявить рабочий диапазон?

lrv @lrv

Самый простой способ это проверять цвет ячейки. Если он серый то пропускать его, иначе вводить значение. Пишешь два цикла
Do while ActiveSheet.Cells(i,1).value<>“”
Do while ActiveSheet.cells(1,j).value <>“”
И внутри if ActiveSheet.cells(i,j).Interior.Color <> RGB(,,) then.
Но это не быстро работать будет, потому что работаете с листом. Быстрее будет с массивом. Там позамороченнее.

Ответ написан более трёх лет назад

2 комментария

2 комментария
Изменяемые строки в столбце?

DS28 @DS28
Аналитик (недоматематик, недопрограммист)

Пока вижу два варианта:

1) B1=ЕСЛИ(A1="а";47;ЕСЛИ(A1="b";"что-то другое";"ничего")
2) составить заранее отдельный список соответствия (a - 47 ... и т.д.) и использовать функцию ВПР()

Ответ написан более трёх лет назад

6 комментариев

6 комментариев
Магическая ошибка 1004?
lrv @lrv
Зачем вам пользовать Range, когда вы обращаетесь к одной ячейке. Листы лучше приучайте себя именовать всегда через Set. Используйте Cells вместо Range.

Set WBMax = thisworkbook.worksheets("max") Set WBSheet = thisworkbook.worsheets("sheet") If WBMax.Cells(1,3).Value = WBMSheet.Cells(1,2).Value Then WBMax.Cells(3,3).Value = WBMSheet.Cells(3,2).Value WBMax.Cells(3,3).Interior.Color = RBG(1,1,1)

Ответ написан более трёх лет назад

1 комментарий
1 комментарий

Самые активные сегодня

Aragorn
- 8 ответов
- 1 вопрос
VoidVolker
- 4 ответа
- 0 вопросов
Drno
- 4 ответа
- 0 вопросов
GavriKos
- 3 ответа
- 0 вопросов
mayton2019
- 3 ответа
- 0 вопросов
Петровский
- 3 ответа
- 0 вопросов

Как автоматизировать, чтобы расставлять цвета в зависимости от содержаний ячейки?

Как выявить рабочий диапазон?

Изменяемые строки в столбце?

Магическая ошибка 1004?

Войдите на сайт