[英]Vba Excel Deleting a line from a table using an userform
我创建了一个用户窗体,该窗体允许用户创建新行(行)或更改这些行中的值。 但是,现在我尝试为用户添加选项,以从表中和仅从表中删除行。 含义:我不希望删除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
如果我在最后一行中将NE更改为数字,则可以使用,但是我不知道每次用户选择更改内容时该数字是多少。 该数字位于变量NE2内。
编辑:解决。
添加了一个名为NEX的变量,然后声明NEX = NE-2之后,在tbl.ListRows(NEX)中使用了NEX。像这样删除,现在可以正常使用了! 谢谢您的帮助
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.