2014-11-04 97 views
0

我有什麼可能是一個奇怪的公式,我需要在Excel中創建,並不知道如何完成這一點。複雜的Excel公式

我在一張工作表中有一個值,我想將其拉入另一個工作表中的另一個單元格中。這部分很簡單。我想要做的是在內容被拉入之前(在同一個單元格中)有一個領導者文本。到目前爲止,我認爲這也很容易。現在複雜的部分。我希望領導者的文字是一種顏色和重量,從工作表1中拉入的文字是不同的顏色和重量。

有什麼想法?因此,它可能是這樣的:

來源: Brian的業務

其中「來源:」都是紅色粗體和「Brian的業務」是黑色和正常體重。

關於如何完成此任務的任何想法?

在此先感謝。

布賴恩

+0

有VBA這個地方上這個網站,但單獨一個公式將無法完成您所需要的內容,也無法進行條件格式設置,因此我編輯了這些標籤。 – pnuts 2014-11-04 21:26:49

+0

另外,如果單元格包含公式,則每個字符都不能使用格式。 – 2014-11-05 13:37:00

回答

0

這是我做過什麼用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 
+0

宏錄像機進行救援。 – 2014-11-04 21:30:12

+0

謝謝。所以我導入了這個宏,並研究了一下,看看它發生了什麼。我無法弄清楚的是我如何從另一個工作表中拉入文本,例如「ActiveCell.FormulaR1C1 =」'data-table'!B19「」似乎不起作用。思考?謝謝! – 2014-11-04 21:50:49

+0

現在我想通過演示文稿選項的另一個問題。有沒有辦法使用這個宏將數據插入到形狀中?例如,我插入一個正方形形狀,轉到配方欄並在形狀中輸入一個公式。我將對象命名爲「shape1」。有關如何使用此宏將文本插入到形狀與字段中的任何想法? – 2014-11-04 21:55:59