Дробные числа в VBA

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

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

04.02.2014 23:55:39

Код

Sub Start()
Dim i, p, a As String
Dim x As Integer
i = 5
Do While Cells(i, 7) <> ""
x = 0

If (Cells(i, 7) = "Да" Then x = x + 7.6
If (Cells(i, 7) = "Нет" Then x = x + 0
If (Cells(i, 7) = "Не нужно" Then x = x + 5
Cells(i, 20) = x / 100
i = i + 1
Loop
End Sub

Ребята, помогите разобраться, данный макрос работает корректно только с целыми числами, если как в примере есть дробное, округляет по мат законам, что дописать что бы результат выводился в дробном формате?

Hugo Пользователь Сообщений: 26326 Регистрация: 22.12.2012	#2 05.02.2014 00:17:35 Примера не вижу. По коду - x As Integer А вы прибавляете 7.6 - и что должно получиться?

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#3 05.02.2014 00:18:05 А если поменять Dim x As double?

Андрей Пользователь Сообщений: 21 Регистрация: 01.01.1970	#4 05.02.2014 00:20:48 А если поменять Dim x As double? - все заработало!!! Спасибо! Наверное заработался и даже это перестал замечать...Спасибо огромное Юрий М

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#5 05.02.2014 00:28:05 А Hugo неправильно подсказал. По ответу автора так получается...

Читают тему