Excel 用户表单、定位单元格并插入日期

Question

我有一个用户表单，我想使用它来根据用户表单上输入的内容定位特定单元格。找到单元格后，我需要将日期插入到与上述需要定位的单元格位于同一行（不同列）的相应单元格中。

这是我的代码，但它似乎没有找到任何特定的单元格，而是只是在 E 列中插入一个日期，似乎是随机行。

Private Sub InsertRecordButton_Click()
Dim Found As Range
If Me.CloseDate.Value = "" Then
    MsgBox "No Date is set", , "Missing Entry"
Else
    Set Found = 
Sheets("Colonies").Range("E:E").Find(What:=Me.Colonyid.Value, _
                                                   LookIn:=xlValues, _
                                                   LookAt:=xlWhole, _
                                                   SearchOrder:=xlByRows, _
                                                   SearchDirection:=xlNext,_
                                                   MatchCase:=True)
    If Found Is Nothing Then
        MsgBox "No match for " & Me.Colonyid.Value, , "No Match Found"
    Else
        Found.Offset(3).Value = Me.CloseDate.Value
    End If

根据代码，我试图找到在 Colonyid.Value 中的用户窗体上输入的内容。在工作簿中找到后，我需要在与 Colonyid.Value 位于同一行的 E 列中输入 CloseDate.Value（自动填充今天的日期）。

我可以使用通用示例，但如果可能的话，我更喜欢使用我的代码作为起点。

Answer 1

这对我有用

Private Sub CommandButton1_Click()
    Dim this As String

    Dim rng As Range
    Dim rcell As Range

    If ISnUll(Me.TextBox1.Value) = False Then
         this = Me.TextBox1.Value
    ElseIf ISnUll(Me.TextBox1.Value) = true Then
         MsgBox "Input is required for operation. Please enter a value"
         Exit Sub
    End if

    Set rng = ThisWorkbook.Sheets("Sheet2").Range("E:E")
    For Each rcell In rng.Cells
    If rcell.Value <> vbNullString Then
        If rcell.Value = this Then
            rcell.Offset(0, 4).Value = Now()
        End If
    End If
    Next rcell
End Sub