例えばA、B、C、Dとテキストフィールドがあったとして、その中に任意に整数（もしくは空欄）を入れるとします。

打ち込んだ整数に重複があった場合、注意メッセージを計算フィールドにて表示させたいのですが、
良い計算式を思いつきません。お力を貸して頂けませんでしょうか。

今考えていたのがCase関数を使ったものだったのですが、
処理が甘く、意図した動作に至りませんでした。よろしくお願いします。


Let ( a = "※重複個所があります。設定を見直して下さい。" ;
Case (
A = B ; If ( IsEmpty ( A ) ≠ 1 ; a ) ;
A = C ; If ( IsEmpty ( A ) ≠ 1 ; a ) ;
A = D ; If ( IsEmpty ( A ) ≠ 1 ; a ) ;

B = A ; If ( IsEmpty ( B ) ≠ 1 ; a ) ;
B = C ; If ( IsEmpty ( B ) ≠ 1 ; a ) ;
B = D ; If ( IsEmpty ( B ) ≠ 1 ; a ) ;

C = A ; If ( IsEmpty ( C ) ≠ 1 ; a ) ;
C = B ; If ( IsEmpty ( C ) ≠ 1 ; a ) ;
C = D ; If ( IsEmpty ( C ) ≠ 1 ; a ) ;

D = A ; If ( IsEmpty ( D ) ≠ 1 ; a ) ;
D = B ; If ( IsEmpty ( D ) ≠ 1 ; a ) ;
D = C ; If ( IsEmpty ( D ) ≠ 1 ; a ) ;
) )