vba命令求各位解释

杨浩骏在威海

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim selectindex As Integer, i As Integer
If ListBox1.ListIndex <> -1 Then
selectindex = Abs(Int(0 - (ListBox1.ListIndex + 1) / 5))
For i = 0 To 4
ListBox1.Selected((selectindex - 1) * 5 + i) = True
Next
End If
End Sub

该贴已经同步到 杨浩骏在威海的微博