Макрос Определить что ячейка содержит целое число

Макрос Определить что ячейка содержит целое число, В ячейке может находится всё что угодно

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

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

01.03.2013 20:32:49

Макрос должен вернуть true или false в зависимости есть в ячейке целое число или нет
например:
2.3 ->false
увуак ->false
2 ->true
34акввап ->false
___________________
k = x = CInt(Cells(shag, 1).Int) - работает только если числа

Изменено: korolariya - 01.03.2013 20:33:46

Юрий М

Модератор

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

Контакты см. в профиле

01.03.2013 20:40:25

Вариант:

Код
Sub Test() If IsNumeric(ActiveCell) Then If Int(ActiveCell) = ActiveCell Then MsgBox "В ячейке целое число", 64, "Для сведения" End If End Sub

The_Prist

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

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

Профессиональная разработка приложений для MS Office

01.03.2013 21:58:04

Код
If Cells(1,1).Value = Val(Cells(1,1)) then msgbox "Целое число"

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...

Казанский Пользователь Сообщений: 8839 Регистрация: 11.01.2013	#4 01.03.2013 23:06:49 А если в ячейке "2" (текстовое представление числа) - то что должно быть? Метод Юрий М дает False, а метод The_Prist - True.

Юрий М Модератор Сообщений: 60982 Регистрация: 14.09.2012 Контакты см. в профиле	#5 01.03.2013 23:13:39 Алексей, так не честно - пусть автор сам решит )))

Читают тему