Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
VBA + Excel + метод Find + Даты
 
#1
21.07.2010 19:49:44
Всем привет!  
 
Задача: надо, чтобы максрос находил заданную дату на листе  
 
Rак не работает:  
   Sub  
       Dim MyDate As Date  
       MyDate = ActiveCell.Offset(0, -2).Value  
       Windows("File.xls").Activate  
       Sheets("Sheet1").Select  
       Cells.Find(MyDate).Activate  
   End Sub  
 
То же, но с четко указанной датой работает:  
 
   Sub  
       Windows("File.xls").Activate  
       Sheets("Sheet1").Select  
       Cells.Find("11.12.2010").Activate  
   End Sub  
 
Хелп! Буду крайне признательна :)
 
 
 
#2
21.07.2010 20:12:57
Попробуйте искать строку: Dim MyDate As string
 
 
 
#3
22.07.2010 10:06:01
{quote}{login=Юрий М}{date=21.07.2010 08:12}{thema=}{post}Попробуйте искать строку: Dim MyDate As string{/post}{/quote}  
 
Не лучший вариант, потому что я использую "MyDate" не только здесь. И она мне нужна как дата.
 
 
 
#4
22.07.2010 10:08:02
{quote}{login=The_Prist}{date=21.07.2010 08:14}{thema=}{post}Cells.Find(CDbl(MyDate),,xlvalues,xlwhole).Activate{/post}{/quote}  
 
Пишет "Error 9: Subscript out of range"
 
 
 
#5
22.07.2010 10:14:29
{quote}{login=The_Prist}{date=21.07.2010 08:14}{thema=}{post}Cells.Find(CDbl(MyDate),,xlvalues,xlwhole).Activate{/post}{/quote}  
Дим, вообще-то если только дата, достаточно Clng ИМХО. Как-то по поводу автофильтра был диспут...
Я сам - дурнее всякого примера! ...
 
 
 
#6
22.07.2010 10:24:41
Меня вот эта строка автора натолкнула на Clng: "Cells.Find("11.12.2010").Activate". И тут же чувствуется правота Юры. Похоже, на текст. Циклом искать Cdate(cell) будет геморно, так-что либо Юрин вариант, либо изменение форматов в таблице.
Я сам - дурнее всякого примера! ...
 
 
 
#7
22.07.2010 10:33:46
ну попробуйте  
 
Cells.Find(format(MyDate,"ddMMYYYY").Activate
 
 
 
#8
22.07.2010 10:44:17
Дык,  автор пишет: "Не лучший вариант, потому что я использую "MyDate" не только здесь. И она мне нужна как дата." Значит все же дата?    
Warbler, Вы бы выложили пример, где не ищет, давно бы получили ответ. А так мы гадаем здесь гурьбой, чего Вам нужно.
Я сам - дурнее всякого примера! ...
 
 
 
#9
22.07.2010 12:12:35
{quote}{login=KuklP}{date=22.07.2010 10:44}{thema=}{post}Дык,  автор пишет: "Не лучший вариант, потому что я использую "MyDate" не только здесь. И она мне нужна как дата." Значит все же дата?    
Warbler, Вы бы выложили пример, где не ищет, давно бы получили ответ. А так мы гадаем здесь гурьбой, чего Вам нужно.{/post}{/quote}  
 
Все вижу, все читаю, не успеваю пробовать :-[
 
Файл выложу, просто "как есть" его выложить не могу, нужно некоторое время на переделку.
 
 
 
#10
22.07.2010 16:52:16
меня тоже постоянно мучит этот вопрос)  
 
вот как правильно записать макрос чтобы работало?
 
 
 
#11
22.07.2010 17:54:20
Спасибо) но как работает все равно не понятно)
 
 
 
#12
23.07.2010 12:48:04
Не могу понять, в процессе создания файла для образца все заработало. В таком виде, в каком написано в первом посте. Теперь не могу вернуть ошибку, чтобы понять, в чем была проблема :-[
 
Всем большое спасибо :)
 
 
 
#13
23.07.2010 12:51:31
Наверное, Вы просто исправили "Rак не работает" на "Так не работает" :-)
 
 
 
#14
23.07.2010 13:01:38
{quote}{login=Юрий М}{date=23.07.2010 12:51}{thema=}{post}Наверное, Вы просто исправили "Rак не работает" на "Так не работает" :-){/post}{/quote}  
 
Не на "Так", а на "Как" ;)
 
 
 
#15
30.03.2012 08:12:17
Не Cells.Find(MyDate).Activate  
 
А  Cells.Find(What:=MyDate).Activate
 
 
 
#16
30.03.2012 12:03:01
:-)И как бы между прочим, сказала невпопад. Не говоря уже, что теме 2 года.  
Wulf007, может поясните форуму, в чем высшая мудрость Вашего варианта?
Я сам - дурнее всякого примера! ...
 
 
 
Страницы: 1
Читают тему
Наверх