Мини-курс "5 чудес Excel"
Excel за Вами наблюдает. Краснеющие ячейки
Пусть Excel наблюдает за Вашими коллегами. Особенно за теми, которые регулярно своими заботливыми руками портят наши файлы. Отправьте им завтра подарочек, который не на шутку взбодрит ))
Суть в том, что на одном из листов при щелчке по любой ячейке она окрашивается в красный цвет! Да, заливку можно убрать, но это странное явление повторяется и повторяется.
Коллега в шоке, жалуется нам на наш файл. Но мы подходим к его компьютеру, незаметно нажимаем CTRL+q (именно в EN раскладке! – это выключит макрос), щёлкаем при нём по листу – всё норм, жмём плечами. Опять тихонечко нажимаем CTRL+q. Уходим. А Excel снова безобразничает...
Продолжение истории придумайте или наблюдайте сами.
Чтобы фокус сработал, мало отправить файл коллеге – нужно на его компе включить макросы при первом открытии файла (кнопка «Включить содержимое» появляется в жёлтой полосе над буквами столбцов). Поэтому пример идеально подходит для ситуаций, когда Вам нужно подойти и дать пояснения по присланному документу.
Клавиши Ctrl+q – это тоже макрос, который ставит метку на супер-скрытом листе. Как делать такие листы, мы учились на воскресном уроке «Макрос напрокат».
По многочисленным просьбам, я сделала доступной покупку записи любого урока в отдельности. На странице регистрации под каждой темой появилась ссылка «Купить запись». Учитесь на здоровье!
Суть в том, что на одном из листов при щелчке по любой ячейке она окрашивается в красный цвет! Да, заливку можно убрать, но это странное явление повторяется и повторяется.
Коллега в шоке, жалуется нам на наш файл. Но мы подходим к его компьютеру, незаметно нажимаем CTRL+q (именно в EN раскладке! – это выключит макрос), щёлкаем при нём по листу – всё норм, жмём плечами. Опять тихонечко нажимаем CTRL+q. Уходим. А Excel снова безобразничает...
Продолжение истории придумайте или наблюдайте сами.
Чтобы фокус сработал, мало отправить файл коллеге – нужно на его компе включить макросы при первом открытии файла (кнопка «Включить содержимое» появляется в жёлтой полосе над буквами столбцов). Поэтому пример идеально подходит для ситуаций, когда Вам нужно подойти и дать пояснения по присланному документу.
Клавиши Ctrl+q – это тоже макрос, который ставит метку на супер-скрытом листе. Как делать такие листы, мы учились на воскресном уроке «Макрос напрокат».
По многочисленным просьбам, я сделала доступной покупку записи любого урока в отдельности. На странице регистрации под каждой темой появилась ссылка «Купить запись». Учитесь на здоровье!
При открытии нажмите «Включить макросы», иначе не получится протестировать. Файл можно сохранить под любым удобным именем, важно оставить ему расширение .xlsm
Коды макросов, записанных в модуле листа
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ThisWorkbook.Worksheets("Z").Range("A1").Value = True Then _
Target.Interior.ColorIndex = 3
End Sub
Sub vkl_macros()
Set Rng = ThisWorkbook.Worksheets("Z").Range("A1")
If Rng.Value = True Then
Rng.Value = False
Else
Rng.Value = True
End If
End Sub
If ThisWorkbook.Worksheets("Z").Range("A1").Value = True Then _
Target.Interior.ColorIndex = 3
End Sub
Sub vkl_macros()
Set Rng = ThisWorkbook.Worksheets("Z").Range("A1")
If Rng.Value = True Then
Rng.Value = False
Else
Rng.Value = True
End If
End Sub
Уровень сложности макроса - учебный. такие, и даже более сложные коды, мы пишем с моими учениками на курсе "Макросы на VBA с нуля". Если функции ВПР и ЕСЛИ Вам хорошо знакомы и понятны, то и макросы будут по силам.