Excelのデータ検証-セル範囲内のコンマ区切りリストのすべての値

メモの参照テーブルと、それらが参照し、参照されている他のメモを含む、それらに関するいくつかの情報があります。参照のコンマ区切りリストの値のいずれかがメモのリストにない場合に赤で表示されるデータ検証ルールを作成したい（つまり、情報が欠落しているか、ユーザーが打ち間違え）。他のメモをいくつでも参照できます。各エントリのメモ番号は列Aにあり、参照は列Gにあります。見出し行A、次の行のデータは定期的に追加されます。

A ............ G

LF100009 ....... 400 <-赤

HS100011 .......

RT100012 ....... LF100009

LA100015 ....... LF100009、RT100012

ME100020 ....... HS100011、RT1000012、LA100015 <-赤

KE100050 ....... LA100011、LA100015 <-赤

まったくエレガントではありませんが、これは最大3つの参照に対して機能します。必要に応じて条件付き書式と組み合わせるか、ヘルパー列に入れることができます。

=IF(IF(IF(G2="",TRUE,LEN(G2)-LEN(SUBSTITUTE(G2,",",""))+1)=TRUE,1,
IF(IF(G2="",TRUE,LEN(G2)-LEN(SUBSTITUTE(G2,",",""))+1)=1,COUNTIF(A:A,G2),
IF(IF(G2="",TRUE,LEN(G2)-LEN(SUBSTITUTE(G2,",",""))+1)=2,SUMPRODUCT((COUNTIF(A:A,LEFT(G2,FIND(",",G2)-1)))*(COUNTIF(A:A,MID(G2,FIND(",",G2)+2,LEN(G2))))),
IF(IF(G2="",TRUE,LEN(G2)-LEN(SUBSTITUTE(G2,",",""))+1)=3,SUMPRODUCT((COUNTIF(A:A,LEFT(G2,FIND(",",G2)-1)))*(COUNTIF(A:A,MID(G2,FIND(",",G2)+2,LEN(G2)-FIND("@",SUBSTITUTE(G2,",","@",IF(G2="",TRUE,LEN(G2)-LEN(SUBSTITUTE(G2,",",""))+1)-1))-1)))*(COUNTIF(A:A,MID(G2,FIND("@",SUBSTITUTE(G2,",","@",IF(G2="",TRUE,LEN(G2)-LEN(SUBSTITUTE(G2,",",""))+1)-1))+2,LEN(G2))))),
FALSE
))))=1,TRUE)

そして、ここにヘルパーセルにTRUE / FALSE値を置くUDFがあります。数式は次のようになります=testReferences(G2,A:A,", ")

次のコードはVBAエディターに貼り付けられます。無制限の参照に対して機能します。

Function testReferences(text As Range, list As Range, delimiter As String)
    Dim arr() As String
    Dim found As Boolean

    If text = "" Then
        found = True
    Else
        arr = Split(text, delimiter)            
        For i = LBound(arr) To UBound(arr)
            If Application.WorksheetFunction.CountIf(list, arr(i)) = 1 Then
                found = True
            Else
                found = False
                Exit For
            End If
        Next
    End If

    testReferences = found
End Function