从列表框中更新数据

Question

我想从列表框中更新一条记录。

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

然后我必须单击“保存”以保存更改，但是我遇到错误。

请查看我的代码。

请查看屏幕截图 screenshot

Private Sub cmdSave_Click()
Dim i As Integer
For i = 0 To Range("A65356").End(xlUp).Row - 1
If lstDisplay.Selected(i) Then
    Rows(i + 1).Select

 Sheet.Cells(i, 1) = txtSearch.Text
 Sheet.Cells(i, 2) = txtLname.Text
 Sheet.Cells(i, 3) = txtFname.Text
 Sheet.Cells(i, 4) = txtCourse.Value
 Sheet.Cells(i, 5) = txtYear.Value




End If

Next i
End Sub