두 개의 데이터 유효성 검사에는 동일한 세포

이에 따라 모든 방법을 적용할 유효성 검사를 수행합니다.

당신이 그것을 원하는 경우에 있어 세포에서 드롭다운 그 유효성 검사 기준에만 작동이 있는 경우 모든 조합에서 가능한 그것의 자신의 범위,예를 들어,...

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,etc.) 내가 있는 이름이"Range1"그리고 4 단어는 문자(예를 들어 Exec,Folg,Disp,etc.) 내가 있는 이름이"Range2".

범위에 대한 세포의 실행할 검증 확인을 위한,나라는"ValidationRange".

던지는 매크로로 워크시트가 있는 범위를 확인할 수고가는 방법을 참조하십시오.