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

Question

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

Answer 1

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

Comments

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

---

какой код?

---

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

---

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