Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / vba CountIf и длинная строка / 3 сообщений из 3, страница 1 из 1
03.02.2017, 14:58
    #39398243
sven1212
sven1212
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vba CountIf и длинная строка
Добрый день.
Помогите пожалуйста решить проблему.
Использую код для определения того, что введенное значение допустимо (существует на "Лист1")

Код: vbnet
1.
2.
3.
4.
5.
6.
...
vl = c1(i).Value
If Application.CountIf(Sheets("Лист1").Range("A1:A" & Sheets("Лист1").Cells.SpecialCells(xlLastCell).Row), vl) = 0 Then
     MsgBox("Ошибка в ячейке!")
End If
...



Проблема в том, что когда значение в проверяемой ячейке (c1(i).Value) - "очень длинная строка" (в моем случае 1536 символов кириллицей), получаю ошибку
Код: vbnet
1.
Run-time error '13': Type mismatch



В описании функции ограничений на длину второго параметра нет..
Как можно обойти эту проблему?

Спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.02.2017, 15:05
    #39398254
sven1212
sven1212
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vba CountIf и длинная строка
Опытным путем установил, что максимальная длина строки 255 символов.

Вопрос - как это обойти (подсчитать кол-во значений в <ячейке> представленных в заданном диапазоне другого листа)?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.02.2017, 15:11
    #39398265
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vba CountIf и длинная строка
sven1212получаю ошибкуНа каком из двух операторов - мы должны угадать?

И для проверки наличия лучше использовать
Код: vbnet
1.
If IsNothing(Range.Find(параметры)) Then
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / vba CountIf и длинная строка / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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