excel - 从列表框更新数据

Question

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

记录显示在 ListBox(lstDisplay) 中，当我单击单个记录时，这些记录将显示在文本字段中，我可以在其中开始编辑它们。

然后我必须单击保存以保存更改，但是我收到错误消息。

请看我的代码。

请看截图 截图

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

标签： excelvba