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

Вход

Регистрация

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

 

= Мир MS Excel/Модуль выбора ячейки при запуске файла Exel - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Модуль выбора ячейки при запуске файла Exel
evYpe Дата: Воскресенье, 22.03.2020, 13:36 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Здравствуйте. Вопросы такой. Есть файл Excel (приложен). В ячейках столбца "B" указаны даты рабочих дней в текущем году. Нужен макрос, который при запуске файла будет выбирать ячейку с датой равной текущей. Желательно еще кнопочку замутить на листе, чтобы кликая по ней опять выбиралась ячейка с текущей датой. Спасибо.
К сообщению приложен файл: 8314263.xlsx (47.8 Kb)
 
Ответить
СообщениеЗдравствуйте. Вопросы такой. Есть файл Excel (приложен). В ячейках столбца "B" указаны даты рабочих дней в текущем году. Нужен макрос, который при запуске файла будет выбирать ячейку с датой равной текущей. Желательно еще кнопочку замутить на листе, чтобы кликая по ней опять выбиралась ячейка с текущей датой. Спасибо.

Автор - evYpe
Дата добавления - 22.03.2020 в 13:36
Nic70y Дата: Понедельник, 23.03.2020, 09:23 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 9005
Репутация: 2369 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Private Sub Workbook_Open()
    u_701
End Sub
[/vba]
[vba]
Код
Sub u_701()
    Dim u_1 As Double
    u_1 = Date
    u_2 = Application.Match(u_1, Range("b:b"), 0)
    u_3 = Application.IsNumber(u_2)
    If u_3 Then
        Range("b" & u_2).Select
        ActiveWindow.ScrollRow = u_2
    Else
        MsgBox "Сёдня не обнаружено!"
    End If
End Sub
[/vba]
К сообщению приложен файл: 8314263.xlsm (60.0 Kb)


ЮMoney 41001841029809
 
Ответить
Сообщение[vba]
Код
Private Sub Workbook_Open()
    u_701
End Sub
[/vba]
[vba]
Код
Sub u_701()
    Dim u_1 As Double
    u_1 = Date
    u_2 = Application.Match(u_1, Range("b:b"), 0)
    u_3 = Application.IsNumber(u_2)
    If u_3 Then
        Range("b" & u_2).Select
        ActiveWindow.ScrollRow = u_2
    Else
        MsgBox "Сёдня не обнаружено!"
    End If
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 23.03.2020 в 09:23
  • Страница 1 из 1
  • 1
Поиск:

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