Проверка типа данных в ячейке excel vba

Определение типа данных в ячейке или переменной

В языке VBA есть универсальные типы данных, т.е. способные хранить как число, так и строку, дату и любой другой тип информации. Например, ячейка в таблице может содержать что угодно и изначально, программа не знает какой в ней тип данных хранится. Кроме того, в самой программе может использоваться тип данных Variant, который так же может содержать любое значение любого типа.

Чтобы определить какой тип данных в ячейке или в переменной типа Variant, можно воспользоваться несколькими способами.

Способ 1. Использовать функцию TypeName для определения типа данных

Эта функция возвращает строку с названием типа данных на английском. В качестве аргумента принимает переменную, значение ячейки.
Обратите внимание: Функция определяет только стандартные типы данных и не может определить пользовательский тип (определенный с помощью Type).

Возможные возвращаемые функцией значения:

Byte	Число типа Byte
Integer	Целое число
Long	Длинное целое число
Single	Число одиночной точности с плавающей запятой
Double	Число двойной точности с плавающей запятой
Currency	Валюта
Decimal	Число с плавающей запятой
Date	Дата
String	Строка
Boolean	Логическое
Error	Ошибка
Empty	Не проинициализировано (т.е. переменная не была объявлена)
Null	Неверные данные (в переменной нет корректных данных)
Object	Объект (класс)
Unknown	Тип данных не известен
Nothing	Объект, никуда не ссылающийся

Приведу несколько примеров по использованию TypeName.

Пример 1. Определение типа переменной.

Обратите внимание: если вы используете результат TypeName в условии, т.е. проверяете, соответствует ли тип данных определенному, например, Integer, то регистр символов возвращаемого типа имеет значение. Т.е. нужно писать Integer с заглавной буквы, либо использовать приведение всех символов к одному регистру.

Пример 2. Использование TypeName в условии.

Пример 3. Определение типа данных в ячейке.

Если функции была передана переменная массив, она вернет тип данных в массиве с добавлением скобок.

Пример 4. Определение типа массива.

Способ 2. Проверка на возможность преобразования строки к нужному типу.

Бывает ситуация, когда значение, например, число или дата, содержится в строке. В этом случае TypeName вернет String, а не Integer или Date. Чтобы узнать, что содержится в строке, можно воспользоваться одной из функций IsNumeric, IsDate, IsObject, IsArray, IsNull, IsError.

IsNumeric	Проверяет может ли выражение быть преобразовано в число
IsDate	Проверяет может ли выражение быть преобразовано в дату
IsObject	Проверяет, является ли переменная объектом
IsArray	Проверяет, является ли переменная массивом
IsNull	Проверка на пустое значение
IsError	Проверка выражения на ошибку

Пример 4. Определение может ли переменная быть преобразована в число.

К сожалению, как видим из примера, нет возможности проверить, содержится ли в строке число с плавающей точкой.

Пример 5. Определение содержит ли переменная дату (может быть преобразована в дату).

Проверка, содержится ли число или дата в ячейке листа делается аналогично, как и с переменными.

Помимо этих способов можно конечно еще придумать и другие, например, проверку строки с данными регулярным выражением или пройти по каждому символу в цикле и проверить цифра это или нет и тому подобное. Но на мой взгляд, описанных мной способов вполне достаточно для решения повседневных задач.

Источник

TypeName function

Returns a String that provides information about a variable.

Syntax

TypeName(varname)

The required varname argument is a Variant containing any variable except a variable of a user-defined type.

The string returned by TypeName can be any one of the following:

String returned	Variable
object type	An object whose type is objecttype
Byte	Byte value
Integer	Integer
Long	Long integer
Single	Single-precision floating-point number
Double	Double-precision floating-point number
Currency	Currency value
Decimal	Decimal value
Date	Date value
String	String
Boolean	Boolean value
Error	An error value
Empty	Uninitialized
Null	No valid data
Object	An object
Unknown	An object whose type is unknown
Nothing	Object variable that doesn’t refer to an object

If varname is an array, the returned string can be any one of the possible returned strings (or Variant) with empty parentheses appended. For example, if varname is an array of integers, TypeName returns «Integer() «.

Example

This example uses the TypeName function to return information about a variable.

See also

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.

Источник

Функция TypeName

Возвращает данные String, которые предоставляют информацию о переменной.

Синтаксис

TypeName(варнаме)

Обязательный аргументварнаме представляет собой variant, содержащий любую переменную, кроме переменной определяемого пользователем типа.

Замечания

Строка, возвращаемая функцией TypeName, может быть одного из следующих типов:

Возвращаемая строка	Переменная
тип объекта	Объект, тип которого — objecttype
Byte	Значение типа Byte
Integer	Integer
Long	Целое значение типа Long
Одинарное с плавающей точкой	Число с плавающей запятой (точкой) одиночной точности
Double	Число с плавающей запятой (точкой) двойной точности
Currency	Значение типа Currency
Decimal	Десятичная величина
Date	Значение типа Date
String	String
Логический	Значение типа Boolean
Ошибка	Значение ошибки
Empty	Неинициализированных
Null	Отсутствие допустимых данных
Object	Объект
Unknown	Объект, тип которого не известен
Ничего	Объектная переменная, которая не ссылается на объект

Если аргумент varname — массив, возвращаемая строка может быть любой из возможных возвращаемых строк (или Variant) с добавленными пустыми круглыми скобками. Например, если варнаме является массивом целых чисел, TypeName возвращает «Integer() значение .

Пример

В этом примере функция TypeName используется для возврата информации о переменной.

См. также

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Источник

Информация о типе переменной

Есть такой термин RTTI — run-time type information. Информация о типе переменной, доступная во время выполнения программы. Иногда эта информация оказывается просто необходимой. В VBA есть тип данных Variant, который может принимать значения любого типа за исключением пользовательского. Вот например так:

Sub Test()
Dim v_string As String
Dim v_int As Integer
Dim v_variant As Variant
v_string = «Hello Variant»
v_int = 123
v_variant = v_string
v_variant = v_int
End Sub

Variant можно использовать в качестве аргумента процедуры. В этом случае может потребоваться информация о том, что же находится в переменной в данный момент. Для этого есть функция TypeName(), которая вернет строку с именем типа переменной. Вот пример её использования:

Sub TestVariant()
Dim v_string As String
Dim v_int As Integer
Dim v_variant As Variant
v_string = «Hello Variant»
v_int = 123
v_variant = v_string
MsgBox (TypeName(v_variant))
v_variant = v_int
MsgBox (TypeName(v_variant))
End Sub

Кроме этого есть еще ряд функций для проверки типа переменных. IsArray позволяет проверить, является ли переменная массивом.

Sub TestArray()
Dim v_arr(10) As String
If IsArray(v_arr) Then MsgBox («Массив»)
End Sub

IsEmpty проверяет, была ли переменная инициализирована. Попробуйте запустить код, приведенный ниже, а потом раскомментируйте строку.

Sub TestEmpty()
‘ Dim v_arr As String
If IsEmpty(v_arr) Then MsgBox («NO»)
End Sub

IsDate проверяет можно ли преобразовать переменную к типу даты. При выполнении нижеприведенного кода сообщение появится только один раз.

Sub TestDate()
Dim v_arr As String
v_arr = «01.01.2001»
If IsDate(v_arr) Then MsgBox («YES»)
v_arr = «41.01.2001»
If IsDate(v_arr) Then MsgBox («YES»)
End Sub

Функция IsNumeric проверяет, можно ли перевести строку в число:

Sub TestNumeric()
Dim v_arr As String
v_arr = «not numeric»
If IsNumeric(v_arr) Then MsgBox («YES»)
v_arr = «1998»
If IsNumeric(v_arr) Then MsgBox («YES»)
End Sub

Есть еще несколько подобных функций:

• IsObject — проверяет, является ли переменная обьектом
• IsNull(выражение) — проверка на пустое значение
• IsError(выражение) — проверка выражения, представляет ли оно ошибку

Источник

Определение типа объекта (Visual Basic)

Переменные универсального объекта (то есть переменные, объявленные как Object ) могут содержать объекты из любого класса. При использовании переменных типа Object может потребоваться выполнить различные действия в зависимости от класса объекта. Например, некоторые объекты могут не поддерживать определенное свойство или метод. Visual Basic предоставляет два способа определения типа объекта, хранящегося в объектной переменной TypeName : функция и TypeOf. Is оператор .

TypeName и TypeOf. Является

Функция TypeName возвращает строку и лучше всего подходит для хранения или отображения имени класса объекта, как показано в следующем фрагменте кода:

Оператор TypeOf. Is является лучшим вариантом для тестирования типа объекта, так как он выполняется гораздо быстрее, чем эквивалентное сравнение строк с помощью TypeName . В инструкции используется TypeOf. Is If. Then. Else следующий фрагмент кода:

Здесь должно быть слово предостережения. Оператор TypeOf. Is возвращает значение True , если объект имеет определенный тип или является производным от определенного типа. Почти все, что вы делаете с Visual Basic, включает объекты, которые включают некоторые элементы, которые обычно не считаются объектами, например строки и целые числа. Эти объекты являются производными от и наследуют методы от Object. При передаче Integer и вычислении с Object TypeOf. Is помощью оператор возвращает True . В следующем примере сообщается, что параметр InParam является и : Object Integer

В следующем примере используются и TypeOf. Is TypeName для определения типа объекта, передаваемого ему в аргументе Ctrl . Процедура TestObject вызывается ShowType с тремя различными типами элементов управления.

Запуск примера

Создайте проект приложения Windows и добавьте элемент Button управления, CheckBox элемент управления и RadioButton элемент управления в форму.

С помощью кнопки в форме вызовите процедуру TestObject .

Источник