树形目录的修改优化

风水是人品

老师好，我有个程序是有关树形目录的，使用中发现了一些问题，烦请老师帮忙。

hfwufanhf2006

我本来也不会这东西，只是参照你原来的代码适当修改了下，大致上达到了你的要求。但我觉得实际用起来可能还是问题很大，因为你说有8000多记录，几十条和几千条差别是很大的。有下面要点：1、源代码基本都被删光了，其实也不是删，主要是看不懂，我就用自己会的方法重写了一次。当然也借鉴了源代码的关键点，关于treeview控件的用法有三、五行我抄过来了，不然我还不会用；
2、你说要把sheet1和sheet2互换，我只是换了位置而已，名字还是没变。为了代码的适应性，我把源代码的sheet1.treeview21改成了worksheets(2).treeview21，这个worksheets(2)表示第二个表，不是指sheet2。你任何名称的表放在第二个位置，都是worksheets(2)；
3、关于treeview的层数从3层扩展到5层，里面有个参数cs(层数)，for cs=1 to 5，就是读取第一列到第5列。如果将来你有更多的层，我估计修改下这里就差不多了，只是估计，我也没测是否真的行；
4、在sheet2（目前放在第一个表的位置）中你原准备的第4列和第5列的内容不能用，因为treeview里面的内容是不能重复的。或许是我对这个控件没完全掌握，导致有重复值的情况下会出错也难说，我也搞不清。我只是提醒你，如果有重复，你就适当添加（市）（县）这类文字加以区分；
5、在sheet2中我添加了一个按钮“重新装载”，在你修改了源数据的情况，可以不用退出文件直接按下这个按钮，就重新更新了treeview内容。里面的代码与打开文件时的代码大同小异，差不多的；
6、有两个我不知道如何修改的错误：
     1）当按了系统菜单-保存文件时，treeview会自动展开全部内容，我认为这是不合适的，但我也不知道如何收缩全部节点，你去百度下。如果你会了，就在selectionchange里的最前面加一行：worksheets(2).treeview21.收缩节点（我假设的形式），可能在save里面写更合适，你看着办。实在搞不定，“重新装载”再点一次也可以解决；
     2）当第一次进入点击M列时，会在左边同时闪现一下treeview，只是一瞬间就没了。只有第一次点击M列会有，之后就正常了。虽然不影响使用，但总觉得怪怪的，我找好久也不知道哪错了；
7、字体及大小、还有将来如果你更改输入的列、表格的位置等等这些参数，你可以按照下面的样子修改：
     字体及大小：在open代码比较靠前的位置有设定，目前是雅黑，9点；
     输入列的控制：selectionchange里有个条件 if target.column<>13 then，13表示第13列，就是M列；
     表格位置：所有的表格位置都是用worksheets(i)的形式表示的，i是眼睛看见的表顺序，不是建立表时的顺序，这个顺序包含掩藏的表；原代码是直接用表名称来指定的，比如sheet1.treeview21，我用的是worksheets(1)，这个1只是表示第一个表，并不代表sheet1

代码半生不熟，可能不好用，自己再改吧。

风水是人品

请大师帮忙优化下，谢谢

风水是人品

请大师帮忙优化下，谢谢

风水是人品

请大师帮忙优化下，谢谢

风水是人品

感谢hfwufanhf2006老师的出手相助，尤其非常清晰的告知代码的修改方法，太有心了，谢谢，我先下载来试试

风水是人品

程序很好用，谢谢大师