Sub TEST5()
'表示されている背景色を取得
a = Range("A1").DisplayFormat.Interior.ColorIndex
'背景色を設定
Range("A1").Offset(2, 0).Interior.ColorIndex = a
End Sub
手順は、
表示されている背景色を取得
背景色を設定
という流れです。
セルA1に、条件付き書式を設定しておきました。
条件付き書式を設定したセルA1の、「背景色」だけを、セルA3にコピーします。
条件付き書式の「背景色」だけをコピーすることができました。
もちろん、条件付き書式は、設定されていません。
条件付き書式の「文字色」のみコピー
次は、条件付き書式の文字色だけを、コピーしてみます。
Sub TEST6()
'表示されている文字色を取得
a = Range("A1").DisplayFormat.Font.ColorIndex
'文字色を設定
Range("A1").Offset(2, 0).Font.ColorIndex = a
End Sub
手順は、
表示されている文字色を取得
文字色を設定
という流れです。
セルA1に、条件付き書式を設定しておきました。
条件付き書式を設定したセルA1の、「文字色」だけを、セルA3にコピーします。
条件付き書式の「文字色」だけをコピーすることができました。
もちろん、条件付き書式は、設定されていません。
条件付き書式の「背景色」と「文字色」をコピー
次は、条件付き書式の背景色と文字色を、コピーしてみます。
Sub TEST7()
'表示されている書式を取得
a = Range("A1").DisplayFormat.Interior.ColorIndex '背景色
b = Range("A1").DisplayFormat.Font.ColorIndex '文字色'書式を設定
Range("A1").Offset(2, 0).Interior.ColorIndex = a '背景色
Range("A1").Offset(2, 0).Font.ColorIndex = b '文字色
End Sub
Sub TEST8()
Dim Rg
'セル範囲をループ
For Each Rg In Range("A1:C4")
'表示されている書式を取得
a = Rg.DisplayFormat.Interior.ColorIndex '背景色
b = Rg.DisplayFormat.Font.ColorIndex '文字色'書式を設定
Rg.Offset(7, 0).Interior.ColorIndex = a '背景色
Rg.Offset(7, 0).Font.ColorIndex = b '文字色
Next
End Sub