Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.11.2011, 21:37   #1
AlienZ
Новичок
Джуниор
 
Регистрация: 16.03.2010
Сообщений: 2
По умолчанию Переход к определенной строке

Доброго времени суток!
Есть вопрос!

Есть книга в excel, в столбце B расположены даты.
Хочу написать макрос, который будет искать ячейку с текущей датой и либо выбирать ее, либо пролистывать таблицу до нее.
В макросах мало чего понимаю, поэтому дальше t = Date не ушел((((
Помогите пожалуйста!
AlienZ вне форума Ответить с цитированием
Старый 14.11.2011, 22:23   #2
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

Код:
Sub tt()
    Dim x As Range
    Set x = Intersect(UsedRange, Columns(2)).Find(Date)
    If Not x Is Nothing Then
        x.Select
    End If
End Sub
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума Ответить с цитированием
Старый 14.11.2011, 22:33   #3
AlienZ
Новичок
Джуниор
 
Регистрация: 16.03.2010
Сообщений: 2
По умолчанию

Пишет Run-time error '424';
Object required
и выделяет строку Set x = Intersect(UsedRange, Columns(2)).Find(Date)
AlienZ вне форума Ответить с цитированием
Старый 14.11.2011, 23:03   #4
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

Попробуйте так, у меня сработало
Set x = Columns(2).Find(Date)
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума Ответить с цитированием
Старый 14.11.2011, 23:10   #5
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

А так?
Код:
    Set x = Intersect(ActiveSheet.UsedRange, Columns(2)).Find(Date)
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума Ответить с цитированием
Старый 14.11.2011, 23:43   #6
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

Цитата:
А так?
А так все ОК!
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума Ответить с цитированием
Старый 15.11.2011, 00:01   #7
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

У меня под 2007 работают оба варианта.
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума Ответить с цитированием
Старый 15.11.2011, 00:04   #8
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

Ясно.
ТС как всегда не указал свою версию Excel
У меня 2003-й
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
В целочисленной матрице NxM в каждой строке определить числа, которых нет в следующей строке (Паскаль) Sheffdmb2010 Паскаль, Turbo Pascal, PascalABC.NET 3 21.10.2011 08:33
Сделать таблицу с определенной последовательностью deimos606 Microsoft Office Excel 1 13.02.2011 11:29
Переход к строке panda88 БД в Delphi 2 09.05.2010 18:42
Передача с определенной частотой megakatapuz Общие вопросы C/C++ 1 03.01.2010 01:47
Поиск последней записи в определенной строке Maxx Microsoft Office Excel 5 04.03.2009 14:01