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

Пользователь

Сообщений: 44 Регистрация: 13.02.2013

13.03.2013 14:30:05

Приветствую всех.
Нужно определить тип данных в ячейке.

If (TypeName(Range(Cells(stroka_aktiv, N).Address).Value) = Date) Then ' (1) если тип Date
Range(Cells(stroka_aktiv, N).Address).Value = Empty
End If
If (TypeName(Range(Cells(stroka_aktiv, N).Address).Value) = String) Then ' (2) если тип String
Range(Cells(stroka_aktiv, N).Address).Value = ""
End If
If (TypeName(Range(Cells(stroka_aktiv, N).Address).Value) = Empty) Then ' (3) если тип Empty
Range(Cells(stroka_aktiv, N).Address).Value = Empty
End If
If (TypeName(Range(Cells(stroka_aktiv, N).Address).Value) = Double) Then ' (4) если тип Double
Range(Cells(stroka_aktiv, N).Address).Value = 0
End If

Сравнения (1) (2) (4) не получаются.
Если сравнение (4) переделать:
Range("B22".Value = TypeName(Range("A22".Value) ' (*)
If (TypeName(Range(Cells(stroka_aktiv, N).Address).Value) = Range("B22".Value) Then ' если тип Double
Range(Cells(stroka_aktiv, N).Address).Value = 0
End If
(*) - это в отдельную ячейку "A22" записать , например, 152, то в ячейке "B22" сохранится Double и сравнение (4) начинает работать. Но мне так не нравится.
Что нужно писать вместо Date , String, Double , чтобы сравнения работали?

Изменено: ArtemonX - 13.03.2013 19:35:25

LVL

Пользователь

Сообщений: 905 Регистрация: 01.01.1970

13.03.2013 14:36:10

замените

Код
TypeName(Range(Cells(stroka_aktiv, N).Address).Value) = Date

на

Код
TypeName(Range(Cells(stroka_aktiv, N).Address).Value) = "Date"

остальные сравнения соответственно тоже, фнукция TypeName возвращает результат типа string

ArtemonX Пользователь Сообщений: 44 Регистрация: 13.02.2013	#3 13.03.2013 14:41:57 Спасибо.

Казанский

Пользователь

Сообщений: 8839 Регистрация: 11.01.2013

13.03.2013 15:21:53

Лучше использовать функцию VarType. После ввода If VarType(...)= VBA предлагает выбрать из списка значений. Эта функция быстрее, т.к. она просто извлекает 1 или 2 байта из структуры Variant, и числа сравниваются быстрее, чем строки.

ArtemonX Пользователь Сообщений: 44 Регистрация: 13.02.2013	#5 13.03.2013 16:26:53 Спасибо. Нужно подумать. Хотя в моем случае скорость не сильно важно.

Kuzmich

Пользователь

Сообщений: 8189 Регистрация: 21.12.2012

13.03.2013 19:56:26

Из Уокенбаха

Ниже описана функция CellType. которая принимает аргумент-диапазон и возвращает
строку (Пусто, Текст, Булево выражение. Ошибка, Дата, Время и Значение), описывающую
тип данных левой верхней ячейки этого диапазона. Такую функцию можно использовать в
формуле рабочего листа или вызвать из другой процедуры VBA.
Function CellType(Rng)
' Возвращает тип верхней левой ячейки
' в диапазоне
Application.Volatile
Set Rng = Rng.Range("A1")
Select Case True
Case IsEmpty(Rng)
CellType = "Пусто"
Case WorksheetFunction.IsText(Rng)
CellType = "Текст"
Case WorksheetFunction.IsLogical(Rng)
CellType - "Булево выражение"
Case WorksheetFunction.IsErr(Rng!
CellType - "Ошибка"
Case IsDate(Rng)
CellType = "Дата"
Case InStr(1, Rng.Text, ":" ) <> 0
CellType = "Время"
Case IsNumeric(Rng)
CellType = "Значение"
End Select
End Function

Изменено: Kuzmich - 13.03.2013 21:21:10

Rustem Haziev

Пользователь

Сообщений: 520 Регистрация: 16.01.2013

13.03.2013 20:16:16

Цитата
Нужно определить тип данных в ячейке.

Фукцией ТИП.

Excel 2013

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#8 13.03.2013 20:19:01 ТИП - это функция листа.

Rustem Haziev Пользователь Сообщений: 520 Регистрация: 16.01.2013	#9 13.03.2013 20:27:16 Да листа, альтернатива макросу Excel 2013

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#10 13.03.2013 20:30:32 А она, вроде, дату не умеет?

Rustem Haziev Пользователь Сообщений: 520 Регистрация: 16.01.2013	#11 13.03.2013 20:33:41 Ну тогда к Уокенбаху... Excel 2013

ArtemonX

Пользователь

Сообщений: 44 Регистрация: 13.02.2013

#12

13.03.2013 20:35:12

Цитата
Rustem Haziev пишет: Да листа, альтернатива макросу

Изменено: ArtemonX - 13.03.2013 20:36:07

Rustem Haziev

Пользователь

Сообщений: 520 Регистрация: 16.01.2013

#13

13.03.2013 20:37:10

Цитата
ТИП - это функция листа.

Excel 2013

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#14 13.03.2013 20:48:30 ArtemonX и Rustem Haziev, что вы хотели сказать таким цитированием?

Rustem Haziev Пользователь Сообщений: 520 Регистрация: 16.01.2013	#15 13.03.2013 21:04:22 Что в Excel существует функция листа "ТИП", с помощью которой можно определить тип данных ячейки. Что можно попытаться применить её, а не сочинять макрос. Excel 2013

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#16 13.03.2013 21:13:01 Рустем, я про пост #13.

Rustem Haziev Пользователь Сообщений: 520 Регистрация: 16.01.2013	#17 13.03.2013 21:18:14 В посте 12 был вопрос ArtemonX (удален): Не понял про "Да листа, альтернатива макросу" Я и ответил Вашей цитатой что ТИП, это функция листа Excel 2013

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#18 13.03.2013 21:28:25 Ну и посмотрите теперь - что получилось. Нормально? Всё всем понятно? Удалил человек свой вопрос - удалите/отредактируйте и Вы свой ответ. А так - к чему эта цитата?

ArtemonX Пользователь Сообщений: 44 Регистрация: 13.02.2013	#19 15.03.2013 16:50:23 Я сначала не понял о чем речь, а через некоторое время после создания поста с цитатой и своим вопросом я смекнул что к чему. А т.к. я не знаю как удалить весь пост, через редактирование удалил свой вопрос. Извиняюсь , что так получилось.

Читают тему