Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) With Target If .FormatConditions.Count = 0 Then MsgBox "条件付き書式は設定されていないので、そのまま着色/無色化します。" Else MsgBox "設定されている条件付き書式を削除して、着色/無色化します。" .FormatCon...