Не знаете, в чем может быть причина и как мне решить эту проблему? Вот этот код Макроса, если вставить в VBA, то код срабатывает, но формула перестаёт работать.
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A8") = Range("A8")
Range("A8").Characters(4, 1).Font.Italic = True
Range("A8").Characters(4, 1).Font.Underline = True
Range("A8").Characters(9, 10).Font.Italic = True
Range("A8").Characters(9, 10).Font.Underline = True
Range("A8").Characters(23, 2).Font.Italic = True
Range("A8").Characters(23, 2).Font.Underline = True
End Sub
Во-первых код оформите как положено с использованием <...> (или уберите его из текста сообщения в файл). Во-вторых не возможно выделить часть текста курсивом или сделать подчеркнутым если в ячейке стоит формула.
Ибрагим Белхороев, результат работы формулы "текст", который принимает ячейка как значение в первой же строке кода:
Код
Range("A8") = Range("A8")
Вы переписываете содержимое ячейки, т.е. вместо формулы записываете обычный текст
самый простой вариант, без особых манипуляций с кодом, перенесите формулу в ячейку А7, скройте любым подходящим для Вас способом, а в коде записывайте из нее результат для дальнейшей обработки
Ибрагим Белхороев написал: то код срабатывает, но формула перестаёт работать.
Вся проблема в том, что в течение нескольких дней, и нескольких тем на форуме, вы с завидным упрямством не хотите понять, что при наличии в ячейке формулы, форматирование отдельных значений ячейки НЕ ВОЗМОЖНО!