Если текстовые поля и диапазон совпадают, тогда делайте отметку времени в Excel - PullRequest
0 голосов
/ 09 марта 2020

Я создаю систему входа / выхода. Моя функция выхода работает нормально, и под этим я подразумеваю, когда я ввожу данные в два текстовых поля и нажимаю commanbutton1, эта информация сохраняется в журнале с отметкой времени на рабочем листе 1.

Я хочу создать функцию «входа в систему» ​​для commandbutton2, в которой, если два текстовых поля (номер оператора и номер детали) совпадают с тем, что есть в журнале (рабочий лист 1), то в этой соответствующей строке добавить метку времени в следующий столбец. Это будет означать, что кто-то вошел в систему. Ниже указано, что у меня есть для кода VBA.

Private Sub CommandButton2_Click()
Dim rng As Range

On Error Resume Next
    Set rng = Worksheets("SignOutIn").Range("D:E").Find(what:=textbox1.Text Xor textbox2.Text)
On Error GoTo 0

If rng Is Nothing Then
    MsgBox "No Match Found. Please try again."
Else
     If Intersect(Target, Range("D11:E100")) Is Nothing Then Exit Sub
    Range("M" & Target.row) = Date + Time
    End If


textbox1 = ""
textbox2 = ""

End Sub

Изображение для справки:

enter image description here

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...