excel文件中的多个工作表按名称排序
- 格式：pdf
- 大小：270.70 KB
- 文档页数：1
excel文件中的多个工作表按名称排序
分类： 其他 excel 工作 integer string vb 编程 2011-11-03 20:08 985人阅读 评论(0) 收藏 举报
使用excel时，有时会碰到一个表格里面很多的sheet，比如sheet11，sheet23。。。 当这些sheet是无序的时候，查找一个sheet很疼，所有想按sheet来排序下，但是excel本身又不提供按sheet排序的 方法，所有就上网找了下解决方法 ，发现得通过excel的VB编程模式，随便右击一个sheet名称，选择“查看代码”，在 弹出的界面中加入以下代码：
[vb] 0. 1 0. 2 0. 3 0. 4 0. 5 0. 6 0. 7 0. 8 0. 9 1. 0 1. 1 1. 2 1. 3 1. 4 1. 5 1. 6 1. 7 1. 8 1. 9 2. 0 2. 1 2. 2 2. 3 2. 4 2. 5 2. 6 SbSr_hes) u otSet( Dmson A Itgr IA Itgr RA Itgr i Cut s nee, s nee, s nee RDmN()A Srn ei a0 s tig son =Set.on Cut hesCut FrI=1T son o o Cut RDmPeev N()A Srn ei rsre aI s tig N()=Set()Nm aI hesI.ae Nx et
FrI=1T son -1 o o Cut FrR=I+1T son o o Cut I N()<N()Te f aR aI hn J =N() H aI N()=N() aI aR N()=J aR H EdI n f Nx et Nx et
无法加载插件。
FrI=1T son o o Cut Set(aI)Mv Atr=hesI hesN().oe fe:Set() Nx et EdSb n u
然后执行代码，问题解决~~
分类： 其他 excel 工作 integer string vb 编程 2011-11-03 20:08 985人阅读 评论(0) 收藏 举报
使用excel时，有时会碰到一个表格里面很多的sheet，比如sheet11，sheet23。。。 当这些sheet是无序的时候，查找一个sheet很疼，所有想按sheet来排序下，但是excel本身又不提供按sheet排序的 方法，所有就上网找了下解决方法 ，发现得通过excel的VB编程模式，随便右击一个sheet名称，选择“查看代码”，在 弹出的界面中加入以下代码：
[vb] 0. 1 0. 2 0. 3 0. 4 0. 5 0. 6 0. 7 0. 8 0. 9 1. 0 1. 1 1. 2 1. 3 1. 4 1. 5 1. 6 1. 7 1. 8 1. 9 2. 0 2. 1 2. 2 2. 3 2. 4 2. 5 2. 6 SbSr_hes) u otSet( Dmson A Itgr IA Itgr RA Itgr i Cut s nee, s nee, s nee RDmN()A Srn ei a0 s tig son =Set.on Cut hesCut FrI=1T son o o Cut RDmPeev N()A Srn ei rsre aI s tig N()=Set()Nm aI hesI.ae Nx et
FrI=1T son -1 o o Cut FrR=I+1T son o o Cut I N()<N()Te f aR aI hn J =N() H aI N()=N() aI aR N()=J aR H EdI n f Nx et Nx et
无法加载插件。
FrI=1T son o o Cut Set(aI)Mv Atr=hesI hesN().oe fe:Set() Nx et EdSb n u
然后执行代码，问题解决~~
