for SAS888 please help! макрос выделения цифр жирным шрифтом прописывает числа без нулей после запятой

[Dorvir]

SAS888!

Спасите меня пожалуйста еще раз!

Макрос который сцепляет ячейки и пишет цифры жирным шрифтом (см. файл), переносит числа без нулей после запятой, например 25,90 переносится как 25,9 и 25,00 - как 25. Заметила это только что, когда завернули мои документы с таможни!

Можно ли добавить в ячейки которые подсчитывают доллары и вес нетто и брутто формат с двумя знаками после запятой - 0,00.

Для подсчета коробок и штук формат остается прежним.

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

[IgorGO]

Worksheet_Calculate() листа2 необходимо добавить форматирование.

для этого вот эти строки:
[code]
Cells(x.Row + 1, "B") = Range("L" & q + 1) & Range("L" & q) & Range("L" & q + 2)
Cells(x.Row + 2, "B") = Range("N" & q) & Range("N" & q + 1) & Range("N" & q + 2)
Cells(x.Row + 3, "B") = Range("O" & q) & Range("O" & q + 1)
Cells(x.Row + 2, "D") = Range("M" & q - 1) & Range("M" & q) & Range("M" & q + 1)
Cells(x.Row + 3, "D") = Range("P" & q) & Range("P" & q + 1)
[code]

привести к такому виду:
[code]
Cells(x.Row + 1, "B") = Range("L" & q + 1) & Format(Range("L" & q), "### ### ###.00") & Range("L" & q + 2)
Cells(x.Row + 2, "B") = Range("N" & q) & Range("N" & q + 1) & Range("N" & q + 2)
Cells(x.Row + 3, "B") = Format(Range("O" & q), "### ### ###.00") & Range("O" & q + 1)
Cells(x.Row + 2, "D") = Range("M" & q - 1) & Range("M" & q) & Range("M" & q + 1)
Cells(x.Row + 3, "D") = Format(Range("P" & q), "### ### ###.00") & Range("P" & q + 1)
[code]