VBA 条件付き書式の書式(背景色)のみコピー

質問

エクセル2016のマクロで、別シートの条件付き書式の書式(背景色)のみコピーしてきたいです。
以下ではうまく動かすことができませんでした。
ws2.Range("A1:D10").DisplayFormat.Interior.ColorIndex = ws1.Range("A1:D10").DisplayFormat.Interior.ColorIndex

範囲の背景色のみコピー&ペーストという動作自体できないのでしょうか？
また、for...nextで一セルずつ等他に方法があればお教えいただきたいです。

分かりづらい質問で申し訳ありません。。
質問の趣旨をおわかりいただけるでしょうか？
方法等調べましたがほしい情報が見当たらず、お知恵をお貸しください。
よろしくお願いいたします。

回答No.1

kkkkkm · ベストアンサー

Range.DisplayFormatは読み取り専用なので

以下のようにしてみてください。

Sub Test()
Dim ws1 As Worksheet, ws2 As Worksheet
Dim c As Range

Set ws1 = Sheets("Sheet1")
Set ws2 = Sheets("Sheet2")

For Each c In ws1.Range("A1:D10")
ws2.Range(c.Address).Interior.ColorIndex = _
c.DisplayFormat.Interior.ColorIndex
Next
End Sub

お礼

読み取り専用だったのですね、、
対応できました！ありがとうございます！！

回答No.2

kkkkkm

No.1の追加です。
ちなみに
A1:D10
が同じ色になっている場合は
ws2.Range("A1:D10").Interior.ColorIndex = ws1.Range("A1:D10").DisplayFormat.Interior.ColorIndex
でいけますが、そうならない場合のことを考えたらNo.1の方法でひとセルずつコピーしたほうがいいと思います。

お礼

同じ色を扱う際はこちらでやってみます！
ありがとうございます！