vba命令求各位解释

杨浩骏在威海 发表于 2012-6-18 17:00:35

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

http://bbs.mjtd.com/xwb/images/bgimg/icon_logo.png 该贴已经同步到杨浩骏在威海的微博

页: [1]

明经CAD社区's Archiver

vba命令求各位解释