Формат текста в формуле

[Severny]

Добрый день!
Есть ли штатные средства изменить формат значений в формуле.
У меня функция СЦЕПИТЬ.
В примере 25 показана моя формула (она еще будет дорабатываться). Можно ли в ней значения что идут за "неопр.-" и "отв.хр.-" сделать ф формате числа с 2-я нулями после запятой или выделить их жирным (подчеркнутым)?
Юзал поиск:http://programmersforum.ru/showthrea...EE%F0%EC%E0%F2
Но в теме мне рекомендации SAS888 не подходят. А есть ли инструмент способный реализовать все без макроса никто утвердительно и не ответил.

[vikttur]

Сообщение от Severny

А есть ли инструмент способный реализовать все без макроса никто утвердительно и не ответил.

Для реализации такой задачи встроенных функций Excel нет.
Или Вам нужен обязательно утвердительный ответ?

[VictorM]

Есть ли штатные средства изменить формат значений в формуле.

таких средств НЕТ

[Severny]

Сообщение от VictorM

таких средств НЕТ

Я Вам верю
Я подумал, что можно попробывать написать пользовательскую функцию.
Попробывал:

Public Function FormatIn(X As Range, A)
Dim Z As Variant
Dim A As Integer
Z = X.Value
If A = 1 Then Z.Font.Underline = xlUnderlineStyleSingle
If A = 2 Then Z.Font.Bold = True
If A = 3 Then Z.NumberFormat = "#,##0.00"
End Function

Но она не работает, так как это мой второй код за всю жизнь. Можно решить поставленую задачу с помощью польз. функции? Если да, то помогите ее написать.

[Hugo121]

Не работает не потому, что второй, а потому, что функция этого не может. Она только возвращает значения.
Можно что-то сделать условным форматированием.
п.1 и 2 c помошью УФ сделал, вот "#,##0.00" в 2000XL нет, как в 2007 - не знаю.

[Severny]

Сообщение от Hugo121

...функция этого не может. Она только возвращает значения.

Жаль, очень жаль.

Сообщение от Hugo121

Можно что-то сделать условным форматированием.
п.1 и 2 c помошью УФ сделал, вот "#,##0.00" в 2000XL нет, как в 2007 - не знаю.

мм..как раз "#,##0.00" более всего надо.
Объясните пожалуйста как Вы с помощью УФ п.1 и 2 сделали. У меня 2010.

[Hugo121]

Я делал в 2000-м - там УФ с виду немного другой.
Пусть про 2007/10-й расскажут те, кто с ним работает.
А формат можно макросом менять по событию изменения ячейки.

[Severny]

Сообщение от Hugo121

А формат можно макросом менять по событию изменения ячейки.

Если Вас не затруднит, можно это детальней объяснить с примером?

[VictorM]

Если Вас не затруднит, можно это детальней объяснить с примером?

Где-то так, для столбца "А", например

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    If Target.Column = 1 Then
        With Selection
            .Font.Underline = xlUnderlineStyleSingle
            .Font.Bold = True
            .NumberFormat = "#,##0.00"
        End With
    End If
End Sub

[Hugo121]

Код в модуль листа:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A2:C4")) Is Nothing Then
        If Target.Value = 3 Then
        Target.NumberFormat = "#,##0.00"
        Else
        Target.NumberFormat = "General"
        End If
    End If
End Sub

Отслеживается область A2:C4
Сюда же можете и другие условия добавить, с использованием Select Case например, или просто If Target.Value ... Then добавить.