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

Вход

Регистрация

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

 

= Мир MS Excel/Открытие файла с даты СЕГОДНЯ - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Открытие файла с даты СЕГОДНЯ (Формулы/Formulas)
Открытие файла с даты СЕГОДНЯ
Dinamit Дата: Суббота, 27.04.2019, 07:56 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 61
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Привет.
Есть файл, в левом столбце через группировку строк прописан весь календарный год.
Подскажите плиз как сделать чтобы при открытии файла, открывалась соответствующая дата (начало - первая строка из списка дат). Например, если сегодня было бы 3 января, то от сверху показывал строку 510, можно не в раскрытом состоянии.
Пример группировки во вложении.
Часть дат удалил, много фай весит.

Спасибо.
К сообщению приложен файл: 9623772.xlsx (95.8 Kb)
 
Ответить
СообщениеПривет.
Есть файл, в левом столбце через группировку строк прописан весь календарный год.
Подскажите плиз как сделать чтобы при открытии файла, открывалась соответствующая дата (начало - первая строка из списка дат). Например, если сегодня было бы 3 января, то от сверху показывал строку 510, можно не в раскрытом состоянии.
Пример группировки во вложении.
Часть дат удалил, много фай весит.

Спасибо.
Автор - Dinamit
Дата добавления - 27.04.2019 в 07:56
dude Дата: Суббота, 27.04.2019, 18:32 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 193
Репутация: 28 ±
Замечаний: 0% ±

2016
в модуль книги и сохранить как xlsm
[vba]
Код
Private Sub workbook_open()
lr = Cells(Rows.Count, 1).End(xlUp).Row
ra = Range(Cells(2, 1), Cells(lr, 1))
For i = 1 To lr - 1
If ra(i, 1) = Date Then
Cells(i + 1, 1).Select
Exit For
End If
Next
End Sub
[/vba]
 
Ответить
Сообщениев модуль книги и сохранить как xlsm
[vba]
Код
Private Sub workbook_open()
lr = Cells(Rows.Count, 1).End(xlUp).Row
ra = Range(Cells(2, 1), Cells(lr, 1))
For i = 1 To lr - 1
If ra(i, 1) = Date Then
Cells(i + 1, 1).Select
Exit For
End If
Next
End Sub
[/vba]
Автор - dude
Дата добавления - 27.04.2019 в 18:32
Dinamit Дата: Воскресенье, 28.04.2019, 22:31 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 61
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Не работает.
 
Ответить
СообщениеНе работает.
Автор - Dinamit
Дата добавления - 28.04.2019 в 22:31
RAN Дата: Понедельник, 29.04.2019, 13:15 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
[vba]
Код
Private Sub Workbook_Open()
    ActiveWindow.ScrollRow = Sheets(1).Columns(1).Find(Date).Row
End Sub
[/vba]

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[vba]
Код
Private Sub Workbook_Open()
    ActiveWindow.ScrollRow = Sheets(1).Columns(1).Find(Date).Row
End Sub
[/vba]
Автор - RAN
Дата добавления - 29.04.2019 в 13:15
Dinamit Дата: Среда, 01.05.2019, 17:54 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 61
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
RAN, спасибо, но почему-то тоже не работает. У меня там макросы другие уже есть. Может из-за этого. Но ошибки не выскакивает при открывании.
Пробовал в модуль 2 ваше значение записать. Так же не работает.

Спс
 
Ответить
СообщениеRAN, спасибо, но почему-то тоже не работает. У меня там макросы другие уже есть. Может из-за этого. Но ошибки не выскакивает при открывании.
Пробовал в модуль 2 ваше значение записать. Так же не работает.

Спс
Автор - Dinamit
Дата добавления - 01.05.2019 в 17:54
Pelena Дата: Среда, 01.05.2019, 18:11 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 19182
Репутация: 4420 ±
Замечаний: ±

Excel 365 & Mac Excel
Надо не в Модуль2, а в модуль книги (Эта книга)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеНадо не в Модуль2, а в модуль книги (Эта книга)
Автор - Pelena
Дата добавления - 01.05.2019 в 18:11
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Открытие файла с даты СЕГОДНЯ (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!