вопрос по числовому формату

Программирование на Visual Basic for Applications
hiscor
Начинающий
Начинающий
 
Сообщения: 5
Зарегистрирован: 18.10.2005 (Вт) 9:07
Откуда: Челябинск

вопрос по числовому формату

Сообщение hiscor » 07.12.2006 (Чт) 13:04

Не могу найти, где собака зарыта:
В 3-х ячейках Экселя записываю три числа,
допустим, А=1,20; В=0,20; С=1,80.
Далее макрос заносит в два столбца таблицы следующие значения:
1-ая строка: к1=А, к2=А+В
2-ая: к1=к2, к2=к2+В
3-я: к1=к2, к2=к2+В, и т.д. пока к2 будет меньше С.
Другими словами увеличиваем к1 начиная с А, с шагом В, пока не дойдем до С.

Числа нужны с двумя знаками после запятой. Ячейки так и отформатированы. Переменные описаны как Single.
Начиная со второй строки происходит такая непонятная вещь: в самой ячеке и окне просмотра значений переменных VBA как бы всё нормально (ну к примеру 1,20), а в строке формул показывает значение типа 1,20000004768371 ( и в дальнейших вычислениях используется именно это значение!). И так далее во всех остальных ячейках. Как убрать всё лишнее после 2-го знака после запятой? И откуда это берётся?

Спасибо за ответ.

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 07.12.2006 (Чт) 13:27

Чё б в поиск не сходить? :roll:
http://bbs.vbstreets.ru/viewtopic.php?p=6637015#6637015
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

hiscor
Начинающий
Начинающий
 
Сообщения: 5
Зарегистрирован: 18.10.2005 (Вт) 9:07
Откуда: Челябинск

Сообщение hiscor » 08.12.2006 (Пт) 8:12

GSerg, спасибо, помог :cheers: .
Поиском пробовал, не получалось (может формулировал неудачно) :( .
Еще раз убеждаюсь, что через форум получается намного быстрее, спасибо добрым людям!
Кстати, почему могут не работать встроенные функции? Например, Format? Пишет ошибку 13. Хотя уже это и не важно.

Тему можно закрыть.


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: Google-бот, Yandex-бот и гости: 66

    TopList