窗体触发删除窗体数据所在行命令

472403451

如图所示：
窗体是通过【点击取出】触发显示，窗体内容显示的是【点击取出】这行对应的内容，
现在想点击窗体的【确定】就直接将窗体数据所在行删除。

窗体代码如下：

Private Sub UserForm_Click()
UserForm1.Show
End Sub

Private Sub CommandButton2_Click() '取消
   Unload Me
End Sub

Private Sub CommandButton1_Click() '确定
   With Me
        If .Label3 & .Label4 & .TextBox1 <> "" Then
            Application.EnableEvents = False
            i = Sheet3.Range("a65536").End(xlUp).Row + 1
            Sheet3.Cells(i, 1) = .Label3
            Sheet3.Cells(i, 2) = .Label4
            Sheet3.Cells(i, 3) = .TextBox1
            Application.EnableEvents = True
        End If
    End With

    Unload Me
End Sub


这些都是瞎琢磨出来的，大神勿怪！


样板库位管理 - 副本.zip (22 Bytes, 下载次数: 6)

2018-9-7 19:23 上传

点击文件名下载附件

472403451

顶上，求解！