以前、範囲選択したセルのデータのコピー方法を教えていただき、
下記実装で動作確認が取れましたが、
セルの条件付き書式の設定に関してコピーをしたいのですが、
参考となるサイトがあまりありませんでした。
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
としても、条件付き書式の設定ができません。
なにか良い方法ございますでしょうか。
追記
クリップボードを使用するコピーは控えたいと考えています。
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。