Как получить дробное деление в vba...

Весь MS Office, программирование на Visual Basic for Applications и MS VB

Модератор: Naeel Maqsudov

Ответить
Аватара пользователя
Busine2009
Сообщения: 322
Зарегистрирован: 18 июл 2009, 15:34
Контактная информация:

Например, если разделить 5\2, то получится целое число, а мне надо чтобы оно было дробное.
Как это решается в VBA?
nilem
Сообщения: 112
Зарегистрирован: 14 ноя 2008, 01:59
Откуда: Уфа

Т.е. 2,5 - целое число? А что по-Вашему дробное?
Аватара пользователя
Busine2009
Сообщения: 322
Зарегистрирован: 18 июл 2009, 15:34
Контактная информация:

nilem
VBA так делит, что если 5 разделить на 2, то получает 2.
А мне надо, чтобы не происходило округления.
Аватара пользователя
VictorM
Сообщения: 794
Зарегистрирован: 23 окт 2006, 01:44
Откуда: Lugansk, Ukraine
Контактная информация:

Код: Выделить всё

With [C1]
        .FormulaLocal = "=A1/B1"
        .NumberFormat = "0.00"
    End With
"Дайте людям рыбы, и вы накормите их на весь день;
научите их ловить рыбу - и вы накормите их на всю жизнь".
nilem
Сообщения: 112
Зарегистрирован: 14 ноя 2008, 01:59
Откуда: Уфа

Все-таки делит правильно. Видимо, дело в форматах (см. VictorM)
Аватара пользователя
VictorM
Сообщения: 794
Зарегистрирован: 23 окт 2006, 01:44
Откуда: Lugansk, Ukraine
Контактная информация:

в них родимых)))
"Дайте людям рыбы, и вы накормите их на весь день;
научите их ловить рыбу - и вы накормите их на всю жизнь".
Аватара пользователя
Aent
Сообщения: 1129
Зарегистрирован: 01 окт 2006, 14:52
Откуда: Saratov,Russia
Контактная информация:

Нет, друзья. Формат тут не при чём. Это синтаксис VBA.
Просто у Busine2009 "перекос не в ту сторону"
5\2 = 2 - Это операция целочисленного деления
5/2 = 2,5 - Это деление обычное.
Андрей Энтелис,
aentelis.livejournal.com
Аватара пользователя
Busine2009
Сообщения: 322
Зарегистрирован: 18 июл 2009, 15:34
Контактная информация:

Aent
да, действительно.
Аватара пользователя
VictorM
Сообщения: 794
Зарегистрирован: 23 окт 2006, 01:44
Откуда: Lugansk, Ukraine
Контактная информация:

Aent
а вот на "перекос" я и не обратил внимания.
Спасибо.
"Дайте людям рыбы, и вы накормите их на весь день;
научите их ловить рыбу - и вы накормите их на всю жизнь".
Ответить