Отрицательное число в положительное VBA

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

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

01.05.2017 21:02:57

Здравствуйте, помогите на выходе изменить отрицательное число при любых условиях в положительное:

Код
Range("H86").Value = Round(Oa, 3)

AB1 Пользователь Сообщений: 296 Регистрация: 13.04.2017	#2 01.05.2017 21:06:41 Посмотрите здесь.

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

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

01.05.2017 21:08:02

Здравствуйте. А попробуйте записать

Код
Range("H86").Value = Application.ABS(Round(Oa, 3))

Может что и получится.

Zimba Пользователь Сообщений: 248 Регистрация: 01.01.2017	#4 01.05.2017 21:11:04 gling,Не работает но и ошибки нет

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

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

01.05.2017 21:15:04

Значит, порядок? Ошибка ушла...
Вы никак не поймете, что если не работает, то нужно ПОКАЗЫВАТЬ

Код
If Oa <0 Then Oa=-Oa

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#6 01.05.2017 21:27:20 Если меньше нуля - умножить на минус 1 )

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

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

E-mail и реквизиты в профиле.

01.05.2017 22:58:15

Код
Oa = -123.345678 Range("a1").Value = Abs(Round(Oa, 3))

Если не работает, значит к ортопеду, руки выпрямлять.

Прикрепленные файлы

Я сам - дурнее всякого примера! ...

Михаил С. Пользователь Сообщений: 10514 Регистрация: 21.12.2012	#8 02.05.2017 05:44:47 Не пойму, экстрасенсы все, что ли... как вы на такие вопросы отвечаете? Zimba, имеем два числа: -1,123546 и -1,123456 у вас округление до трех знаков - что должно получится?

Читают тему