If Val(.Item(1, 1).Value) = 1 Then .ClearContents Else .Value = 1 End If End With Cancel = True End Sub そして、カレンダーの条件付き書式設定において、隠しシートのセルを参照する条件式を追加すれば良いと思います。 2021年2月20日土曜日 23:19 ...
stopIfTrue === true が設定された条件付き書式が条件に一致して範囲に適用されると、その後ほかの条件付き書式は、書式の内容が競合していない場合であっても、一切適用されません。次に、2 つの条件付き書式が範囲に追加されている例を示します。 ここでは、負の数値に、もう一方の条件付き書...