|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
03.03.2008, 20:29 | #1 |
Пользователь
Регистрация: 06.02.2008
Сообщений: 42
|
for SAS888 please help! макрос выделения цифр жирным шрифтом прописывает числа без нулей после запятой
SAS888!
Спасите меня пожалуйста еще раз! Макрос который сцепляет ячейки и пишет цифры жирным шрифтом (см. файл), переносит числа без нулей после запятой, например 25,90 переносится как 25,9 и 25,00 - как 25. Заметила это только что, когда завернули мои документы с таможни! Можно ли добавить в ячейки которые подсчитывают доллары и вес нетто и брутто формат с двумя знаками после запятой - 0,00. Для подсчета коробок и штук формат остается прежним. Огромное спасибо! Постараюсь при следующих обнаруженных косяках (моих конечно!) решать все сама! |
03.03.2008, 22:39 | #2 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
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]
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
как отрегулировать кол-во знаков после запятой, при выведении числа(delphi) | photozaz | Общие вопросы Delphi | 11 | 10.02.2011 21:20 |
Количество цифр после запятой | LIEN | БД в Delphi | 7 | 03.07.2008 22:12 |
выделение жирным шрифтом минимума и максимума из диапазона | Bazzer | Microsoft Office Excel | 11 | 28.06.2008 18:50 |
Как округлять числа до целых и как оставить два знака после запятой. | bles | Помощь студентам | 9 | 19.02.2008 21:53 |
как вывести число с ограниченным количеством цифр после запятой? delphi | Ensoph | Помощь студентам | 1 | 02.10.2007 07:50 |