Определение типа данных в ячейке с помощью VBA

[НеВа6464]

Здравствуйте!
Постоянно испытываю трудности с типами данных в своих таблицах.
И вот опять.
Есть таблица, где в столбце встречаются числа записанные как текст и как число.
Пытался узнать тип с помощью функции IsNumeric.
Есть ячейка с "1 700,000" (текстом) и ячейка с 1700 (число).
Записываю значение ячейки в переменную с помощью функции Cells
Проверяю эту переменную функцией IsNumeric.
В обоих случаях True.
Как так то?
Забиваю в ячейку "абвгд", проверяю - всё норм - IsNumeric выдаёт False.
Свою проблему решил путём умножения переменной на единицу.
Но осадочек остался.
Вопрос.
Как же надёжно определить с помощью VBA число или текст, если в ячейке только цифры?
У меня Excel 2003.
Форум покурил немного, не нашёл подобной темы. Извините, если баяню.

[Aleksandr H.]

Сообщение от НеВа6464

Форум покурил немного, не нашёл подобной темы.

гугла курили?
https://www.google.com/search?client...+get+cell+type

Вот как вариант попробуйте может на вашем мамонте сработает

Function CellType(pRange As Range)
'Updateby20140625
Application.Volatile
Set pRange = pRange.Range("A1")
Select Case True
    Case VBA.IsEmpty(pRange): CellType = "Blank"
    Case Application.IsText(pRange): CellType = "Text"
    Case Application.IsLogical(pRange): CellType = "Logical"
    Case Application.IsErr(pRange): CellType = "Error"
    Case VBA.IsDate(pRange): CellType = "Date"
    Case VBA.InStr(1, pRange.Text, ":") <> 0: CellType = "Time"
    Case VBA.IsNumeric(pRange): CellType = "Value"
End Select
End Function

[НеВа6464]

Спасибо.
Я надеялся, что есть функция, которая сразу выдаст тип данных в ячейке.
Этот алгоритм понятен, только вот у меня, как я выше написал, странно работает IsNumeric. Она выдаёт True, когда в ячейке "1 700,000". А это текст на самом деле.

ПС. По одной из ссылок вашего запроса в гугле нашёл функцию TypeName.
Похоже, это то что надо.

ППС. Проверил. Работает. Правда умножение на единицу гораздо проще, чем выяснение типа, а затем телодвижения по изъятию пробелов и превращению в число.
Но зато на душе стало спокойнее. ))

[Aleksandr H.]

Сообщение от НеВа6464

А это текст на самом деле.

Это вы, а не ексель, для себя, по каким-то своим критериям, решили что "1 700,00" текст, а не формат #,##0.00 отображения числа

[НеВа6464]

Сообщение от Aleksandr H.

Это вы, а не ексель, для себя, по каким-то своим критериям, решили что "1 700,00" текст, а не формат #,##0.00 отображения числа

Жёстко вы троллите. )))
Отличить текст от числа, на самом деле, сможет даже начинающий, с изумлением увидев, что результат вычисления с ячейкой приводит к ошибке. Или по выравниванию. Число, по умолчанию, прижимается к правому краю ячейки, как у вас в примере, а текст к левому краю, что сразу же бросается в глаза.
Стал бы я вообще париться с типами, если бы эти мои "1 700,000" были числом.
Но функция IsNumeric действительно ведёт себя странно.

[Aleksandr H.]

Сообщение от НеВа6464

Спасибо.
Правда умножение на единицу гораздо проще, чем выяснение типа, а затем телодвижения по изъятию пробелов и превращению в число.
Но зато на душе стало спокойнее. ))

В вас задача перевести все данные из столбца в числа? Старый метод иногда здорово помогает-выделить исходный столбец;выбрать формат ячеек "числовой"; выбрать "текст по столбцам"; ничего не меняя, нажать ок.

[alex777555]

Сообщение от НеВа6464

Есть ячейка с "1 700,000" (текстом)

а точно ли там текст?
А не формат ячейки? У меня, например, формат числа 1700

[Aleksandr H.]

alex777555 вы не знаете как фактически оно отображается в ТС, он указал что он(ТС, не ексель) визуально число от текста различает таким способом,

Число, по умолчанию, прижимается к правому краю ячейки, как у вас в примере, а текст к левому краю, что сразу же бросается в глаза.

[alex777555]

Есть ячейка с "1 700,000" (текстом)

Формат ячейки текстовой?
По тому, что при вставке или вводе 1 700,000 в ячейку с общим форматом ексел сам переводит формат в числовой. Вставить как текст можно только в ячейку с текстовым форматом
но тогда можно определять по формату ячейки NumberFormat

[IgorGO]

alex777555
откройте файла, посмотрите на А1, А2
чем NumberFormat поможет вам определить что там числа 7 и 12? чем???