ID非公開

2022/5/26 22:34

22回答

excel vbaついて 背景

Visual Basic | C言語関連97閲覧xmlns="http://www.w3.org/2000/svg">250

ベストアンサー

0

ThanksImg質問者からのお礼コメント

みなさんすごいです。 ありがとうございました

お礼日時:5/27 12:23

その他の回答(1件)

0
ID非公開

2022/5/27 9:14

開いているファイルを対象に条件付き書式を削除する場合、以下のようにすればできますよ。 Sub sample() Workbooks("ファイル名").Activate With Worksheets("Sheet1") .Select .Cells.FormatConditions.Delete .UsedRange.Select End With End Sub また条件付き書式のセルをコピーする場合は以下のようにします。 Sub sample() Dim rng As Range On Error Resume Next Set rng = Cells.SpecialCells(xlCellTypeAllFormatConditions) '条件付き書式が設定されているセル On Error GoTo 0 If rng Is Nothing Then MsgBox "条件付き書式は設定されていません。" Else rng.Select MsgBox "条件付き書式が設定されています。" 'そのセルをコピペ rng.Copy Cells(1, 1) 'A1にコピペ 'Cells(1, 1).ClearContents '条件付き書式だけ生かし,値だけ削除 End If End Sub

ID非公開

2022/5/27 9:16

追記: 開いているファイルを対象に条件付き書式を削除する場合 のものは他のブックから書式付きブックを操作する場合のものです。