' Highlight Duplicate Values in Selection Sub HighlightDuplicateValues() Dim myRange As Range Dim cell As Range Set myRange = Selection For Each cell In myRange If WorksheetFunction.CountIf(myRange, cell.Value) > 1 Then cell.Interior.ColorIndex = 36 End If Next cell End Sub...
セル範囲").Font.Color = RGB(0, 0, 0) '黒 色の指定解除(自動) 色の指定自動に戻す場合は、 Range(セル範囲").Font.ColorIndex = xlAutomatic 見た目結果は黒文字になりますが、「自動」と「黒」は違うということを理解しておいてください。 第34回セルの書式(塗りつぶし,Interior...
Select With ThisWorkbook.Worksheets(1).Range("B1") .FormatConditions.Delete .FormatConditions.Add Type:=xlExpression, _ Formula1:="=A1=1" .FormatConditions(1).Interior.ColorIndex = 46 End With End Sub このコードでは、セル A1 に「1」と入力すると、セル B1 に条件付き書式が自動的...
" Else MsgBox "設定されている条件付き書式を削除して、着色/無色化します。" .FormatConditions.Delete End If With .Interior If .ColorIndex = xlNone Then .ColorIndex = 7 Else .ColorIndex = xlNone End If End With End With Cancel = True End Sub...