Как сделать автовставку имени пользователя в ячейку?

Guest

Гость

30.09.2007 12:28:17

Вот здесь описано как автоматически вставлять дату и время изменения ячейки
http://www.planetaexcel.ru/tip.php?aid=28

А какой аргумент нужно использовать, чтобы, к примеру, в 3-ю колонку, также автоматически вставлялось имя пользователя, забитое в "Сервис-Параметры-Общее". Пробовала UserName - никакого рез-та, но мож я че не так делала...

Guest

Гость

30.09.2007 12:58:13

Нашла - теперь вставляет и дату и имя юзера:
--------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A2:A100")) Is Nothing Then
With Target(1, 2)
.Value = Now
.EntireColumn.AutoFit
End With
If Not Intersect(Target, Range("A2:A100")) Is Nothing Then
With Target(1, 3)
.Value = Application.UserName
.EntireColumn.AutoFit
End With
End If
End If
End Sub
-----------------------------------------------------

1am3r

Пользователь

Сообщений: 13 Регистрация: 01.01.1970

28.07.2010 08:40:42

{quote}{login=}{date=30.09.2007 12:58}{thema=}{post}Нашла - теперь вставляет и дату и имя юзера:
--------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A2:A100")) Is Nothing Then
With Target(1, 2)
.Value = Now
.EntireColumn.AutoFit
End With
If Not Intersect(Target, Range("A2:A100")) Is Nothing Then
With Target(1, 3)
.Value = Application.UserName
.EntireColumn.AutoFit
End With
End If
End If
End Sub
-----------------------------------------------------{/post}{/quote}

А не подскажите как в определенную ячейку вставить?

Marchuk

Пользователь

Сообщений: 1167 Регистрация: 01.01.1970

28.07.2010 09:43:41

пишеться в ячейки А1 и В1

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A2:A100")) Is Nothing Then

With Range("A1")

.Value = Now
.EntireColumn.AutoFit
End With
If Not Intersect(Target, Range("A2:A100")) Is Nothing Then

With Range("B1")

.Value = Application.UserName
.EntireColumn.AutoFit
End With
End If
End If
End Sub

1am3r Пользователь Сообщений: 13 Регистрация: 01.01.1970	#5 28.07.2010 12:20:28 Почему то у меня не отрабатывает (

Marchuk Пользователь Сообщений: 1167 Регистрация: 01.01.1970	#6 28.07.2010 13:26:30 {quote}{login=1am3r}{date=28.07.2010 12:20}{thema=}{post}Почему то у меня не отрабатывает ({/post}{/quote} вы код записали на тот лист где происходит изменения диапазона ячеек в области А2:А100 ???

Guest Гость	#7 28.07.2010 13:31:20 все разобрался пасиба большое :)диапазон неверно был указан ))

Читают тему