Увеличение значения ячейки при открытии файла - Microsoft Office Excel

robotov · 17.06.2009, 16:28

Увеличение значения ячейки при открытии файла. то есть, условно говоря, счетчик количества открытий файла.
Возможно ли вообще такое? Если да- подскажите как сделать?)
Спасибо

EducatedFool · 17.06.2009, 16:33

Код:

Private Sub Workbook_Open()
    [d24] = [d24] + 1 ' увеличиваем значение в ячейке D24.
    ThisWorkbook.Save    ' сохраняем файл. иначе, если закроют документ без сохранения,
    ' значение счётчика не увеличится.
End Sub

Вставьте код в модуль ЭтаКнига
Макросы должны быть включены - иначе работать не будет.

robotov · 17.06.2009, 17:49

о спасибо. Работает. только добавил [Sheet2!d24] - для увеличения ячейки на 2 странице.

17.06.2009, 16:28	#1
robotov Пользователь Регистрация: 17.06.2009 Сообщений: 14	Увеличение значения ячейки при открытии файла Увеличение значения ячейки при открытии файла. то есть, условно говоря, счетчик количества открытий файла. Возможно ли вообще такое? Если да- подскажите как сделать?) Спасибо

17.06.2009, 16:33	#2
EducatedFool Программист VBA СуперМодератор Регистрация: 13.07.2008 Сообщений: 6,856	Код: `Private Sub Workbook_Open() [d24] = [d24] + 1 ' увеличиваем значение в ячейке D24. ThisWorkbook.Save ' сохраняем файл. иначе, если закроют документ без сохранения, ' значение счётчика не увеличится. End Sub` Вставьте код в модуль ЭтаКнига Макросы должны быть включены - иначе работать не будет. __Полезные надстройки для Excel. Парсинг сайтов и файлов. Макросы любой сложности на заказ. Мониторинг цен конкурентов

17.06.2009, 17:49	#3
robotov Пользователь Регистрация: 17.06.2009 Сообщений: 14	о спасибо. Работает. только добавил [Sheet2!d24] - для увеличения ячейки на 2 странице. Последний раз редактировалось robotov; 17.06.2009 в 18:00.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Ошибка при открытии файла	Ciberal	Общие вопросы Delphi	2	09.06.2009 22:58
Ошибка при открытии файла.doc	ruavia3	Microsoft Office Word	1	20.05.2009 20:27
Зависание при открытии сетевого файла	Bes1k	Microsoft Office Excel	1	02.03.2009 07:38
C++: ошибка при открытии файла	Retiz	Помощь студентам	2	30.08.2008 22:12
ошибка при открытии файла pas	Var17	Общие вопросы Delphi	2	23.01.2008 15:30