[已解决]感谢Zipall 老师的帮助！解决了对复选框全选、反选的问题

zzh49

各位老师好！请帮助解决附件中过程的代码。
简要的说，是通过窗体上的选项按钮对列表框中的复选框进行全选和反选，选定的复选框对应一行数据送到Sheet2.
具体说明在附件中。附件： 附件.rar (12.8 KB, 下载次数: 82)

2012-6-27 08:52 上传

点击文件名下载附件
请您帮助。
谢谢！

最佳答案

月排行榜 / 总排行榜

Zipall

2012-6-27 11:05

Private Sub CommandButton1_Click()
    r = Sheets("sheet2").Range("a65536").End(xlUp).Row + 1
    With ListView1
        For i = 1 To .ListItems.Count
            If .ListItems(i).Checked Then
                Sheets("sheet2").Cells(r, 1).Resize(1, 5) = Sheets("sheet1").Cells(i + 1, 1).Resize(1, 5).Value
                .ListItems(i).Checked = False
                r = r + 1
            End If
        Next
    End With
    UserForm1.Hide
    Sheets("sheet2").Select
End Sub

Private Sub OptionButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    With ListView1
        For i = 1 To .ListItems.Count
            .ListItems(i).Checked = True
        Next
    End With
End Sub

Private Sub OptionButton2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    With ListView1
        For i = 1 To .ListItems.Count
            .ListItems(i).Checked = Not .ListItems(i).Checked
        Next
    End With
End Sub

跳转到最佳答案楼层

过江龙

期待中，

Zipall

Private Sub CommandButton1_Click()
    r = Sheets("sheet2").Range("a65536").End(xlUp).Row + 1
    With ListView1
        For i = 1 To .ListItems.Count
            If .ListItems(i).Checked Then
                Sheets("sheet2").Cells(r, 1).Resize(1, 5) = Sheets("sheet1").Cells(i + 1, 1).Resize(1, 5).Value
                .ListItems(i).Checked = False
                r = r + 1
            End If
        Next
    End With
    UserForm1.Hide
    Sheets("sheet2").Select
End Sub

Private Sub OptionButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    With ListView1
        For i = 1 To .ListItems.Count
            .ListItems(i).Checked = True
        Next
    End With
End Sub

Private Sub OptionButton2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    With ListView1
        For i = 1 To .ListItems.Count
            .ListItems(i).Checked = Not .ListItems(i).Checked
        Next
    End With
End Sub

zzh49

Zipall 发表于 2012-6-27 11:05
Private Sub CommandButton1_Click()
    r = Sheets("sheet2").Range("a65536").End(xlUp).Row + 1
     ...

非常感谢Zipall 老师！
很好使的代码。
再次谢谢！

过江龙

高手就是快，分享一下我的

Zipall

过江龙 发表于 2012-6-27 12:16
高手就是快，分享一下我的

几个建议

1 If y = 0 Then Exit Sub 这句可以不要,因为如果y=0那么 for x= 1 to 0 就不会进入循环体.
2 .Item(x).Checked本身就是逻辑值,所以If .Item(x).Checked = True Then和If .Item(x).Checked Then结果是一样的.
3 用mousedown而不用click的原因,你多点几下那个反选按钮就能看到区别了.

zzh49

二位老师真负责任，谢谢！

过江龙

谢谢老师的指导，在学习成长。

wenwen000424

正在学习，做个记号。