Excel VBA

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

Ответы

Ответ дал: Нола

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

Приложения:

55e76780c4e7074b165f3fb4a7242c1b.xlsx

Ответ дал: agent91

Возможно будет лучше приложить мой код

Ответ дал: Нола

какой код?

Ответ дал: agent91

Public Sub Округление()
Dim Число As Single
Dim Число2 As Single

Число = Range("A1")
Число2 = (Число - Int(Число)) * 10
MsgBox (Число2)
Число2 = (Число2 - Int(Число2)) * 10
MsgBox (Число2)
If (Число2 >= 5) Then Range("A1") = (Int(Число) + 0.5)
If (Число2 < 5) Then Range("A1") = (Int(Число))

End Sub

Ответ дал: Нола

блин,ну прости,так я не знаю если честно

Ответ дал: dDeVoChKa

Я Вас очень прошу! Если Вам не сложно....Помогите мне тоже, пожалуйста...( https://znanija.com/task/31209029

Похожие вопросы

Русский язык

2 года назад

задай к словам вопросы как к членам предложения,три подлежащих,два дополнения,и два обстоятельства. воды, на ладони, кони, бока, ветер, в небе, облака.

Русский язык

2 года назад

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

Физика