Предмет: Информатика, автор: agent91

Excel VBA

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

Ответы

Автор ответа: Нола

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

Приложения:

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

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

Предыдущий вопрос

Следующий вопрос

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

Предмет: Английский язык, автор: cokosik

ПОЖАЛУЙСТА 10 ПРЕДЛОЖЕНИЙ!!!!

5 лет назад

Предмет: Русский язык, автор: jgavriliva

эссе на тему Человек без Родины-нищий человек

5 лет назад

Предмет: Физкультура и спорт, автор: hodinvlad7

кто придумал первый прототип значка на гто