社区 › C# › vba命令求各位解释

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

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


该贴已经同步到

查看完整版本: vba命令求各位解释