VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 编程开发 > vb >

  • excel vba教程之筛选 by:Qee用

1.  筛选  by:Qee用

‘2007322
‘请教如何排序筛选.xls
Function rr(ByVal s As String) As String
  Dim i%, arr(1 To 15) As Boolean, ar
  ar = Split(s, " ")
  For i = 0 To UBound(ar)
    arr(Val(ar(i))) = True
  Next i
  For i = 1 To 15
    If Not arr(i) Then rr = rr & Format(i, "00") & " "
  Next i
  rr = Trim(rr)
End Function
 
 

相关教程