excel自定义排序怎么设置-Excel VBA 自定义函数/数组字段定位/数组字段排序

前面我们分享了使用ListVeiw进行数据展示（）excel自定义排序怎么设置，今天在继续完成科目汇总的功能，但由于代码搞得有点复杂，感觉自己给自己挖了个坑

excel中自定义排序_excel自定义排序怎么设置_excel设置排序

，看看时间，今天可能是完不成了，等做好了再跟大家分享吧，今天就来点简单的，分享两个自定义函数excel自定义排序怎么设置，在后面会用到：

一、数组字段定位：在一个一维数组，或2维数组的首行、首列，取得一个字段的位置，省去我们扳手指头的麻烦：

Function Pxy(arr(), FieldName As String, Optional arrType As Integer = 0)    k = 0    t = 0    Select Case arrType    Case Is = 0         For i = LBound(arr) To UBound(arr)            k = k + 1               If arr(i) = FieldName Then                t = 1                Exit For            End If        Next     Case Is = 1        For i = LBound(arr, 1) To UBound(arr, 1)            k = k + 1              If arr(i, 1) = FieldName Then                t = 1                Exit For            End If        Next     Case Is = 2          For i = LBound(arr, 2) To UBound(arr, 2)            k = k + 1              If arr(1, i) = FieldName Then                t = 1                Exit For            End If        Next      End Select    If t = 1 Then        Pxy = k    Else        Pxy = 0    End If End Function

arr()，就是要定位字段的数组

FieldName，就是要定位的字段名

arrType，定位方式，跟数组的类型有关，默认为0，针对一维数组，1表示二维数组按行定位，2表示二维数组按列定位。

通过循环，如果找到了匹配的字段，则退出循环，使得t=1，表示找到了，函数的值就是当前k的值，如果最后t的值为0，则表示没有找到，函数的值为0。

我们就可以这样用：arrSelect(j, Pxy(TbTitle, “借方发生额”, 2)) ，表示在数组arrSelect的第j行，”借方发生额”那一列的值。

这里要注意数组的下标如果是从0开始，那么pxy函数的值要减去1，才能正确引用。

二、数组字段排序：把一个一维数组按升序排列，在我们做科目汇总表的时候，科目要按顺序排列。

Sub SortArray(ByRef arr() As Variant)    Dim temp As Variant    For i = LBound(arr) To UBound(arr)        For j = i + 1 To UBound(arr)            If arr(j) < arr(i) Then                temp = arr(i)                arr(i) = arr(j)                arr(j) = temp            End If        Next    NextEnd Sub