|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
20.11.2007, 11:30 | #11 |
Форумчанин
Регистрация: 21.08.2007
Сообщений: 292
|
Ох, не знаю, тут или вы сами поправите код, как вам надо или, может, Pashulka Вам поможет.
|
21.11.2007, 17:36 | #12 |
Форумчанин
Регистрация: 12.11.2007
Сообщений: 209
|
Никак не идет
|
23.11.2007, 09:28 | #13 |
Форумчанин
Регистрация: 12.11.2007
Сообщений: 209
|
Кто знает , как сделать, помогите пожалуйста
|
14.12.2007, 15:31 | #14 |
Форумчанин
Регистрация: 12.11.2007
Сообщений: 209
|
SAS888
Посмотрите, пожалуйста Как сделать эту задачку Только у меня не запятая а точка |
15.12.2007, 12:37 | #15 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Попробуй так:
Код:
Чем шире угол зрения, тем он тупее.
Последний раз редактировалось SAS888; 15.12.2007 в 13:09. |
15.12.2007, 12:45 | #16 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Прошу прощенья, поторопился.
Следующий код исправлен и дополнен: Код:
P.S. Макрос работает независимо от того, какой разделитель целой и дробной части числа установлен в Excel ("." или ",").
Чем шире угол зрения, тем он тупее.
Последний раз редактировалось SAS888; 15.12.2007 в 21:16. Причина: Добавлено |
15.12.2007, 21:15 | #17 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
А если руководствоваться заданию из Вашего файла, то код будет выглядеть примерно так:
Код:
Чем шире угол зрения, тем он тупее.
|
17.12.2007, 06:57 | #18 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Улучшенная версия с подробными пояснениями находится в прикрепленном файле.
Я сделал так, что допустимо выбирать либо столбец целиком, либо диапазон ячеек в столбце. Если нужно иначе - можно воспользоваться циклом For Each Cell In Selection, т. е. для каждой ячейки выделенного диапазона.
Чем шире угол зрения, тем он тупее.
Последний раз редактировалось SAS888; 30.01.2008 в 09:43. |
17.12.2007, 12:22 | #19 |
Форумчанин
Регистрация: 12.11.2007
Сообщений: 209
|
Пытаюсь запустить последнюю версию - ставлю любую цифру- никаких изменений. Просто странно
(у меня EXCEl 2003) |
17.12.2007, 17:29 | #20 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Макрос сделан в Excel 2003.
Давайте уточним последовательность действий. Пусть дан столбец с действительными числами (например, столбец "C" в моем файле). 1) Выделяем диапазон ячеек в столбце (или весь столбец). 2) При выделенном диапазоне запускаем макрос "Test" (при этом активный лист должен быть тот, где находится выделенный диапазон). 3) При запросе макросом значения "Number after comma", вводим число < или = количеству знаков после запятой. Это и будет тот знак, который будем сравнивать с числом 3. После работы макроса получим измененный результат в выделенном диапазоне. Специально скачал именно этот файл и еще раз проверил. Если все так, то скорее всего дело в следующем: макрос ничего не изменит в том случае, если в значениях не найдет разделителя целой и дробной части чисел. У меня ищется запятая. Установка Excel "Сервис/Параметры/Международные/Разделитель целой и дробной части" влияет только на отображение разделителя ( при любой установке, точка или запятая, все работает корректно). Как вариант, попробуйте заменить строку кода макроса D = Application.Find(",", CStr(Cells(i, z)), 1) на D = Application.Find(".", CStr(Cells(i, z)), 1)
Чем шире угол зрения, тем он тупее.
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
удаление не нужных знаков после запятой. | Alar | Общие вопросы Delphi | 4 | 31.05.2012 19:59 |
как отрегулировать кол-во знаков после запятой, при выведении числа(delphi) | photozaz | Общие вопросы Delphi | 11 | 10.02.2011 21:20 |
кол-во знаков после запятой в TEdit | Petrucci | Общие вопросы Delphi | 9 | 04.07.2008 13:15 |
Количество цифр после запятой | LIEN | БД в Delphi | 7 | 03.07.2008 22:12 |
Ограничение знаков после запятой,StringGrid | Gorin | Компоненты Delphi | 9 | 20.09.2007 16:10 |