Excel数据校验

Question

Excel数据校验

我有一个Excel UserForm，它包含以下字段：date、name和work。

如果工作表包含相同的日期和名称配对，我希望阻止来自Userform的数据传输。

示例

工作表有一个条目：

• 列A有日期1/1/2017
• 列B的名称为john

对于上述工作表，适用下列规则：

1. 信息可以从UserForm传递给3/1/2017和john。
2. 信息可以从UserForm传递给1/1/2017和jane。
3. 不能从UserForm为1/1/2017和john传递信息。

Answer 1

Dim k As Long
Dim matched As Boolean
matched = False

' Loop over all used rows
For k = 1 to ActiveSheet.UsedRange.Rows.Count

    ' Check if concatenated string of date & name is unique
    ' e.g. '01/01/17john'
    If ActiveSheet.Cells(k, "A").Text & ActiveSheet.Cells(k, "B").Text = _
       myUserForm.DateField.Text & myUserForm.NameField.Text Then

        MsgBox "This Name / Date combination is not unique, pick again"

        matched = True

        Exit For

    End If

Next k

If matched = False Then

    ' Name/Date combination is unique, send data to sub or whatever... 

End If