Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Нужно создать макрос - закраска ячейки по условию
wermah Дата: Понедельник, 09.09.2013, 07:59 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

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


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

Автор - wermah
Дата добавления - 09.09.2013 в 07:59
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]


Я не ламер - я честный чайник

Сообщение отредактировал paramedic - Понедельник, 09.09.2013, 13:00
 
Ответить
СообщениеДля листа добавляем обработчик события 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]

Автор - paramedic
Дата добавления - 09.09.2013 в 13:00
wermah Дата: Понедельник, 09.09.2013, 15:11 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Для листа добавляем обработчик события Change типа

А для всей книги это будет работать?
 
Ответить
Сообщение
Для листа добавляем обработчик события Change типа

А для всей книги это будет работать?

Автор - wermah
Дата добавления - 09.09.2013 в 15:11
RAN Дата: Понедельник, 09.09.2013, 21:20 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Для книги существует
[vba]
Код
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
[/vba]


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеДля книги существует
[vba]
Код
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
[/vba]

Автор - RAN
Дата добавления - 09.09.2013 в 21:20
wermah Дата: Вторник, 10.09.2013, 06:06 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Спасибо!
 
Ответить
СообщениеСпасибо!

Автор - wermah
Дата добавления - 10.09.2013 в 06:06
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!