反正吹牛也不用上税,哥也当回标题党(^o^) 呃,不过确实速度很快,就算几万十万行也没有延迟……
Private Sub 全选_Click() Me.列表框.SetFocus Me.列表框.Selected(0)=True '如果有列标题则为Selected(1) DoEvents SendKeys "^+{END}", True End Sub
Private Sub 取消全选_Click() Me.列表框.SetFocus SendKeys "{F2}", True End Sub