การตรวจสอบข้อมูลใน Excel- ค่าทั้งหมดในรายการที่คั่นด้วยจุลภาคภายในช่วงเซลล์

ฉันมีตารางอ้างอิงของบันทึกช่วยจำและข้อมูลบางอย่างเกี่ยวกับพวกเขารวมถึงบันทึกอื่น ๆ ที่อ้างอิงและมีการอ้างอิง ฉันต้องการสร้างกฎการตรวจสอบความถูกต้องของข้อมูลที่จะปรากฏเป็นสีแดงหากค่าใด ๆ ในรายการที่คั่นด้วยจุลภาคไม่อยู่ในรายการบันทึกช่วยจำของฉัน (กล่าวอีกนัยหนึ่งคือว่าเราขาดข้อมูล พิมพ์ผิด) อาจมีการอ้างอิงบันทึกอื่น ๆ จำนวนเท่าใดก็ได้ หมายเลขบันทึกสำหรับแต่ละรายการอยู่ในคอลัมน์ A การอ้างอิงอยู่ในคอลัมน์ G แถวส่วนหัว 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)

และนี่คือ UDF ที่ใส่ค่า TRUE / FALSE ในเซลล์ผู้ช่วย สูตรจะมีลักษณะอย่างไร=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