Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Готовые решения

МЕНЮ САЙТА
  • 1
  • 2
  • 3

КАТЕГОРИИ РАЗДЕЛА

ОПРОСЫ
Какой версией Excel Вы пользуетесь?
Всего ответов: 35793
Главная » Готовые решения » VBA » Процедуры

Подсчёт количества открытий файла
20.07.2013, 12:15
[ Файл-пример (29.5Kb) ]

Для подсчёта количества открытия файла и вывода результата в ячейке A1, разместите в стандартном модуле :
 
Sub Auto_Open()
 Worksheets(1).Cells(1) = Worksheets(1).Cells(1) + 1 ' Вариант № 1.
 'Worksheets(1).Cells(1, 1) = Worksheets(1).Cells(1, 1) + 1 ' Вариант № 2.
 'Worksheets(1).Range("A1") = Worksheets(1).Range("A1") + 1 ' Вариант № 3.
 'Выберите один из вариантов иначе они будут отрабатывать все и суммироваться!
End Sub 
  • В ячейку A1 нельзя вносить данные. Если Вы внесёте числовые данные - то они приплюсуются к уже имеющимся, если отличные от числовых, то Вы получите ошибку.
  • Можно также использовать события рабочей книги Workbook_Open()
Добавил: Serge_007 | | Теги: макрос, VBA, Подсчёт количества открытий файла, Count Open
Просмотров: 3766 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!