Vba Excel使用用户窗体从表中删除行

时间:2019-02-26 13:59:27

标签: excel vba

我创建了一个用户窗体,该窗体允许用户创建新行(行)或更改这些行中的值。但是,现在我尝试为用户添加选项,以从表中和仅从表中删除行。含义:我不希望删除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。像这样删除,现在完全可以使用了!感谢您的帮助

0 个答案:

没有答案