[Iska]

А если не равна?

Код:

Option Explicit

Sub Sample()
    Dim objRange As Range
    
    For Each objRange In Selection
        If Int(objRange.Value) = objRange.Value Then
            objRange.Font.ColorIndex = 3
            objRange.NumberFormat = "#,##0.0"
        Else
            objRange.Font.ColorIndex = 10
            objRange.NumberFormat = "General"
        End If
    Next objRange
End Sub

[Maestro]

А если не равна? »

тогда ничего не делать.

А как такой макрос применительно ко всей таблице сделать?

Если я правильно понимаю, это надо выделить необходимый диапазон ячеек и выполнить этот макрос для них, так? - вроде работает, только получается и если дробная часть не нулевая, то тоже отсекает до 1 знака, а надо чтобы не трогало

[Iska]

Если я правильно понимаю, это надо выделить необходимый диапазон ячеек и выполнить этот макрос для них, так? »

Совершенно верно.

тогда ничего не делать. »

Фокус не выйдет: тогда ранее заданные форматы не будут соответствовать новым значениям ячеек. Потому — было сделано так:

Код:

Else
    objRange.Font.ColorIndex = 10
    objRange.NumberFormat = "General"

вроде работает, только получается и если дробная часть не нулевая, то тоже отсекает до 1 знака, а надо чтобы не трогало »

Не отсекает. Если у Вас отсекает — выкладывайте Ваш файл, укажите ячейку, посмотрим.

[okshef]

Maestro, выделите диапазон, создайте правило для условного форматирования:

Код:

=(A1-ЦЕЛОЕ(A1))=0

и задавайте формат

[Maestro]

Не отсекает. Если у Вас отсекает — выкладывайте Ваш файл, укажите ячейку, посмотрим. »

Вот http://clip2net.com/s/6yDA4d

файл: http://rghost.ru/51531181

[Iska]

Maestro, лучше воспользуйтесь советом коллеги okshef. Это работает.

Вот http://clip2net.com/s/6yDA4d файл: http://rghost.ru/51531181 »

Вот как выглядит у меня после исполнения макроса:

читать дальше »

Если расширить столбцы, то виден ещё один знак:

читать дальше »

Формат ячейки — «General» («Общий»), как и указано тут:

Код:

        If Int(objRange.Value) = objRange.Value Then
            objRange.Font.ColorIndex = 3
            objRange.NumberFormat = "#,##0.0"
        Else
            objRange.Font.ColorIndex = 10
            objRange.NumberFormat = "General"
        End If

Что не так?

[okshef]

Maestro, а что вам в моем способе не нравится? Замените A1 на D9, и все получится

[Iska]

okshef, всё нормально в предложенном Вами способе.

читать дальше »

Разве что сформулировано несколько отлично — «правило» вместо наличествующих «Условие» → «Формула». Меня, скажем, это и ввело поначалу в заблуждение, и я было решил (как можно судить по удалённому сообщению), что сие доступно только в более новых версиях Excel.

[okshef]

Iska, я, конечно же, имел в виду "правило условного форматирования" (в 2007 и выше есть пункт "Управление правилами", а то, что речь идет о 2000/XP/2003, забыл)