BOM 大纲排序-自定义函数

yjh_27 · 发表于 2014-12-27 22:42

本帖最后由 yjh_27 于 2015-1-5 20:38 编辑

题目来源
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 · 发表于 2024-8-14 16:49

分组应用
关于快速自动进行创建组分级显示
https://club.excelhome.net/thread-1699205-1-1.html
(出处: ExcelHome技术论坛)

yjh_27 · 发表于 2014-12-28 01:08

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

yjh_27 · 发表于 2015-1-13 21:40

'*********************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 · 发表于 2015-1-13 22:22

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

张雄友 · 发表于 2015-1-14 07:01

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

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

yjh_27 · 发表于 2015-1-14 21:31

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

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

yjh_27 · 发表于 2015-1-14 21:36

'*********************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 · 发表于 2015-1-22 21:16

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 · 发表于 2015-1-28 13:52

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

yjh_27 · 发表于 2015-4-29 17:17

本帖最后由 yjh_27 于 2015-5-26 09:38 编辑

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

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

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

		自动登录	找回密码
密码			免费注册

[原创] BOM 大纲排序-自定义函数

评分

点评

点评

评分

评分

评分