條件格式和文本：基於一個條件我想要的格式複製另一個細胞

在Excel條件格式和文本：基於一個條件我想要的格式複製另一個細胞

我試圖複製基於某些條件的另一個細胞的分子和細胞格式。

G12 =（如果C10 = C11，*留爲空白，如果（C10> C11，*複製的B10的元素和格式，*複製的元件和B11的格式））

我已經試過這功能，並已成功複製元素，但無法更改格式。我用：

= IF（$ C $ 10 = $ C $ 11 「」，IF（$ C $ 10> $ C $ 11 B10，B11））

我學到了條件格式，但沒有看到根據某些條件複製另一個單元格的格式。顏色必須指定。

感謝您的幫助！

TL：博士

March Madness Example

弗吉尼亞擊敗UNC 76至75

我想複製（1）複製弗吉尼亞州到下一個點與石灰綠色背景的支架。有UNC贏了，我想（16）UNC和玫瑰的顏色複製到下一個支架現貨

來源

2016-03-07 Andrew Bridges

轉到VB-編輯器（按Alt + F11），插入新的模塊並粘貼此代碼：

Function RangeSelectionPrompt(txt As String) As Range 
    Dim rng As Range 
    Set rng = Application.InputBox(txt, "Select a range", Type:=8) 

    Set RangeSelectionPrompt = rng 
End Function 

Sub FormatAs() 

    Dim Sh As Worksheet 
    Dim r1 As Range, r2 As Range 
    Dim txt1 As String, txt2 As String 
    Dim cel As Range, Col As Range 
    Dim Val, check As Long, pos As Long 

    Set Sh = ActiveSheet 

    txt1 = "Enter Range #1 - sourse" 
    txt2 = "Enter Range #2 - to paste formats" 

    Set r1 = Intersect(RangeSelectionPrompt(txt1), Sh.UsedRange) 
    Set r2 = Intersect(RangeSelectionPrompt(txt1), Sh.UsedRange) 


    For Each cel In r2.Cells 

     Val = cel.Value 

     If Val <> "" Then 

      For Each Col In r1.Columns 

       check = WorksheetFunction.CountIf(Col, Val) 

       If check > 0 Then 
        pos = WorksheetFunction.Match(Val, Col, 0) 

        Col.Cells(pos, 1).Copy 
        cel.PasteSpecial Paste:=xlPasteFormats 

       End If 

      Next Col 

     End If 

    Next cel 

End Sub

運行一次以複製格式。您需要定義的兩個範圍：

源範圍（A：B）和範圍粘貼（F：G）

來源

2016-03-07 10:04:24

最大，感謝您的響應。它看起來並不像我正在尋找的功能。我一直在與微軟支持聯繫，似乎我所尋找的功能是不可能的。基本上，我一直在尋找一個條件函數來複制值（文本）以及格式（填充顏色和邊框）。 –

條件格式和文本：基於一個條件我想要的格式複製另一個細胞

回答

相關問題