Excel数据检查

Question

Excel数据检查

我有一个Excel UserForm，其中包含以下字段; date，name和work。

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

实施例

工作表有一个条目：

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

对于上面的工作表，以下规则适用：

1. 可以从3/1/2017和john的用户窗体传递信息。
2. 可以从1/1/2017和jane的用户窗体传递信息。
3. 无法从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