Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
перейти к ячейке с текущей датой
 
#1
22.07.2022 21:00:24
Привет.

Как по кнопке перейти к ячейке с текущей датой дата находиться в столбце А
 
 
 
#2
22.07.2022 21:16:55
Код
Sub Macro1()
Dim Rng As Range
    Set Rng = Columns(1).Find(what:=Date, LookIn:=xlFormulas, LookAt:=xlWhole)
    If Not Rng Is Nothing Then Rng.Select
End Sub
 
 
 
#3
22.07.2022 21:25:31
не сработало
 
 
 
#4
22.07.2022 21:27:29
Вариант с функцией HYPERLINK()
Код
=IFERROR(HYPERLINK("#"&ADDRESS(MATCH(TODAY();$A$1:$A$100;0);1;3);"Click");"")
Изменено: memo - 22.07.2022 21:29:35
 
 
 
#5
22.07.2022 21:32:50
Цитата
написал:
не сработало
а так:
Код
Sub Macro1()
  Dim Rng As Range
  Set Rng = Columns(1).Find(Date, , xlValues, xlWhole)
  If Not Rng Is Nothing Then Rng.Select
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#6
22.07.2022 21:35:56
Цитата
fedsum написал:не сработало
У меня сработало.
При копировании потерялась буква t в слове Select
 
 
 
#7
22.07.2022 21:51:45
от Ігор Гончаренко сработало
и гиперссылкой тоже класс спасибо
сори Юрий М тоже работает
Изменено: fedsum - 22.07.2022 21:56:25
 
 
 
Страницы: 1
Наверх