我创建了一个用户窗体,该窗体允许用户创建新行(行)或更改这些行中的值。但是,现在我尝试为用户添加选项,以从表中和仅从表中删除行。含义:我不希望删除excel工作表中的整行,我只想删除表中各列中的部分。
它将是这样的:用户输入变量,代码在表中找到该变量,从而标识该行,然后删除整个行(表内)。
我现在的代码如下:
'To Remove
mid2:
Dim NE2 As Integer
Dim numNE2 As String
Sheets("Máquinas").Select
LastNE2 = Application.ThisWorkbook.Worksheets("Máquinas").Range("A1000").End(xlUp).Row
For NE2 = 3 To LastNE2
numNE2 = Cells(NE2, 1)
If Box1 = "" Then
MsgBox "Equipment Number Missing."
GoTo fimv
ElseIf Box1 = numNE2 Then
GoTo jumpNE2
End If
If NE2 = LastNE2 Then
MsgBox "Equipment number non existent"
GoTo fimv
End If
Next NE2
jumpNE2:
Dim tbl As ListObject
Set tbl = ActiveSheet.ListObjects("Tabela2")
tbl.ListRows(NE2).Delete
如果我在最后一行中将该网元更改为数字,则可以使用,但是我不知道每次用户选择更改内容时该数字是多少。那个数字在变量NE2内。
编辑:已解决。
添加了一个名为NEX的变量,然后声明NEX = NE-2 之后,在tbl.ListRows(NEX)中使用NEX。像这样删除,现在完全可以使用了!感谢您的帮助