Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
inferno_666
0 / 0 / 0
Регистрация: 06.07.2016
Сообщений: 23
#1

Заполнение ячеек данными при каждом открытии документа

24.04.2018, 15:53. Просмотров 722. Ответов 2
Метки нет (Все метки)

Доброго времени суток. Дали задание написать макрос для отображения своеобразного лога входов на этот файл. Я сделал возможность записи пользователя и времени последнего сохранения в ячейки, но нужно помимо этого реализовать возможность записывать каждый вход в разные ячейки без перезаписи, код готового макроса прилагаю
Visual Basic
1
2
3
4
5
6
7
8
Sub auto_open()
    With ThisWorkbook.Worksheets.Item(2).Cells(2, 1)
    .Value = ThisWorkbook.BuiltinDocumentProperties.Item("Last Save Time")
    .NumberFormat = "dd/mm/yy h:m;@"
    UserName = Environ$("Username")
    Worksheets(2).Cells(1, 1) = UserName
    End With
End Sub
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.04.2018, 15:53
Ответы с готовыми решениями:

Заполнение ячеек листа данными из файла
надо что бы кнопка загружала файлы. и из каждого файла ( там файлы с цифрами)...

Заполнение книги Excel данными из документа Word
Добрый день. Пролистал около десятка тем на этом форуме и еще на нескольких,...

Заполнение шаблона документа excel данными из БД (SQL SERVER)
Сил больше нету искать решение. Ребята, помогите. Нужно из vb6 открыть шаблон...

Как автоматизировать заполнение документа Word нужными данными?
Здравствуйте. Подскажите пожалуйста как реализовать такую задумку? В...

Событие при открытии документа
Напишите решение сюда, чтобы никому никуда писать и ждать ответа не приходилось.

2
Остап Бонд
591 / 390 / 187
Регистрация: 17.08.2017
Сообщений: 959
24.04.2018, 16:12 #2
Лучший ответ Сообщение было отмечено inferno_666 как решение

Решение

inferno_666, попробуйте (счётчик в В1)
Visual Basic
1
2
3
4
5
6
7
8
9
10
Sub auto_open()
    d=ThisWorkbook.Worksheets.Item(2).Cells(1, 2)
    With ThisWorkbook.Worksheets.Item(2).Cells(d+2,1)
    .Value = ThisWorkbook.BuiltinDocumentProperties.Item("Last Save Time")
    .NumberFormat = "dd/mm/yy h:m;@"
    UserName = Environ$("Username")
    .offset(-1) = UserName
    End With
    ThisWorkbook.Worksheets.Item(2).Cells(1, 2)=d+2
End Sub
2
inferno_666
0 / 0 / 0
Регистрация: 06.07.2016
Сообщений: 23
25.04.2018, 22:50  [ТС] #3
Спасибо большое, все отлично работает
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.04.2018, 22:50

Запуск макроса при открытии документа
Добрый день! В VBA еще новичок, поэтому буду говорить, как мне подсказали,...

Автозапуск макроса при открытии рабочего документа
Kak sdelatj tak 4tob pri otkrytii rabo4ego dokumenta, zapuskalsja, opredelennyi...

При открытии документа показать окно с текстом
Как сделать так чтобы при открытии документа выскакивала окно с текстом?


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru