Нужно создать макрос - закраска ячейки по условию

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Нужно создать макрос - закраска ячейки по условию (Макросы Sub)

wermah

Дата: Понедельник, 09.09.2013, 07:59 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

Excel 2003

Добрый день, с Экселем как то раньше не приходилось сталкиваться, в плане макросов... я думаю мою задачу можно решить только с помощью макроса
В общем есть книга ексель на общем доступе и нужно чтобы при внесении изменения в какаю то ячейку работником 1 эта ячейка закрашивалась например в синий, а при изменениии ячейки работником 2 в зеленый...
Всего через сеть работают 5-7 сотрудников в этом файле, различать сотрудников можно например по имени пк
Не подскажите как такое можно реализовать?
Эксель 2003

Сообщение отредактировал wermah - Понедельник, 09.09.2013, 11:19

Ответить

paramedic

Дата: Понедельник, 09.09.2013, 13:00 | Сообщение № 2

Группа: Проверенные

Ранг: Участник

Сообщений: 67

Репутация: 6 ±

Замечаний: 0% ±

Excel 2007

Для листа добавляем обработчик события Change типа
[vba]

Код

Private Sub Worksheet_Change(ByVal Target as Range)
      Select Case  Application.UserName
        Case "Иванов" Target.Interior.ColorIndex = 1
        Case "Петров" Target.Interior.ColorIndex = 2
        Case "Сидоров" Target.Interior.ColorIndex = 3
      End Select
End Sub

[/vba]