求助，按某字段排序，但要分层进行，并子层要紧跟对应的层后显示

notoky

谢谢您的耐心，我看了下代码，我有两个疑问，1我感觉代码没有用组织结构图，2排序的区域是固定的，这些是否能设成动态的，或者提供个输入的地方输入区域要求，另外如果有类似于你提出的组织结构图，可以用函数实现嘛？我想做个组织结构图，工作量相对小一些

yjh_27

notoky 发表于 2014-3-3 12:26
谢谢您的耐心，我看了下代码，我有两个疑问，1我感觉代码没有用组织结构图，2排序的区域是固定的，这些是否 ...

1 只是组织结构的例子，没有对应代码，查找的代码你自己搜
2 区域可不固定，你自己改

notoky

组织结构对照表               
代码        公司        或者代码
A        北电厂        1
A1        北机电厂        1.1
A2        北气厂        1.2
B        北机厂        2
B1        北电缆厂        2.1
B2        北二机厂        2.2
B3        北宏达        2.3
C        京电股份        3
C1        京电一部        3.1
C2        京电二部        3.2
D        开元        4
这样的组织结构图，当出现10.1时排序就出错了，请问怎么按“.”来分割排序

yjh_27

将 Sl0;-1  换成  0P;1;.   试试

notoky

添加组织结构图的要求。

yjh_27

notoky 发表于 2014-4-9 08:13
添加组织结构图的要求。

参见附件。

notoky

谢谢就是要这个效果，请问，"1;r;0,-1","3u,2"，0P;1这些参数是怎么来的，我看YjhSort里的说明并没有0P这个参数，是用的参数组合？

yjh_27

notoky 发表于 2014-4-11 15:07
谢谢就是要这个效果，请问，"1;r;0,-1","3u,2"，0P;1这些参数是怎么来的，我看YjhSort里的说明并没有0P这个 ...

是的，参数组合。

bluexuemei

1. Sub t()
   
2. '须安装ACTIVERUBY.才能运行
   
3. '下载地址  http://www.artonx.org/data/asr/ActiveRuby.msi
   
4. Set ojs = CreateObject("scriptcontrol"): ojs.Language = "rubyscript"
   
5. arr = Range("a3", [b3].End(4))
   
6. ojs.eval ("def aa(aa) $aa=aa end")
   
7. y = ojs.Run("aa", arr)
   
8. y = ojs.eval("h={};$aa.each{|x|h[x[0]]=x[1]};$aa.map{|x|x<<h[x[0].slice(0,1)]}.sort_by{|x|[-x[2],-x[1]]}.map{|x|x[0..1]}")
   
9. [d3].Resize(UBound(y) + 1, UBound(y, 2) + 1) = y
   
10. Stop
    
11. End Sub
    

复制代码

notoky

bluexuemei 发表于 2014-4-11 18:28

这段代码也是能实现这功能的嘛？