VBA代码大全035:如何用vba添加创建用于排序和填充序列的自定义列表?

在excel中内置了许多排序和填充序列的列表,如下图所示;

如果要用vba添加自定义系列,可以使用Application对象的AddCustomList方法。

比如要添加自定义系列”A,B,C,D,E,F,G”,可以使用如下的vba代码:

Sub QQ1722187970()
    arr = Array("A", "B", "C", "D", "E", "F", "G")
    Excel.Application.AddCustomList arr
End Sub

每一个自定义系列在自定义系列列表中都有序号,序号从1开始,比如上图的自定义系列列表中总共有8个自定义系列。

如果要返回所有的自定义系列的个数,可以使用使用Application对象的CustomListCount方法。

如果要返回具体的某个序号的自定义系列,可以使用Application对象的GetCustomListContent方法。

如果要返回具体的某个自定义系列对应的序号,可以使用Application对象的GetCustomListNum方法。

如果要删除某个自定义系列,可以使用Application对象的DeleteCustomList方法。

示例代码如下:

Sub QQ1722187970()
    arr = Array("A", "B", "C", "D", "E", "F", "G")
    Excel.Application.AddCustomList arr
    iNo = Excel.Application.GetCustomListNum(arr)
    Excel.Application.DeleteCustomList iNo
    arr1 = Excel.Application.GetCustomListContents(6)
    MsgBox Excel.Application.CustomListCount
End Sub

 

       

发表评论