Комплекс Excel Формула

Question

У меня есть странная формула, которую мне нужно создать в Excel, и не знаю, как это сделать.

У меня есть значение в одном листе, который я хочу вытащить в другую ячейку в отдельном листе. Эта часть проста. То, что я хочу сделать, это иметь лидирующий текст, прежде чем этот контент будет втянут (в той же ячейке). Пока я думаю, что это тоже легко. Теперь сложная часть. Я хочу, чтобы текст лидера был одного цвета и веса, а текст, вытащенный из рабочего листа 1, отличался цветом и весом.

Любые мысли? Так может выглядеть следующим образом:

От: Брайан Бизнес

Где «From:» Красный и Смелый и «Бизнес Брайана» это черный и нормальный вес.

Любые идеи о том, как я могу выполнить эту задачу?

Заранее спасибо.

Brian

Answer 1

Это то, что я сделал с VBA макросов, вы можете сделать то же самое, и принять его к вашим потребностям

Sub Macro1() 
    Range("F28").Select 
    ActiveCell.FormulaR1C1 = "hjkljhklhjkl : ddfff" 
    With ActiveCell.Characters(Start:=1, Length:=0).Font 
     .Name = "Arial" 
     .FontStyle = "Regular" 
     .Size = 10 
     .Strikethrough = False 
     .Superscript = False 
     .Subscript = False 
     .OutlineFont = False 
     .Shadow = False 
     .Underline = xlUnderlineStyleNone 
     .Color = -16777216 
     .TintAndShade = 0 
     .ThemeFont = xlThemeFontNone 
    End With 
    With ActiveCell.Characters(Start:=1, Length:=7).Font 
     .Name = "Arial" 
     .FontStyle = "Bold" 
     .Size = 10 
     .Strikethrough = False 
     .Superscript = False 
     .Subscript = False 
     .OutlineFont = False 
     .Shadow = False 
     .Underline = xlUnderlineStyleNone 
     .Color = -16776961 
     .TintAndShade = 0 
     .ThemeFont = xlThemeFontNone 
    End With 
    With ActiveCell.Characters(Start:=8, Length:=2).Font 
     .Name = "Arial" 
     .FontStyle = "Regular" 
     .Size = 10 
     .Strikethrough = False 
     .Superscript = False 
     .Subscript = False 
     .OutlineFont = False 
     .Shadow = False 
     .Underline = xlUnderlineStyleNone 
     .Color = -16777216 
     .TintAndShade = 0 
     .ThemeFont = xlThemeFontNone 
    End With 
    With ActiveCell.Characters(Start:=10, Length:=11).Font 
     .Name = "Arial" 
     .FontStyle = "Regular" 
     .Size = 10 
     .Strikethrough = False 
     .Superscript = False 
     .Subscript = False 
     .OutlineFont = False 
     .Shadow = False 
     .Underline = xlUnderlineStyleNone 
     .ThemeColor = xlThemeColorLight1 
     .TintAndShade = 0 
     .ThemeFont = xlThemeFontNone 
    End With 
End Sub