本文于2023年4月18日首发于本人同名公众号：Excel活学活用，更多文章敬请关注！
前面我们分享了使用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 NextEnd Sub
我们在做科目汇总表的时候，采用字典的方法把明细账中出现的科目列出来，但顺序是科目在明细账中首次出现的顺序，这样显然是不行的，所以要排个序。
好了，今天就分享这么多，琢磨代码去喽，我们下期再会。
☆猜你喜欢☆
Excel VBA 这样酷炫的日期控件，你不想要吗？
Excel VBA 最简单的收发存登记系统
Excel 公式函数/数据验证/动态下拉列表
Excel VBA 文件批量改名
Excel 公式函数/数据透视表/固定资产折旧计提表！
Excel VBA 输入逐步提示/TextBox+ListBox
本文使用 文章同步助手 同步，本文于2023年4月18日首发于本人同名公众号：Excel活学活用，更多文章敬请关注！