दो डेटा सत्यापन एक ही सेल में

यह सब निर्भर करता है पर कैसे आप चाहते हैं को लागू करने के लिए सत्यापन.

यदि आप यह चाहते हैं होना करने के लिए सेल में एक ड्रॉप डाउन तो मानक सत्यापन केवल काम करेगा अगर आप हर संभव संयोजन में यह अपनी रेंज, उदाहरण के लिए ...

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

यदि आप चाहते हैं, आप कर सकते हैं हमेशा यह करना VBA का उपयोग. एक शब्द सावधानी की हालांकि, इस अमान्य होगा पूर्ववत हो चुकी है और संभावना की जरूरत करने के लिए परिष्कृत किया जा करने के लिए यह सुनिश्चित करता है कि सभी के लिए परिदृश्यों. यह बहुत है एक विकल्प हालांकि है.

आप की जरूरत है बदलने के लिए इस कोड को आप सूट करने के लिए. यह नंगे हड्डियों और काम करता है में एक बुनियादी भावना है ।

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

यह काम करने के लिए बनाने के लिए, एक नामित श्रेणी पर दोनों प्रमुख स्तंभों में अपने लुकअप तालिकाओं. संख्या (यानी 19, 33, 43, आदि.) मैं नाम है "Range1" और 4 चरित्र शब्दों (जैसे Exec, Folg, प्रदर्शन, आदि.) मैं नाम है "Range2".

की श्रृंखला के लिए कोशिकाओं को चलाने के लिए चाहते हैं के सत्यापन के लिए जाँच करें, मैं कहा जाता है कि "ValidationRange".

फेंक है कि मैक्रो कार्यपुस्तिका में है कि सीमा आप चाहते हैं कि मान्य करने के लिए और देखो यह कैसे हो जाता है.