Отображение округленного числа в ячейке и .Value

@Nimael · Регистрация: 16.02.2023

Студворк — интернет-сервис помощи студентам

Добрый день, уважаемые форумчане! Возможно, вопрос рассматривался, я честно искал но не нашел.

Такая проблема - беру .value ячейки, привожу к Single, плюсую к нему, округляю раундом до 4 знака и снова записываю в .value ячейки.

Visual Basic
1
Worksheets("Лист1").Cells(1, 1).Value = Round(CSng(TextBox1.Text), 4)

При этом получается, что отображается в ячейке округленное значение, а .value имеет другую точность и большее количество знаков. Надеюсь на скрине ясно, что я хочу сказать.
Можно ли с этим что то сделать, чтобы .value ячейки был точно четырехзначным или это невозможно с данными типа Single?

@Dinoxromniy · 16.02.2023, 12:09

Сообщение от Jack Famous

а лучше вообще не использовать

Тоже соглашусь, но эта опция не от хорошей жизни родилась.

Сообщение от Jack Famous

но всё это довольно легко учесть и обговорить в условиях контракта или чего-то ещё.

Да если бы - контракт я со второй стороной заключаю, а НДС плачу налоговой, с ней договариваться - себе дороже. Сейчас бухи говорят, что программа онлайн это делает и все сама учитывает, а тогда, когда столкнулся, никто не мог внятно объяснить, что с ним делать - забьют на эту копейку или прямо расстреляют. Я тупо написал во втором платеже на копейку больше, всех это устроило.

@Jack Famous · 16.02.2023, 12:12

Сообщение от Dinoxromniy

написал во втором платеже на копейку больше

надеюсь, платежи не слишком дробятся, а то так можно и в минус уйти

@Dinoxromniy · 16.02.2023, 12:41

Не по теме:

Сообщение от Jack Famous

а то так можно и в минус уйти

Достоевский встречает Раскольникова на улице:
— Что-ж ты, Родя? Старушку за 20 копеек топором...
— Не скажите, Федор Михалыч! Пять старушек - уже рупь!

@Nimael · 16.02.2023, 13:37 **[ТС]**

Подведем итоги (скорее для начинающих, чтобы не попасть в такую же ситуацию):
1. Всем спасибо за ответы.
2. Точности типа Single недостаточно для "аккуратного" округления до 4 знака.
3. Неясно, какой тип данных возвращает Round. Здесь не написано: https://learn.microsoft.com/ru... d-function
4. Метод WorksheetFunction.Round возвращает Double, которого достаточно для "аккуратного" округления до 4 знака.

@АЕ · 16.02.2023, 14:00

Сообщение от Nimael

Подведем итоги (скорее для начинающих, чтобы не попасть в такую же ситуацию):

Вот и получается, что вы умный, а помогайки так... погулять вышли.

@Nimael · 16.02.2023, 14:05 **[ТС]**

АЕ, эмм... вроде бы я такого не писал, и ввиду не имел. Еще раз - я благодарен всем, кто ответил, выводы сделаны на основе этих самых ответов, и возможно, помогут кому-то еще.

@Dinoxromniy · 16.02.2023, 14:12

Сообщение от Nimael

Неясно, какой тип данных возвращает Round.

Debug.Print TypeName(Round(12.1421, 2))

@Nimael · 16.02.2023, 16:14 **[ТС]**

Dinoxromniy,
Так не пойдет, надо:
Dim a As Single
a = 0.25644
Debug.Print TypeName(Round(a, 4))

Если вводить просто числа будет либо Integer, либо Double.
Если явно указан тип переменной вернет того же типа.

@Dinoxromniy · 16.02.2023, 16:21

Сообщение от Nimael

Так не пойдет, надо:

Nimael, нет, меня из дальнейшей цепочки пожалуйста исключите, мне кажется вы самостоятельно справитесь.

Сообщение от Nimael

Если вводить просто числа будет либо Integer, либо Double.
Если явно указан тип переменной

Тут видимо придется-таки поучаствовать:

Visual Basic
1
2
3
4
Sub nm()
Debug.Print TypeName(12)
Debug.Print TypeName(12.1)
End Sub

SergioJek · 16.02.2023, 16:24

Nimael, а какой ответ вы ждете, округляя целое число до четвертого знака после запятой?
1,0000 ?

Добавлено через 1 минуту
Так это вам надо к FORMAT$ обращаться.

@Nimael · 16.02.2023, 16:32 **[ТС]**

Dinoxromniy,
В вашем примере 2 строка вернет integer, 3 вернет double.

Dim a As Single
a = 12
Debug.Print TypeName(Round(a, 4)) - вернет Single
Debug.Print TypeName(Round(12.1, 4)) - вернет Double
Debug.Print TypeName(Round(12, 4)) - вернет Integer
Debug.Print TypeName(WorksheetFunction.Round(a, 4)) - вернет Double
Debug.Print TypeName(WorksheetFunction.Round(12.1, 4)) - вернет Double
Debug.Print TypeName(WorksheetFunction.Round(12, 4)) - вернет Double
Добавлено через 3 минуты
SergioJek, это к тому, что для функции Round не описано какой тип она возвращает в отличие от WorksheetFunction.Round.

@Dinoxromniy · 16.02.2023, 16:36

Сообщение от Nimael

В вашем примере 2 строка вернет integer, 3 вернет double.

Я вам не пример привел, а метод "как достоверно узнавать тип результата". Вы же именно этот вопрос задали? Теперь есть понимание, какой тип результата Round выдает? Дальше - сами. А я чай пошел пить. С рогаликами.

Насколько я помню Кузьменко, результат операции будет иметь наименьшую размерность, имеющую требуемую точность. В других языках может быть другой алгоритм, я недавно писал про разницу с той же Java.

@Nimael · 16.02.2023, 16:40 **[ТС]**

Dinoxromniy, получается что результат операции все же не будет иметь наименьшую размерность, а будет зависеть от типа исходных данных. Если округляется переменная, тип данных который прямо указан, то он и вернется.
Приятного чаепития!

Новые блоги и статьи Все статьи Все блоги /
Nekobox - outbounds[0].transport: unknown transport type: raw damix 01.10.2026 Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .
Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .

@Nimael 0 / 0 / 0 Регистрация: 16.02.2023 Сообщений: 13
	16.02.2023, 13:37 [ТС]
	Подведем итоги (скорее для начинающих, чтобы не попасть в такую же ситуацию): 1. Всем спасибо за ответы. 2. Точности типа Single недостаточно для "аккуратного" округления до 4 знака. 3. Неясно, какой тип данных возвращает Round. Здесь не написано: https://learn.microsoft.com/ru... d-function 4. Метод WorksheetFunction.Round возвращает Double, которого достаточно для "аккуратного" округления до 4 знака. 0

@Nimael 0 / 0 / 0 Регистрация: 16.02.2023 Сообщений: 13
	16.02.2023, 14:05 [ТС]
	АЕ, эмм... вроде бы я такого не писал, и ввиду не имел. Еще раз - я благодарен всем, кто ответил, выводы сделаны на основе этих самых ответов, и возможно, помогут кому-то еще. 0

@Nimael 0 / 0 / 0 Регистрация: 16.02.2023 Сообщений: 13
	16.02.2023, 16:14 [ТС]
	Dinoxromniy, Так не пойдет, надо: Dim a As Single a = 0.25644 Debug.Print TypeName(Round(a, 4)) Если вводить просто числа будет либо Integer, либо Double. Если явно указан тип переменной вернет того же типа. 0

SergioJek 428 / 333 / 61 Регистрация: 29.06.2019 Сообщений: 493
	16.02.2023, 16:24
	Nimael, а какой ответ вы ждете, округляя целое число до четвертого знака после запятой? 1,0000 ? Добавлено через 1 минуту Так это вам надо к FORMAT$ обращаться. 0

@Nimael 0 / 0 / 0 Регистрация: 16.02.2023 Сообщений: 13
	16.02.2023, 16:32 [ТС]
	Dinoxromniy, В вашем примере 2 строка вернет integer, 3 вернет double. Dim a As Single a = 12 Debug.Print TypeName(Round(a, 4)) - вернет Single Debug.Print TypeName(Round(12.1, 4)) - вернет Double Debug.Print TypeName(Round(12, 4)) - вернет Integer Debug.Print TypeName(WorksheetFunction.Round(a, 4)) - вернет Double Debug.Print TypeName(WorksheetFunction.Round(12.1, 4)) - вернет Double Debug.Print TypeName(WorksheetFunction.Round(12, 4)) - вернет Double Добавлено через 3 минуты SergioJek, это к тому, что для функции Round не описано какой тип она возвращает в отличие от WorksheetFunction.Round. 0

@Nimael 0 / 0 / 0 Регистрация: 16.02.2023 Сообщений: 13
	16.02.2023, 16:40 [ТС]
	Dinoxromniy, получается что результат операции все же не будет иметь наименьшую размерность, а будет зависеть от типа исходных данных. Если округляется переменная, тип данных который прямо указан, то он и вернется. Приятного чаепития! 0