如何使用 VBA Function 將 Excel 上的所有屬性復制為 ZC1D81AF5835844B4FDCZE9D9 公式

Question

我想使用 Excel 公式將 Excel 上的 1 個帶有屬性（顏色、背景顏色、邊框）的單元格復制到活動單元格。 所以，我可以寫

=CopyCell(B2)

以及復制具有所有屬性的 B2 的活動單元。 你能幫助我嗎？

我只是成功地將一個單元格復制到另一個使用按鈕 onClick 並調用此過程

Public Function CopyOnlyFormatConditionColor(ByVal Source As String, ByVal Destination As String)
    Worksheets("Sheet2").Range(Source).Copy Worksheets("Sheet1").Range(Destination)
End Function

感謝任何幫助

Answer 1

我還沒有解決這個問題； 但這就是我到目前為止所擁有的。 堆棧溢出回答指南要求分享我的發現，以防它幫助下一個人......

    Public Function CopyColor(Target As Range)
    
    Dim iCol%, iCol2%
    Dim iRow&, iRow2&
    Dim sSheet$, sSheet2$
    Dim WS As Worksheet, WS2 As Worksheet
    
    Set WS = Target.Worksheet
    sSheet = WS.Name
    iRow = Target.Row
    iCol = Target.Column
    
    Set WS2 = Application.ActiveCell.Worksheet
    sSheet2 = WS2.Name
    iRow2 = Application.ActiveCell.Row
    iCol2 = Application.ActiveCell.Column
    
    WS.Cells(iRow, iCol).Copy
    WS2.Cells(iRow2, iCol2).PasteSpecial (xlPasteValues)
    WS2.Cells(iRow2, iCol2).PasteSpecial xlPasteFormats
    Application.CutCopyMode = False
    
    End Function