Окрашивание активной ячейки

[pivas]

Ищите через Alt+F11

[ksmspb]

Залез туда, в view нашел код, поменял цифру, нажал на сохранить, ничего не поменялось. Наверное чего-то не так делаю, ну чайник, ну простите

[ksmspb]

Да меня бы и желтый цвет устроил бы, но ничего вставить на этот лист нельзя, а как перетащить (я так понимаю, что написать макрос в своей книге) знаний не хватает. Подскажите кто может пожалуйста!

[pivas]

Просто скопировать код в Вашу книгу.

[ksmspb]

Я и скопировал все, что там нашел
Public OldCell As Range
Private Sub Workbook_Open(): Set OldCell = ActiveCell: End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
OldCell.Interior.ColorIndex = xlNone: Target.Interior.ColorIndex = 6: Set OldCell = Target
End Sub
нажал на дискетку-мол сохранил, ничего не работает. Что не так делаю?

[pivas]

Куда сохранили? Этот макрос надо вставить в модуль "Эта книга" и из Sheets1 скопировать одну строчку кода и вставит в модуль Вашего листа.

[ksmspb]

На своем листе ALT+F11, затем F7, view сюда и вставил все что написал выше

[pivas]

Дабы наш диалог не походил на разговор слепого с немым прикрепите файлик.

[IgorGO]

pivas, вот небольшая инструкция по запуску двигателя самолета:
1. Установить рычаг нормального газа в положение, соответствующее 600 - 700 об/мин.
2. Открыть воздушный краник системы запуска на трубопроводе у заливного насоса.
3. Подать команду "От винта"
и получив ответ, "есть от винта"
Включить магнетто и выключатель вибратора.
4. Открыть воздушный кран самопуска, посло того как винт сделает один полный оборот.
нажать кнопку вибратора (кнопку держать нажатой не более 5 секунд)
Если мотор не запустился, ПОВТОРИТЬ ЗАПУСК
5. Как только мотор даст вспышку и начнет работать, убрать полностью газ, закрыть воздушньш кран самопуска и краник системы запуска у бензонасоса.
6. Проверить показания приборов: давление масла должно быть не меньше 3 ат; давление бензина — 0,1-0,2 ат.
Если в течение 5—10 секунд давление масла не достигнет 3 ат, остановить мотор для выявления и устранения причины пониженного давления.
7. Переставить распределительный кран на „впрыск".
8. Плавно опустить плунжер насоса

Все понятно? Сможешь запустить двигатель?
Точно также ksmspb сможет положить требуемый фрагмент кода в нужное место, руководствуясь твоими инструкциями. Вы на разных языках разговариваете.

ksmspb, SAS888 выложил вполне работоспособный пример. пользуйтесь его примером. Есть одна сложность наличие этого кода не позволяет ничего ни в какой цвет закрасить в данном листе. Активная желтая, остальные без заливки. Но это издержки...

[ksmspb]

вроде прикрепил, (если все правильно сделал)