Запись в отдельную колонку пользователя

[Chelentano]

Господа, у меня такая ситуация:

Есть таблица с двумя колонками: название счета и сумма, в которой разные строки (т.е. суммы по разным счетам) заполняют разные пользователи. Возможно ли в Excel реализовать макрос, который бы записывал в отдельную колонку имя пользователя, в последний раз редактировавшего сумму по каждой строке? Был бы оч благодарен за общую ориентировку в данном вопросе!

[pivas]

Это возможно, скажите только окуда берутся имена Ваших пользователей. А ещё лучше файлик с примером.

[Chelentano]

Пивас, добрый день! Я так полагаю, что у каждого пользователя имя будет в Excel прописано в Сервис-Параметры-Общие. И после того, как пользователь поработал с файлом, нужно, чтобы это имя оттуда копировалось в отдельную колонку тех строк, в которых поьзователь произвёл изменения во второй колонке (Сумма) в промежуток между открытием и закрытием файла.

[The_Prist]

Гляньте такой вариант. Записывается имя пользователя Excel(последний столбец) и имя учетной записи пользователя на компьютере(предпоследний столбец)
Все это присходит при изменении любой ячейки.

[Chelentano]

Прист, спасибо большое! Эх, великая штука VBA и люди, которые в нём разбираются! Я как чайник хотел уточнить небольшой вопрос: я так поллагаю, что CreateObject("WScript.Network") - это какое-то свойство, присваиваемое ячейке в предпоследней колонке. Не подскажете, что именно это за свойство и что означает WScript.Network ?

[NightGirl]

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

[NightGirl]

И еще чтобы выводилась дата изменения пример "User85 15.45 07.07.2011"

[zenner]

Подскажите пожалуйста а как можно к имени добавить текущую дату и время? Спасибо!

[Hugo121]

Cells(Target.Row, Columns.Count) = Application.UserName & " " & Format(Now(), "YYYY.MM.DD hh.mm")
Cells(Target.Row, Columns.Count - 1) = CreateObject("WScript.Network").UserName & " " & Format(Now(), "YYYY.MM.DD hh.mm")

[zenner]

Сообщение от Hugo121

Cells(Target.Row, Columns.Count) = Application.UserName & " " & Format(Now(), "YYYY.MM.DD hh.mm")
Cells(Target.Row, Columns.Count - 1) = CreateObject("WScript.Network").UserName & " " & Format(Now(), "YYYY.MM.DD hh.mm")

Спасибо за помощь!