ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Поиск даты с помощью VBA
12 сообщений из 12, страница 1 из 1
Поиск даты с помощью VBA
    #37886430
Feanaro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Feanaro
Гость
Всем доброго времени суток.
На листе имеется лента с датами, полученными с помощью формул. В коде необходимо узнать номер стобца искомой даты. Тестовый код:
Код: vbnet
1.
Cells.Find(DateValue("01.04.2012"), LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False).Column


возвращает ошибку 91 'Object Variable or With block variable not set'.
Искомая тестовая дата имеется на листе. По форумам посмотрел, имеется нюанс с форматом дат, поэтому использовал DateValue(). Но код, тем не менее, не работает.
Подскажите, подалуйста, как можно поступить в данном случае?
...
Рейтинг: 0 / 0
20.07.2012, 10:03
| Ответить | Цитировать | Написать  
Поиск даты с помощью VBA
    #37886567
TpaBka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TpaBka
Участник
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Dim MyDate As Date, rFndRng As Object
MyDate = "01.04.2012"

With ActiveSheet

    Set rFndRng = .UsedRange.Find(MyDate, , xlValues, xlWhole)
    
    If Not rFndRng Is Nothing Then
        .Activate: rFndRng.Activate
    Else
        MsgBox "Дата " & MyDate & " не найдена ", vbInformation
    End If
    
End With
...
Рейтинг: 0 / 0
20.07.2012, 11:14
| Ответить | Цитировать | Написать  
Поиск даты с помощью VBA
    #37886913
Feanaro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Feanaro
Гость
TpaBka, не выходит.
...
Рейтинг: 0 / 0
20.07.2012, 13:16
| Ответить | Цитировать | Написать  
Поиск даты с помощью VBA
    #37886928
Feanaro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Feanaro
Гость
Пишет:"Subscript out of Range". Сама дата все также на листе присутсвует, но VBA в упор не находит её.
...
Рейтинг: 0 / 0
20.07.2012, 13:23
| Ответить | Цитировать | Написать  
Поиск даты с помощью VBA
    #37886972
TpaBka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TpaBka
Участник
А почему тогда у меня находит?
Попробуй тогда
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Dim MyDate As Date, rFndRng As Object
MyDate = "01.04.2012"

With ActiveSheet

    Set rFndRng = .Range(Cells(1, 1), Cells(Rows.Count, Columns.Count)).Find(MyDate, , xlValues, xlWhole)
    
    If Not rFndRng Is Nothing Then
        .Activate: rFndRng.Activate
    Else
        MsgBox "Дата " & MyDate & " не найдена ", vbInformation
    End If
    
End With
...
Рейтинг: 0 / 0
20.07.2012, 13:43
| Ответить | Цитировать | Написать  
Поиск даты с помощью VBA
    #37887015
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Казанский
Гость
TpaBka
> А почему тогда у меня находит?

А потому что дата в ячейках в формате по умолчанию. Попробуй поменять формат ячеек хотя бы на ДД.ММ.ГГ - и не найдет!
Я в свое время пробовал и так и эдак - не получилось. С тех пор ищу дату перебором в массиве.
...
Рейтинг: 0 / 0
20.07.2012, 13:59
| Ответить | Цитировать | Написать  
Поиск даты с помощью VBA
    #37887031
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Казанский
Гость
На Вашем примере так:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Sub Макрос1()
Dim MyDate As Date, rFndRng As Object, i&, x
MyDate = "01.04.2012"

With ActiveSheet.UsedRange.Columns(1)
    For Each x In .Value
        i = i + 1
        If x = MyDate Then
            Set rFndRng = .Cells(i)
            rFndRng.Activate
            Exit Sub
        End If
    Next
End With
MsgBox "Дата " & MyDate & " не найдена ", vbInformation
End Sub
...
Рейтинг: 0 / 0
20.07.2012, 14:08
| Ответить | Цитировать | Написать  
Поиск даты с помощью VBA
    #37887056
TpaBka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TpaBka
Участник
КазанскийTpaBka
> А почему тогда у меня находит?

А потому что дата в ячейках в формате по умолчанию. Попробуй поменять формат ячеек хотя бы на ДД.ММ.ГГ - и не найдет!
Я в свое время пробовал и так и эдак - не получилось. С тех пор ищу дату перебором в массиве.

Дело не в формате, если бы не нашло нужную дату, то было бы сообщение.
А так вываливается ошибка
...
Рейтинг: 0 / 0
20.07.2012, 14:20
| Ответить | Цитировать | Написать  
Поиск даты с помощью VBA
    #37887065
Feanaro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Feanaro
Гость
'Subscript out...' перестал вываливаться. ВЫлетает с ошибкой, означенной в стартовом посте. Я ее получал в методе Find, когда он не находил требуемые данные. Но фишка-то в том, что они там есть =/
...
Рейтинг: 0 / 0
20.07.2012, 14:23
| Ответить | Цитировать | Написать  
Поиск даты с помощью VBA
    #37887091
TpaBka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TpaBka
Участник
а в моем файле находит?
12893232

З.Ы.
Прислушайся к совету Казанский
12893363
...
Рейтинг: 0 / 0
20.07.2012, 14:33
| Ответить | Цитировать | Написать  
Поиск даты с помощью VBA
    #37887104
Feanaro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Feanaro
Гость
TpaBka, у тебя находит. Пробую приделать какие-нибудь костылики, потом попробую то, что Казанский посоветовал.
...
Рейтинг: 0 / 0
20.07.2012, 14:37
| Ответить | Цитировать | Написать  
Поиск даты с помощью VBA
    #37887174
Feanaro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Feanaro
Гость
Сделал как посоветовал Казанский (с необходимыми мне модификациями). заработало. Большое спасибо.
...
Рейтинг: 0 / 0
20.07.2012, 15:10
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Поиск даты с помощью VBA
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=37887091&tid=2157573]:
 0ms
get settings:
 11ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 38ms
get topic data:
 9ms
get forum data:
 3ms
get page messages:
 44ms
get tp. blocked users:
 1ms
others: 286ms
total:  413ms
созд. / загр.: 413ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]