Открытие Excel файла на текущей дате - Microsoft Office Excel

Million · 04.09.2008, 11:08

Подскажите как решить следующую задачу.
Есть Excel файл (Ежедневка), который содержет два листа. На первом листе таблица с датами и строками для внесения поручений. На втором листе итоговая таблица за месяц. Как сделать чтоб при открытии этого файла, он открывался на первом листе и на текущей дате?

SAS888 · 04.09.2008, 13:32

Если в модуль "Эта книга" вставить код

Код:

Private Sub Workbook_Open()

    Dim x As Object
    Set x = Sheets(1).Columns("A").Find(what:=Date, LookAt:=xlWhole)
    If Not x Is Nothing Then Sheets(1).Range(x.Address).Select

End Sub

то при открытии книги, если в столбце "A" на первом листе найдется сегодняшняя дата, будет активирована эта ячейка.
Так нужно было?

Million · 04.09.2008, 20:37

Да именно так
Спасибо, все работает просто супер

04.09.2008, 11:08	#1
Million Регистрация: 03.09.2008 Сообщений: 4	Открытие Excel файла на текущей дате Подскажите как решить следующую задачу. Есть Excel файл (Ежедневка), который содержет два листа. На первом листе таблица с датами и строками для внесения поручений. На втором листе итоговая таблица за месяц. Как сделать чтоб при открытии этого файла, он открывался на первом листе и на текущей дате?

04.09.2008, 13:32	#2
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	Если в модуль "Эта книга" вставить код Код: `Private Sub Workbook_Open() Dim x As Object Set x = Sheets(1).Columns("A").Find(what:=Date, LookAt:=xlWhole) If Not x Is Nothing Then Sheets(1).Range(x.Address).Select End Sub` то при открытии книги, если в столбце "A" на первом листе найдется сегодняшняя дата, будет активирована эта ячейка. Так нужно было? Чем шире угол зрения, тем он тупее.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Открытие Excel файла на текущей дате	Million	Помощь студентам	1	04.09.2008 06:44
Перезапись файла в текущей позиции	Андрей=	Общие вопросы Delphi	2	08.05.2008 17:19
Условие на открытие файла Excel	Hant	Microsoft Office Excel	2	07.05.2008 13:36
Поиск по дате создания файла	kayman	БД в Delphi	1	14.09.2007 14:54
Поиск по дате создания файла	kayman	Общие вопросы Delphi	1	14.09.2007 10:36

04.09.2008, 20:37	#3
Million Регистрация: 03.09.2008 Сообщений: 4	Да именно так Спасибо, все работает просто супер