Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Формат числа (округлить и отбросить) / 4 сообщений из 4, страница 1 из 1
28.12.2005, 12:11:12
    #33461517
LMe
LMe
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Формат числа (округлить и отбросить)
Добрый день.
У меня всего один небольшой скорее математический вопрос.
Проблема в следующем.
В таблице ecxel есть ряд вычисляемых значений. Точность после вычисления 5-7 знаков после запятой. (x*y/1000)
Необходимо чтобы в результате точность была 4 знака.
Т.е. необходимо округлить до 4-го знака и все остальное отбросить.
Метод .NumberFormat = "0.0000" дает только представление чисел на экране.
При дальнейших расчетах все равно продолжает использоваться длинное число. Что приводит к потере данных.
E.g.
0,0001 + 0,0002=0,0003
0,00005+0,00019=0,00024=0,0002

Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.12.2005, 12:17:47
    #33461551
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Формат числа (округлить и отбросить)
Код: plaintext
1.
2.
3.
4.
A1 =  2 , 12345 

Range("B1").Formula = "=ROUND(A1,4)"

B1 =  2 , 1235
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.12.2005, 12:24:51
    #33461582
Nikz
Nikz
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Формат числа (округлить и отбросить)
как вариант
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim d As Double
If IsNumeric(Target.Value) = False Or Target.Value = "" Then Exit Sub
d = Target.Value
d = Format(d, "0.0000")
Target.Value = d

End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.12.2005, 12:43:24
    #33461663
LMe
LMe
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Формат числа (округлить и отбросить)
Nikz , так слишком круто для программы вида "замена калькулятора и 2-3 дам со склада". :) (Я так не умею.) Но все равно спасибо.

Пользователь2 , спасибо, пойду попробую. :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Формат числа (округлить и отбросить) / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 694ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2166618]:
 0ms
get settings:
 6ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 406ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 22ms
get tp. blocked users:
 1ms
others: 227ms
total:  694ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]