BOM 大纲排序-自定义函数

yjh_27

题目来源
BOM表按结构排序
http://club.excelhome.net/thread-1175288-1-1.html


增加大纲排序
都来看看这个排序怎么实现    28L
http://club.excelhome.net/thread-1176838-1-1.html



'*********************yjh_27*******************************************
'功能：    对BOM数组、大纲排序
'函数名：  BOMSort
'
'参数1：   a          待排序数组
'参数2：   mclm       母列
'参数3：   nclm       子列
'参数4：   kclm       级列或编码列，可省略，默认为：""
'                     参数2或参数3为0时，以本参数（大纲）排序
'               >0    有级别
'               ""    无级别，自动识别
'               <0    无级别，自动识别、添加级别
'参数5：   kstr       级字符，可省略，默认为：""
'               ""    数字级别
'               +     以字符“+”标识级别
'参数6：   mstr       指定母件编码，可省略，默认为：""
'               ""    返回全部BOM
'               非空  返回指定母件编码的BOM
'参数7：   s          排序方式，可省略，默认为：0
'               0     编码原序
'               1     编码升序
'               <1 >1 编码降序
'               >=0   级升序
'               <0    级降序
'返回值：  多列排序的数组
'使用方法：arr = BOMSort(A,2,3)
'






补充内容 (2015-2-5 18:58):
应用  19L
万能的VBA、实现根据身份证号统计家庭户数报表
http://club.excelhome.net/forum. ... 523&pid=8083405

yjh_27

按序号为分级显示自动创建组  按分级显示的组合自动编序号
http://club.excelhome.net/thread-1098513-1-1.html

yjh_27

'*********************yjh_27*******************************************
'功能：    添加 分组、分级显示、大纲
'过程名：  AddOutline
'
'参数1：   a          分级数组或分级范围
'参数2：   rngStart   起始单元格（位置）
'参数3：   aRow       行分级所在列，可省略，默认为：""
'               ""    忽略行分级
'参数4：   Rmode      行分组方式，可省略，默认为：""
'               ""    数字级别
'               .     以字符“.”标识级别
'               1     以长度标识级别
'               2     以缩进标识级别
'               3     以左空标识级别
'参数5：   aRs        行分级标识数，可省略，默认为："1"
'               1     Rmode="."时：按标识字符数+1 分级
'               非1   Rmode="."时：按标识字符数   分级
'               3     Rmode=1时： 每级长度
'               2,3,4 Rmode=1时：1级2字符、2级3字符、以后级4字符
'参数6：   aClm       列分级所在行，可省略，默认为：""
'               ""    忽略列分级
'参数7：   Cmode      列分组方式，可省略，默认为：""
'               ""    数字级别
'               .     以字符“.”标识级别
'               1     以长度标识级别
'               2     以缩进标识级别
'               3     以左空标识级别
'参数8：   aCs        行分级标识数，可省略，默认为："1"
'               1     Rmode="."时：按标识字符数+1 分级
'               非1   Rmode="."时：按标识字符数   分级
'               3     Rmode=1时： 每级长度
'               2,3,4 Rmode=1时：1级2字符、2级3字符、以后级4字符
'参数9：   RC         行列方式，可省略，默认为：1
'               1     汇总行位于明细数据行的上方，汇总列位于明细数据列的右侧。
'               2     汇总行位于明细数据行的下方，汇总列位于明细数据列的右侧。
'               3     汇总行位于明细数据行的上方，汇总列位于明细数据列的左侧。
'               4     汇总行位于明细数据行的下方，汇总列位于明细数据列的左侧。
'
'使用方法：Call AddOutline(A,2,3)
'

应用
BOM表通过数组或字典按层次拆分
http://club.excelhome.net/thread-1179698-1-1.html


补充内容 (2015-3-24 15:42):
急急急！请高手帮忙在数据排序和插空行！！！求助！感谢！
http://club.excelhome.net/thread-1193695-1-1.html


补充内容 (2020-1-10 12:32):
用vba使科目余额表按字符长度分级显示  9L
http://club.excelhome.net/thread-1517625-1-1.html
(出处: ExcelHome技术论坛)

aman1516

好贴，谢谢分享，收藏学习……

张雄友

yjh_27 发表于 2015-1-13 21:40
'*********************yjh_27*******************************************
'功能：    添加 分组、分级显 ...

怎么实现下面的排序？
就是从A，B，C，排序。

yjh_27

张雄友 发表于 2015-1-14 07:01
怎么实现下面的排序？
就是从A，B，C，排序。

参见
多Key数组排序(分类、统计、重复处理)-自定义函数   26L（精简）
http://club.excelhome.net/thread-1090007-1-1.html

yjh_27

'*********************yjh_27*******************************************
'功能：    对BOM数组按级别层次拆分
'函数名：  BOMSplit
'
'参数1：   a          待拆分BOM数组
'参数2：   kclm       级列，可省略，默认为：1
'参数3：   kstr       级字符，可省略，默认为：""
'               ""    数字级别
'               +     以字符“+”标识级别
'               1     以长度标识级别
'               3     以左空标识级别
'参数4：   kclms        行分级标识数，可省略，默认为：1
'               1     kstr=字符"."时：按标识字符数+1 分级
'               非1   kstr=字符"."时：按标识字符数   分级
'               3     kstr=1时： 每级长度
'               2,3,4 kstr=1时：1级2字符、2级3字符、以后级4字符
'参数5：   kzd        指定层级，可省略，默认为：0
'               0     返回全部层级BOM
'               非0   返回指定层级的BOM
'参数6：   Title      层级标题方式，可省略，默认为：1
'               ""    无层级标题行
'               " "   空层级标题行
'               0     空层级标题行
'               其他  层级标题行
'
'返回值：  多列拆分的BOM数组
'使用方法：kclmr = BOMSplit(A,2,3)
'
应用 见3L链接

补充内容 (2015-4-29 17:19):
升级 见 10L

yjh_27

BOM各层级数量汇总
http://club.excelhome.net/thread-1182043-1-1.html

'*********************yjh_27*******************************************
'功能：    对BOM数组按级别层次汇总
'函数名：  BOMSum
'
'参数1：   a          BOM层级数组（范围）
'参数2：   b          BOM数量数组（范围）
'
'返回值：  BOM汇总数组
'使用方法：kclmr = BOMSum(A,B)
'


补充内容 (2015-4-16 18:58):
实际数量汇总  见  链接16L附件

kangatang

代码变量如果用英文命名可能看上去不上那么费劲, 比如quantity 或qty代表数量，一目了然。只是建议。

yjh_27

对BOM数组按级别层次拆分 升级

应用
多关键字找最佳匹配
http://club.excelhome.net/thread-1200988-1-1.html

没有算法和数据结构基础，完成这个题目还是很难，同时考虑到效能问题
http://club.excelhome.net/thread-1207071-1-1.html
(出处: ExcelHome技术论坛)