Question

我是VBA的新手，还在学习。想请求帮助填充每个VBA Vlookup返回到同一工作簿中另一个新工作表中的新行。

用户将在EntryScan（Cell C16）“EntryScan”表中键入其号码。 VBA将使用用户名查找相应的Number。每个成功的查找将粘贴到单元格A4，B4和C4中新单“Late”的新空白行中。后续的Lookup返回应该转到A5，B5和C5，依此类推。

表1 - 查看表表2 -Late 表3 -EntryScan

我遇到以下无法粘贴到新单“Late”的代码：

Dim Student_name As Variant
Dim myrange As Range
Dim NRIC_input As String
Dim ws1, ws2 As Worksheet

Set ws1 = ThisWorkbook.Sheets("NRICtable")
Set ws2 = ThisWorkbook.Sheets("Late")
Set ws3 = ThisWorkbook.Sheets("EntryScan")
Set myrange = ws1.Range("B2:C29")

ws3.Range("C16").Select
NRIC_input = ws3.Range("C16").Value

If Len(NRIC_input) = 9 Then

Student_name = Application.WorksheetFunction.VLookup(NRIC_input, myrange.Value, 2, False)

            With ws2
            ws2.Range("A").Value = NRIC_input
            ws2.Range("B").Value = Student_name
            ws2.Range("C").Value = Now()
            NextRow = .Range("A", "B", "C" & Rows.Count).End(xlUp).Row + 1
            End With

         ws3.Range("C16").ClearContents
         ws3.Range("C16").Select


    Else
        MsgBox ("You have entered an invalid NRIC")
    End If
Exit Sub

从Vlookup复制返回并粘贴到新工作表中的新空行

0 个答案: