作者evantw (安安小成)
看板Visual_Basic
标题[VBA ] VBA 如何阵列排序??
时间Tue Feb 28 19:36:49 2012
请问各位
我有写一组阵列在做资料的统计与运算
格式大约如下~~
'先规划好阵列格式
Private Type AocOut
OEM As String
Su_NO As String
In_Pcs As Long
Ck_Pcs As Long
Out_Pcs As Long
End Type
'主程式
Sub Test
Dim BackNo() As AocOut
Erase BackNo
ReDim Preserve BackNo(1)
...
If BackNo(1).OEM = "" Then
BackNo(1).OEM = Sheet1.Range("A" & i)
...
End If
....
程式运算
....
End Sub
我想请教~~
当我运用阵列将我的资料运算好後
如何将阵列中依序 Su_No 及 In_Pcs 来做从小排序到大呢??
能否请各位大大协助我
提供范例或者方向
谢谢
--
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 58.99.68.120
※ 编辑: evantw 来自: 58.99.68.120 (02/28 19:38)
1F：→ MOONRAKER:bubble sort或insertion sort。 02/28 21:29
2F：→ evantw:我有在网路上查询一下用法,但是好像有什麽地方要修改样子 02/29 00:14
3F：→ evantw:都无法直接套用~能否帮忙修改 02/29 00:15
4F：→ MOONRAKER:当然是要改，哪有那麽好的事。请洽codeJob板。 02/29 02:31
5F：→ hulapig:如果不要求排序阵列的话，可以把值写入试算表，使用Excel 02/29 07:21
6F：→ hulapig:现成的排序工具 02/29 07:22
7F：→ MOONRAKER:这也是个方法。好像还可以整个阵列写到试算表区域内。 02/29 17:31
8F：推 zchien:MOONRAKER说的方式..也是我目前使用方式.. 03/03 23:51