สองข้อมูลการตรวจสอบอยู่ในห้องขังเดียวกัน

มันทั้งหมดขึ้นอยู่กับวิธีการที่คุณต้องการจะปรับใช้ในการตรวจสอบ.

ถ้าคุณต้องการมันจะต้องอยู่ในห้องขันในหล่นลงแล้วมาตรฐานการตรวจสอบจะมีเพียงทำงานถ้าคุณมีทุกการผสมผสานในมันเป็นตัวเองช่วง e.g....

19Exec
19Folg
19Disp
...
33Exec
33Folg
33Disp
... 
etc.

ถ้าคุณต้องการคุณสามารถทำมันโดยใช้ VBA. เป็นคำพูดของความระมัดระวังแม้ว่ามันจะ invalidate เลิกทำงานกันจะต้องเป็น refined เพื่อให้แน่ใจว่ามัน caters สำหรับเหตุการณ์จำลอง. มันเป็นมากเป็นตัวเลือกนะ

คุณต้องการจะเปลี่ยนแปลงรหัสที่เหมาะกับคุณหรอก มันเปลือกระดูกและทำงานในพื้นฐานเหตุผลเลย

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rngIntersect As Range, objCell As Range, strPrefix As String, strSuffix As String
    Dim lngIndexSuffix As Long, lngIndexPrefix As Long
    
    ' Safety net, remove if you think this won't be a problem.
    If Target.Cells.Count > 1000 Then Exit Sub
    
    For Each objCell In Target
        Set rngIntersect = Application.Intersect(objCell, Range("ValidationRange"))
        
        If Not rngIntersect Is Nothing Then
            If Len(objCell.Text) = 0 Then
                ' Only continue if the cell isn't empty.
                Target.Interior.ColorIndex = -4142
            Else
                strSuffix = Right(objCell.Text, 4)
                strPrefix = Mid(objCell.Text, 1, Len(objCell.Text) - Len(strSuffix))

                Err.Clear
                
                On Error Resume Next
                
                lngIndexPrefix = WorksheetFunction.Match(CInt(strPrefix), Range("Range1"), 0)
                lngIndexSuffix = WorksheetFunction.Match(strSuffix, Range("Range2"), 0)
                
                If Err.Description <> "" Then
                    Target.Interior.Color = 255
                Else
                    Target.Interior.ColorIndex = -4142
                End If
                
                On Error GoTo 0
            End If
        End If
    Next
End Sub

เพื่อทำให้มันทำงานสร้างชื่อระยะมาทั้งสองกุญแจในคอลัมน์ของคุณค้นหาตารางข้อมูลเรียบร้อยแล้ว. ตัวเลข(i.e. 19 อายุ 33 ปี 43 เป็นต้น) ฉันมีชื่อว่า"Range1"และ 4 คำอักขระ(e.g. ประมวลผล,Folg,Disp,etc.) ฉันมีชื่อว่า"Range2".

สำหรับช่วงของเซลล์คุณต้องการประมวลผลการตรวจสอบเช็คเพื่อฉันเรียกว่า"ValidationRange".

โยนมันมาโครเข้าไปยังแผ่นงานที่มีช่วงที่คุณต้องการจะพิสูจน์ความถูกต้องของและดูว่ามันเป็นยังไง