Excel VBA条件付き書式設定の枠線を削除する

Question

私はthread where the conditional formatting is removed but the format is keptを見つけました。

私がスクリプトを実行すると、境界線の条件付き書式が失われています。国境にすべての情報を保存することも可能ですか？

Dim b as long 
For b = 1 To 12 
    .Borders(b).LineStyle = .DisplayFormat.Borders(b).LineStyle 
    .Borders(b).Color = .DisplayFormat.Borders(b).Color 
    .Borders(b).Weight = .DisplayFormat.Borders(b).Weight 
Next 

P.S.：

ベスト、With aCellブロック内 アレックス

Answer 1

、あなたはこれを追加してみてくださいすることができます私はループでコードを短縮するために列挙xlEdgeTop、xlEdgeLeftなどの数値を使用しました。