Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 17.12.2007, 21:20   #21
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

А вообще, чтобы не заморачиваться на "точках" и "запятых", давайте решим Вашу задачу чисто математически. Например, так:
Код:
Sub Var_2()

    Dim Cell As Range, A As Long, x As Integer
    
    x = Val(InputBox("Number after comma"))
    If x = 0 Then
        MsgBox "Недопустимое значение"
        Exit Sub
    End If
    
    For Each Cell In Selection
        If Val(Cell.Value) = 0 Then GoTo Metka
        A = Fix(Application.Round(Cell.Value, 10) * 10 ^ x)
        If Right(A, 1) > 3 Then
            Cell.Value = Fix((A + 10) / 10) / 10 ^ (x - 1)
        Else
            Cell.Value = Fix(A / 10) / 10 ^ (x - 1)
        End If
Metka: Next Cell
    
End Sub
Здесь я не рассматривал отрицательные числа. Это нужно?
Чем шире угол зрения, тем он тупее.

Последний раз редактировалось SAS888; 18.12.2007 в 04:49.
SAS888 вне форума
Старый 18.12.2007, 10:32   #22
Romuald
Форумчанин
 
Регистрация: 12.11.2007
Сообщений: 209
По умолчанию

SAS888
Спасибо большое!
Вам спасибо от работников нашего предприятия !
Romuald вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
удаление не нужных знаков после запятой. 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