Office中国论坛/Access中国论坛

标题: 紧急求助，一个巨难的问题！ [打印本页]

作者: tieliren 时间: 2009-11-6 12:19
标题: 紧急求助，一个巨难的问题！

一个单元格中数据如何排序 3721609aABcplA 0123679aAABclp

这个问题真的很困难，试验了很多办法依然没有解决。

作者: kangking 时间: 2009-11-6 13:10
Public Function Order(s As String)

Dim a() As String
Dim i As Integer
Dim j As Integer
Dim t As String

i = Len(s)
ReDim a(i) As String

For i = 1 To Len(s)
a(i) = Mid(s, i, 1)
Next

For i = 1 To Len(s)
For j = i + 1 To Len(s)
      If a(i) > a(j) Then
         t = a(i)
         a(i) = a(j)
         a(j) = t
      End If
Next
Next

For i = 1 To Len(s)
Order = Order & a(i)
Next

End Function

作者: sagemeyou 时间: 2009-11-6 13:42
KANKAN

作者: tieliren 时间: 2009-11-6 15:05
能具体解释一下这个程序吗？我是一个初学者，拜托了！

还有就是具体如何倒入运行，最好详细点。大师，拜托了！

作者: wanshan 时间: 2009-11-6 15:24
你为什么不上个例子呢？
看你说是单元格，莫非是excel中？这里是access版块。

作者: tieliren 时间: 2009-11-6 16:34
不好意思，可能是我的用语不恰当，就是一个格子里面（和EXCEL的单元格一样）的数据如何进行排序。

希望能给点指导，拜托了

作者: wanshan 时间: 2009-11-6 16:59
你的意思是对值里面的每个字符进行排序吗？这样可就更改了表里的值。
为什么有这样的要求呢？
你如果早上例子，老早就解决了（用kangking的函数）！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)