복잡한 Excel 수식

Question

Excel에서 만들고 이상한 방법을 모르는 이상한 수식이있을 수 있습니다.

하나의 워크 시트에 다른 워크 시트의 다른 셀로 가져 오려는 값이 있습니다. 이 부분은 쉽습니다. 내가하고 싶은 일은 콘텐츠가 (같은 셀에서) 끌어 오기 전에 리더 텍스트가 있어야한다는 것입니다. 지금까지 나는 이것이 너무 쉽다고 생각한다. 이제 복잡한 부분. 리더 텍스트를 하나의 색상과 무게로 만들고 워크 시트 1의 텍스트를 다른 색상과 무게로 만들기를 원합니다.

의견이 있으십니까? 그래서 다음과 같습니다에서

: 브라이언의

비즈니스

경우 "에서"빨간색과 대담하고 "브라이언의 사업"입니다 검은 색과 정상 체중입니다.

이 작업을 어떻게 수행 할 수 있습니까?

미리 감사드립니다.

브라이언

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