VBA学习(62)：Excel VBA 自定义函数/数组字段定位/数组字段排序

前面我们分享了使用ListVeiw进行数据展示（Excel VBA 数据分析展示/ListView控件），今天在继续完成科目汇总的功能，但由于代码搞得有点复杂，感觉自己给自己挖了个坑，看看时间，今天可能是完不成了，等做好了再跟大家分享吧，今天就来点简单的，分享两个自定义函数，在后面会用到：

一、数组字段定位：在一个一维数组，或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
    Next
End Sub

我们在做科目汇总表的时候，采用字典的方法把明细账中出现的科目列出来，但顺序是科目在明细账中首次出现的顺序，这样显然是不行的，所以要排个序。

技术交流，软件开发，欢迎微信沟通：