VBA приведение типов

Чайник

Гость

28.08.2008 21:45:21

Значения из 2-х ячеек присваиваю переменным Integer. При сравнении 27 оказалось > 30? Оказалось что сравниваются перемнные типа String. Может в этом причина ошибки? И как тогда принудительно тип переменной исправить?

Guest Гость	#2 28.08.2008 22:06:15 А в ячейках формат какой?

KOT

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

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

28.08.2008 22:14:46

Вот проверил:
Sub Макрос1()
Dim k As Integer
Dim m As Integer
k = Sheets("Лист1").Range("A1").Value
m = Sheets("Лист1").Range("A2").Value
If k > m Then
Sheets("Лист1").Range("A3").Value = "А1 больше А2"
Else
Sheets("Лист1").Range("A3").Value = "А1 меньше А2"
End If
End Sub
Все корректно срабатывает. В ячейках формат Общий

Pavel55 Гость	#4 28.08.2008 22:48:40 Sub Macro1() Dim i%, n% i = CInt(27) n = CInt(30) MsgBox i > n End Sub

Читают тему