同一单元格中的两个数据验证

Question

我需要为用户进行数据验证，不要错过输入数据库的信息。 单元格中的信息必须填写两个条件，第一部分是工人状态，紧随其后的是同一单元格中的第二个信息是他正在处理的合同代码。 如何使用位于两个不同表中的这两个信息进行数据验证？ 我尝试了类似 =AND(LEFT(K3:Q999;4)=S3:S13;RIGHT(K3:Q999;2)=S15:S49)

在此处输入图像描述

Answer 1

这完全取决于您希望如何应用验证。

如果您希望它位于下拉列表中的单元格中，则只有在您自己的范围内拥有所有可能的组合时，标准验证才会起作用，例如...

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、Disp 等）命名为“ Range2 ”。

对于您要运行验证检查的单元格范围，我将其称为“ ValidationRange ”。

将该宏放入具有您要验证的范围的工作表中，看看它是如何进行的。