Добрый день.
1.Есть несколько моментов, которые никак не могу реализовать.
Вся надежда на знатаков Excel.
Буду крайне благодарен за помощь.
Таблица предназначена для двух групп пользователей, которые соответственно редактируют левую и правую часть таблицы:
первая вносит данные в колонки В, C, D, E, G , H,
вторая группа в колонку К.
Следовательно, при заполнении пользователем первой группы ячейки колонки B,
сразу появляется текущая дата и время в колонке F, а имя пользователя в колонке I,
далее,
при заполнении пользователем второй группы ячейки колонки K, появляется имя пользователя в колонке L, а дата и время в колонке M.
Никак не могу реализовать эти два условия в этом коде. Помогите!!!
2. Так как таблица предназначена для двух групп пользователей, подскажите, плз, как добавить в данный макрос перечень логинов пользователей,
одна группа из которых может редактировать всю таблицу,
а вторая группа пользователей - редактирование только колонок B, C, D, E, G, H.
Эксперты Excel, пожалуйста, помогите.
1.Есть несколько моментов, которые никак не могу реализовать.
Вся надежда на знатаков Excel.
Буду крайне благодарен за помощь.
Таблица предназначена для двух групп пользователей, которые соответственно редактируют левую и правую часть таблицы:
первая вносит данные в колонки В, C, D, E, G , H,
вторая группа в колонку К.
Следовательно, при заполнении пользователем первой группы ячейки колонки B,
сразу появляется текущая дата и время в колонке F, а имя пользователя в колонке I,
далее,
при заполнении пользователем второй группы ячейки колонки K, появляется имя пользователя в колонке L, а дата и время в колонке M.
Никак не могу реализовать эти два условия в этом коде. Помогите!!!
Код |
---|
Private Sub Worksheet_Change(ByVal Target As Range) For Each cell In Target 'проходим по всем измененным ячейкам If Not Intersect(cell, Range("B2:B100,K2:K100"[IMG]http://www.planetaexcel.ru/bitrix/images/blog/smile/icon_wink.png[/IMG] Is Nothing Then 'если изменененная ячейка попадает в диапазон A2:A100 With cell.Offset(0, 4) 'вводим в соседнюю справа ячейку дату .Value = Now .EntireColumn.AutoFit 'выполняем автоподбор ширины для столбца B, чтобы дата умещалась в ячейке End With cell.Offset(0, 7) = Application.UserName cell.Offset(0, 1) = Application.UserName End If Next cell End Sub |
2. Так как таблица предназначена для двух групп пользователей, подскажите, плз, как добавить в данный макрос перечень логинов пользователей,
одна группа из которых может редактировать всю таблицу,
а вторая группа пользователей - редактирование только колонок B, C, D, E, G, H.
Эксперты Excel, пожалуйста, помогите.