Excel VBAЗаполните ячейки Al, A2, A3 рабочего листа хоть какими вещественными числами.

Excel VBA

Заполните ячейки Al, A2, A3 рабочего листа хоть какими вещественными
числами. Составьте программку, которая округлит эти числа до одного знака
после запятой, при этом после запятой может быть только цифра 0 либо 5
(к примеру, 6,44 или 6,7134 программка поменяет на 6,5; 6,21 либо 5,789 на 6,0).

Задать свой вопрос
1 ответ

думаю что так, или второе число необходимо отделить два знака, а 3-е число три знака после запятой?

Владик Бард
Вероятно будет превосходнее приложить мой код
Полина Кошарская
какой код?
Виктор Адыров
Public Sub Округление()Dim Число As SingleDim Число2 As SingleЧисло = Range("A1")Число2 = (Число - Int(Число)) * 10MsgBox (Число2)Число2 = (Число2 - Int(Число2)) * 10MsgBox (Число2)If (Число2 >= 5) Then Range("A1") = (Int(Число) + 0.5)If (Число2 < 5) Then Range("A1") = (Int(Число))End Sub
Евгения Котомкина
блин,ну прости,так я не знаю если честно
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт