Excel VBA
Заполните ячейки Al, A2, A3 рабочего листа любыми вещественными
числами. Составьте программу, которая округлит эти числа до одного знака
после запятой, причем после запятой может быть только цифра 0 или 5
(например, 6,44 или 6,7134 программа заменит на 6,5; 6,21 или 5,789 на 6,0).
Ответы на вопрос
Ответил Нола
0
думаю что так, либо второе число нужно отделить два знака, а 3-е число три знака после запятой?
Приложения:
Ответил agent91
0
Возможно будет лучше приложить мой код
Ответил Нола
0
какой код?
Ответил agent91
0
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
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
Ответил Нола
0
блин,ну прости,так я не знаю если честно
Ответил dDeVoChKa
0
Я Вас очень прошу! Если Вам не сложно....Помогите мне тоже, пожалуйста...( https://znanija.com/task/31209029
Новые вопросы