VBA セルの条件付き書式の設定をコピーすることは可能でしょうか。

以前、範囲選択したセルのデータのコピー方法を教えていただき、
下記実装で動作確認が取れましたが、
セルの条件付き書式の設定に関してコピーをしたいのですが、
参考となるサイトがあまりありませんでした。

VBA
1Dim testRange() As Variant
2testRange = Range("A1:A3").Value
3Range("B1:B3").Value = testRange
4Range("A1:A3").clearContents
5Range("A1:A3").clearFormats

上記の処理は簡単に作成した処理です。
現状、Range("A1：A3")のValueは("B1:B3")に格納できますが、
Range("A1:A3")の持つ条件付き書式の設定が格納できていません。

clearContentsでValueが一括削除でき、
clearFormatsで条件付き書式の設定が一括削除できているのですが、

Valueの格納は
Range("A1:A3").Valueで良くて、
Formatsの格納が
Range("A1:A3").Formatで出来ないのでそのようなプロパティにあたるものがないか調べてみました。

そこでFormatConditionsというものを見つけたのですが、

VBA
1Dim testRange_value() As Variant
2testRange_value = Range("A1:A3").Value
3
4Dim testRange_format() As FormatCondition
5testRange_format = Range("A1:A3").FormatConditions
6
7Range("B1:B3").Value = testRange
8Range("B1:B3").FormatConditions = testRange_format
9
10Range("A1:A3").clearContents
11Range("A1:A3").clearFormats

としても、条件付き書式の設定ができません。

なにか良い方法ございますでしょうか。

追記
クリップボードを使用するコピーは控えたいと考えています。

行動規範の内容に同意します

回答4件

Dim testRange_format As FormatCondition
Dim testRange_value() As Variant

testRange_value = Range("A1:A3").Value
testRange_format = Range("A1:A3").FormatConditions(1)

Range("B1:B3").Value = testRange

Range("B1:B3").FormatConditions.Delete
Range("B1:B3").FormatConditions.Add _
testRange_format.Type,testRange_format.Operator, testRange_format.Formula1

With Range("B1:B3").FormatConditions(1).Interior
.Color = testRange_format.Interior.Color
End With

Range("A1:A3").clearContents
Range("A1:A3").clearFormats

上記のように各プロパティごとに設定をしていくというのはどうでしょう？

投稿2018/01/31 00:47