[發問] 同時複製儲存格顏色

seci

請各位高手幫忙,
如何同時複製儲存格顏色和文字內容?
Thanks~^^

Hsieh

回復 1# seci
公式無法連結格式

seci

那有沒有辦法用GET.CELL去處理?

Hsieh

回復 3# seci

函數是取得計算後的資訊
而儲存格格式並不可利用公式改變
即便是格式化條件，也無法設置變動的格式
要達成格式隨參照儲存格變化就只能靠VBA輔助

mhl9mhl9

以下方法可以滿足你要求嗎?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.HasFormula Then
    A = Target.Formula
    On Error Resume Next
    Set B = Range(Right(A, Len(A) - 1)).Cells(1)
    If Err.Number = 0 Then
        B.Copy Target
        Target.Formula = A
    End If
End If
End Sub