如何使用列表框更新数据

Question

我想使用列表框更新数据。

记录显示在ListBox（lstDisplay）中，当我单击单个记录时，这些记录将显示在文本字段中，在这里我可以开始对其进行编辑。

然后我必须单击“保存”以保存更改，但是唯一更改的数据是“姓氏”列。

更新前：

更新后：

请参阅我的代码

Dim wks As Integer
Dim i As Integer
wks = Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))
For i = 2 To wks
    If Sheet1.Cells(i, "A").Value = Me.txtSearch.Text Then
        Sheet1.Cells(i, "B").Value = Me.txtLname.Text
        Sheet1.Cells(i, "C").Value = Me.txtFname.Text
        Sheet1.Cells(i, "D").Value = Me.cmbCourse.Text
        Sheet1.Cells(i, "E").Value = Me.cmbYear.Text
    End If
Next i