繁体   English   中英

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

[英]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.

 
粤ICP备18138465号  © 2020-2024 STACKOOM.COM