Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / type mismatch при Like / 10 сообщений из 10, страница 1 из 1
01.09.2015, 07:50
    #39040140
rm2
rm2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
type mismatch при Like
Здравствуйте.
Пишу вот такой код:
Код: 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:58
    #39040143
ПЕНСИОНЕРКА
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
type mismatch при Like
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
    #39040147
rm2
rm2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
type mismatch при Like
ПЕНСИОНЕРКА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:16
    #39040148
rm2
rm2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
type mismatch при Like
ПЕНСИОНЕРКА,

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

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



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


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