ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / type mismatch при Like
10 сообщений из 10, страница 1 из 1
type mismatch при Like
    #39040140
rm2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rm2
Участник
Здравствуйте.
Пишу вот такой код:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Sub macr()

Dim i As Integer

    For i = 2 To 256
            If Cells(4, i).Value Like "*query*" Then
                MsgBox "!!!"
                End If
        Next i

End Sub



Во всех ячейках записано "_query_"
Соответственно я хочу их найти
Однако возникает ошибка type mismatch
Что я делаю не так? Сколько не курил Гугл, всё вроде правильно написал
...
Рейтинг: 0 / 0
01.09.2015, 07:50
| Ответить | Цитировать | Написать  
type mismatch при Like
    #39040143
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
rm2,

может какая то ячейка null
попробуйте
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Sub macr()

Dim i As Integer

    For i = 2 To 256
            If "" & Cells(4, i).Value Like "*query*" Then
                MsgBox "!!!"
                End If
        Next i

End Sub
...
Рейтинг: 0 / 0
01.09.2015, 07:58
| Ответить | Цитировать | Написать  
type mismatch при Like
    #39040147
rm2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rm2
Участник
ПЕНСИОНЕРКАrm2,

может какая то ячейка null
попробуйте
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Sub macr()

Dim i As Integer

    For i = 2 To 256
            If "" & Cells(4, i).Value Like "*query*" Then
                MsgBox "!!!"
                End If
        Next i

End Sub



Такая же ошибка с вашим кодом ((((
...
Рейтинг: 0 / 0
01.09.2015, 08:14
| Ответить | Цитировать | Написать  
type mismatch при Like
    #39040148
rm2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rm2
Участник
ПЕНСИОНЕРКА,

Там в ячейках стоит =query1_st1
=query1_st2
=query1_st3
=query1_st4
И так далее до 256
...
Рейтинг: 0 / 0
01.09.2015, 08:16
| Ответить | Цитировать | Написать  
type mismatch при Like
    #39040181
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Файл в студию.
...
Рейтинг: 0 / 0
01.09.2015, 09:11
| Ответить | Цитировать | Написать  
type mismatch при Like
    #39040204
rm2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rm2
Участник
AkinaФайл в студию.
Файл excel что ли?
А как тут прикреплять файлы?
...
Рейтинг: 0 / 0
01.09.2015, 09:38
| Ответить | Цитировать | Написать  
type mismatch при Like
    #39040206
rm2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rm2
Участник
rm2AkinaФайл в студию.
Файл excel что ли?
А как тут прикреплять файлы?
Разобрался
...
Рейтинг: 0 / 0
01.09.2015, 09:42
| Ответить | Цитировать | Написать  
type mismatch при Like
    #39040223
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
rm2Файл excel что ли?
Да я почём знаю, чё у тебя там за файл... кстати, мог бы выбрать правильный раздел для темы.

rm2Там в ячейках стоит =query1_st1
=query1_st2
=query1_st3
=query1_st4
И так далее до 256
У тебя в ячейках - формулы. Соответственно надо сравнивать не .Value, а .Formula. Вот только формулы эти твои ведут в никуда - в книге не описаны пользовательские функции с такими именами.
...
Рейтинг: 0 / 0
01.09.2015, 09:59
| Ответить | Цитировать | Написать  
type mismatch при Like
    #39040225
hclubmk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
hclubmk
Участник
Код: vbnet
1.
If Cells(4, i).FormulaLocal Like "*query*" Then
...
Рейтинг: 0 / 0
01.09.2015, 09:59
| Ответить | Цитировать | Написать  
type mismatch при Like
    #39040268
rm2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rm2
Участник
hclubmk
Код: vbnet
1.
If Cells(4, i).FormulaLocal Like "*query*" Then



Спасибо - помогло ))
...
Рейтинг: 0 / 0
01.09.2015, 10:40
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / type mismatch при Like
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=39040268&tid=2155808]:
 0ms
get settings:
 8ms
get forum list:
 11ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 37ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 49ms
get tp. blocked users:
 1ms
others: 21ms
total:  147ms
созд. / загр.: 147ms
x
x
Закрыть


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