Question

Image我创建了一个Excel用户表单。在列表框中，当我尝试删除行时，出现错误：无法设置List属性。无效的属性数组索引。

删除命令

Private Sub CmdDelete_Click()

Dim i As Integer
For i = 1 To Range("A1000000").End(xlUp).Row
If Cells(i, 1) = Listbox1.List(Listbox1.ListIndex) Then
Rows(i).Select
Selection.Delete
End If
Next i
End Sub

Answer 1

能否请您发布列表框的内容和电子表格的几行？每个selection.delete都有可能更改End（xlUp）.Row的值。也可以是ListIndex。我忘了它是从0还是1开始，但是您可能指向的是错误的？

Answer 2

请确保您已在ListBox中进行了选择，否则Listindex的值= -1

删除行时从下到上

请勿使用.select

单击后是否要更新列表框？

稍作调整的代码（不完全合格的范围/单元格）：

def slackSendOnRestrictedContext(params) {

    if (params.attachments != null) {
        // Soooo ugly but no other choice with restrictions of Jenkins Script Pipeline Security plugin ^^
        def paramsAsJson = JsonOutput.toJson(params)
        def paramsAsJsonFromReadJson = readJSON text: paramsAsJson
        params.attachments = paramsAsJsonFromReadJson.attachments.toString()
    }

    slackSend (params)
}

无法设置列表属性。无效的属性数组索引

2 个答案: