VBA |更新和删除我的列表视图中的项目

如何解决VBA |更新和删除我的列表视图中的项目

我是VBA初学者，正在尝试开发负责任的系统。

我目前正在寻找一种方法来正确编辑listview中的项目并进行更新，也将其删除。我已经将填充listview的所有数据保存在excel电子表格中，但不确定是否会更改任何内容。

这是我的问题：我确实找到了一种更新listview的方法，但是它的功能非常有限，并且无法完全满足我的需要。

我现在正在使用的代码执行以下操作：我有两个userforms；一个用于记录数据，另一个用于使用listview（和4个过滤器）读取数据。现在，在我的listview中，我可以双击一个单元格，然后打开我的Login Userform-从那里我可以“保存”它，但是它只是创建了另一个单元格-就是问题，因为我希望它打开第三个userform而不是打开Login Userform。我需要它来更新，而不是创建。如果我也可以删除单元格（也可以在我的excel电子表格中删除它们），那就太好了。

我尝试重做Login Userform，并使用它的结构作为Update Userform的引用，但是它不起作用，并且我收到最可怕的错误消息，说代码中有灾难性的失败。

这是我双击单元格后调用我的Login Userform的代码：

Private Sub ListViewEntries_DblClick()

    Load UserformLogin
    
    UserformLogin.TextDate = UserFormCRUD.ListViewEntries.SelectedItem
    UserformLogin.TextTime = UserFormCRUD.ListViewEntries.SelectedItem.ListSubItems(1)
    UserformLogin.ComboType = UserFormCRUD.ListViewEntries.SelectedItem.ListSubItems(2)
    UserformLogin.TextValue = UserFormCRUD.ListViewEntries.SelectedItem.ListSubItems(3)
    UserformLogin.ComboCategory = UserFormCRUD.ListViewEntries.SelectedItem.ListSubItems(4)
    UserformLogin.TextSupplier = UserFormCRUD.ListViewEntries.SelectedItem.ListSubItems(5)
    UserformLogin.TextEIN = UserFormCRUD.ListViewEntries.SelectedItem.ListSubItems(6)
    UserformLogin.TextPaymentDate = UserFormCRUD.ListViewEntries.SelectedItem.ListSubItems(7)
    UserformLogin.ComboStatus = UserFormCRUD.ListViewEntries.SelectedItem.ListSubItems(8)
    UserformLogin.TextObservation = UserFormCRUD.ListViewEntries.SelectedItem.ListSubItems(9)
    
    
    UserformLogin.Show

End Sub

这是我完整的Login Userform代码：

Private Sub BtnCreate_Click()

    Dim Row As Integer
    
    Row = Spreadsheet3.Range("A1000000").End(xlUp).Row + 1
    
    
    Spreadsheet3.Range("A" & Row) = TextDate.Text
    Spreadsheet3.Range("B" & Row) = TextTime.Text
    Spreadsheet3.Range("C" & Row) = ComboType.Text
    Spreadsheet3.Range("D" & Row) = TextValue.Text
    Spreadsheet3.Range("E" & Row) = ComboCategory.Text
    Spreadsheet3.Range("F" & Row) = TextSupplier.Text
    Spreadsheet3.Range("G" & Row) = TextEIN.Text
    Spreadsheet3.Range("H" & Row) = TextPaymentDate.Text
    Spreadsheet3.Range("I" & Row) = ComboStatus.Text
    Spreadsheet3.Range("J" & Row) = TextObservation.Text
    
    
    MsgBox "New entry successfully logged!"
    
    Unload Me
    
    UserformLogin.Show

End Sub

Private Sub BtnExit_Click()

    Load ExitUserFormCRUD
    ExitUserFormCRUD.Show

End Sub

Private Sub TextEIN_Exit(ByVal Cancel As MSForms.ReturnBoolean)


    If Len(TextEIN) = 11 Then
        'Format in case of SSN
        TextEIN = Format(TextEIN,"000"".""000"".""000""-""00")
    Else
        'Format in case of EIN
        TextEIN = Format(TextEIN,"00"".""000"".""000""/""0000""-""00")
    End If


End Sub

Private Sub TextEIN_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    If KeyAscii < Asc(0) Or KeyAscii > Asc(9) Then
    
        KeyAscii = 0
        
    End If
    
End Sub


Private Sub TextPaymentDate_Change()

    TextPaymentDate.MaxLength = 10

    If Len(TextPaymentDate) = 2 Or Len(TextPaymentDate) = 5 Then
        
        TextPaymentDate.Text = TextPaymentDate.Text & "/"
    
    End If

End Sub

Private Sub TextPaymentDate_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    If KeyAscii < Asc(0) Or KeyAscii > Asc(9) Then
    
        KeyAscii = 0
        
    End If

End Sub

Private Sub TextValue_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    'Value validation
    If IsNumeric(TextValue) = True Then
    
        TextValue = Format(TextValue.Text,"##,##0.#0")
    
    End If


End Sub

Private Sub TextValue_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    If KeyAscii < Asc(0) Or KeyAscii > Asc(9) Then
    
        KeyAscii = 0
        
    End If

End Sub

Private Sub UserformLogin_Initialize()

    TextDate = Date
    TextTime = Time

    'Combo Box Declaration
    ComboType.AddItem "Income"
    ComboType.AddItem "Outcome"
    
    ComboStatus.AddItem "Fulfilled"
    ComboStatus.AddItem "Unfulfilled"
    
    ComboCategory.AddItem "Category A"
    ComboCategory.AddItem "Category B"
    ComboCategory.AddItem "Category C"
    ComboCategory.AddItem "Category D"
    ComboCategory.AddItem "Category E"


End Sub

我真的需要一些帮助。我被困在这个。提前谢谢！！！

Ps .：请忽略我的任何语法错误或EIN或SSA等文档的数字不准确，只是在我所在的地区，我们使用了不同的数字集。我更改了其中一些内容以使其易于理解。

（我也愿意考虑用户格式或代码。请随时询问有关该项目的问题）

编辑：忘记了，ExitUserformCRUD是一个用户窗体窗口，用于确认有人要关闭当前用户窗体。