[已解决]如何用VB做一个批量删除辞职员工的窗体

ww87398804

在删除选中员工时提出警告：您是否删除所选员工，下面有两个选择按钮，选择“是”执行，执行完毕窗体自动消失。选择“否”返回。做好的窗体，没有代码，请大家帮帮我，谢谢。

有老师帮我做了一个，但是我想把第69行以下的数据放入复选框，69行以上的数据不动怎么改代码？拜托各位了。代码如下

Private Sub CheckBox1_Click() '全选复选框,新加
    Dim f As Boolean, i&
    f = CheckBox1.Value
    With ListBox1
        For i = 0 To .ListCount - 1
            .Selected(i) = f
        Next
    End With
End Sub

Private Sub CommandButton1_Click() '确认删除
    Dim rng As Range, i&, m&
    With ListBox1
        For i = 0 To .ListCount - 1
            If .Selected(i) Then
                m = m + 1
                If m = 1 Then Set rng = Cells(i + 2, 1) Else Set rng = Union(rng, Cells(i + 2, 1))
            End If
        Next
    End With
    If m > 0 Then
        If MsgBox("你选择了" & m & "个职工，是否删除？", vbInformation + vbYesNo, gsAPP_TITLE) = vbYes Then
            rng.EntireRow.Delete
            Call UserForm_Initialize
        End If
    End If
End Sub

Private Sub UserForm_Initialize()
    Dim lr&
    lr = Range("a65536").End(xlUp).Row
    With ListBox1
        .RowSource = ""
        If lr > 1 Then .List = Range("a2:a" & lr).Value
        .MultiSelect = fmMultiSelectMulti
        .ListStyle = fmListStyleOption
    End With
End Sub

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

最佳答案

月排行榜 / 总排行榜

云子

2014-9-2 20:53

ww87398804 发表于 2014-9-2 20:25
不是，你这个把第一行也删除了，帮我改改这个，我想把第69行以下的数据放入复选框，69行以上的数据不动怎 ...

哦，我弄错了，初学，bug太多。。这是包括第69行的，你想要从第几行开始，就把里面出现69的地方都替换成你想要的行数

跳转到最佳答案楼层

ww87398804

批量删除辞职员工.rar (12.86 KB, 下载次数: 14)

2014-9-2 17:38 上传

点击文件名下载附件

ww87398804

怎么没有人呀，在线等，一分钟刷新一次。高手快点来呀。

这儿有肥猫

哈哈，纯帮顶，马上要出去，就不抢最佳了

ww87398804

这儿有肥猫 发表于 2014-9-2 19:16
哈哈，纯帮顶，马上要出去，就不抢最佳了

帮帮再出去嘛，拜托了，在线等

开心妙妙

不知道是不是你想要的结果

开心妙妙

批量删除辞职员工1.rar (17.76 KB, 下载次数: 1)

2014-9-2 19:51 上传

点击文件名下载附件
晕，怎么占了二层楼

ww87398804

开心妙妙 发表于 2014-9-2 19:51
晕，怎么占了二层楼

删除不了，不过还是谢谢您

ww87398804

开心妙妙 发表于 2014-9-2 19:48
不知道是不是你想要的结果

删除不了，不过还是谢谢您

云子

试一下