Добрый день.
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, пожалуйста, помогите.
