重金招募：用VBA实现组织结构图输出

sunsoncheng

楼主说关系是明了的,

但实际上,是否能回答下列问题:

人事科与销售科,谁排在前?当然新的增加的就更是如此了,

还有职员名单的问题,假设有一个班组或科室,有100个人时,如何排列?名字在有两个字,~N个字的排列规则如何?

不明确的事多着呢?

你要让我做一个版先让你看,就不做了,你要有意思的话我可以提供一个可以自由增加100级的菜单给你看看

hupanshan

QUOTE:

以下是引用gloryhr在2008-8-22 9:27:41的发言：

关于第三个问题，我们的客户公司的总人数为200多人，但是节点数量和每个节点的人数是多少，很难固定下来，这里是不是可以做成动态的？

节点的数量不是问题，比如200人，节点不可能超过200个。目前我做到的是为每一个节点分配相同的显示面积，这就不得不考虑节点人数问题。按你的样子，各部门主管是一人占用一行，如果没有限制，有的部门可能放20个主管，就要留出20行的位置。当然这也可以通过程序解决，增加一些麻烦。如果部门主管都在较小的数额，例如可以控制在5人以下，那么就可以都按5行预留位置。各部门的人数也是这样，按你的样子是放在一行。如果人多了，就要多几行。如果限制在30人左右，也就可以比较容易处理了。如果没有限制，有一个部门100人，都按100人的空间预留位置显然不行。如果做处理，又多很多麻烦。因此，各节点的人数都需要有个限制。我不是做商品化软件的，即使商品化软件也都有限制。比如Excel2003只有256列，65536行。

hupanshan

QUOTE:

以下是引用sunsoncheng在2008-8-22 11:19:13的发言：

..人事科与销售科,谁排在前?当然新的增加的就更是如此了

我替楼主回答：

因为这个软件的功能是将表格的内容用图形化方式表达，因此，数据整理的问题应该提前做好。比如两个科室谁在前面，就要看在表里谁在前面。至于新增加的问题，也是在增加完数据后，形成新的数据表，再一次性生成新的图。也就是说，只要图与表描述的问题一致就行。

马甲先生

如果没成交，咱也来试试。 联系方式已发到楼主邮箱

不成交我也不知亏，将来自己也用的上。

付效果图，及说明

通过这样乱序的表可以生成sheet3所示结构图
通过部门名判断上下级关系，不用工号，减少错误几率
增加下级机构、干部、 职员可以直接写在最后，不用往中间插入
方框是单元格（可改文本框），连线是线条，不是边框
可移植到VB6
代码量 114行

 

[此贴子已经被作者于2008-8-23 13:37:41编辑过]

hhzjxss

哈哈，原来还可以收钱呀！

好象过去都是大家都免费帮忙的！

不过，能感谢一下帮助楼主的人，也是再好不过的了，同时，大家也知道，原来学VBA也可有回报的呀！

tommy607

进来瞄一瞄  学习下

gloryhr

QUOTE:

以下是引用马甲先生在2008-8-23 13:36:02的发言：

如果没成交，咱也来试试。 联系方式已发到楼主邮箱

不成交我也不知亏，将来自己也用的上。

付效果图，及说明

通过这样乱序的表可以生成sheet3所示结构图
通过部门名判断上下级关系，不用工号，减少错误几率
增加下级机构、干部、 职员可以直接写在最后，不用往中间插入
方框是单元格（可改文本框），连线是线条，不是边框
可移植到VB6
代码量 114行

我没有收到你得通讯方式啊，请联系我，谢谢！

马甲先生

lionhearted@163.com

曾发送到这个邮箱。

刚才又短信给楼主了。

ylonline

太高深了，组织图也这样做。

odinluca

用EXCEL实现应该挺简单的，按你的样表看，

先确定多有多少列（即层次），再看需要多少行，

最后从最基层开始添写数据，逐层完成就OK了