EXCEL VBA项目实例之复杂彩票画线程序代码 类应用方便扩展

大家新年好！
前不久做了个彩票画线的东西 应该这方面需求的人挺多
这个程序有意思的地方在于 一开始 需求是说按单元格来布局 于是我用了range对象来定位画线参数
结果 后来使用时发现数据太多 07所有列用上也不够 没办法只有重新写
可是我又不想完全重写 于是自己写了一个Crange类 来模拟原来代码中的range对象
结果原代码只少量的改动就实现了原来的功能 而且也克服了大量数据的问题
事实证明 类确实是个好东西  最近学习vb.net 也是深有感触 合理使用类 可以省去许多算法设计和逻辑判断
使得程序架构更加清晰  特别是需求变更时伸缩性极好  想要写复杂点项目的时候 建议多学习使用类 大有益处
这里表只有四十几行 实际使用多达2000行  
代码写的比较匆忙 没怎么写注释 有需要的 就凑合看看了
稍加改造 我觉得可以应付一般的画线需求了

打开表格后  按下ctrl+q即可完成画线 改动数据后 再执行一次即更新
或者alt+f8打开宏列表 运行updateLines也可以
--》  
ps：表里的需求描述写掉了横线  事实上这也是提需求的人最后才提出就是两边都是同样的方向时画横线 颜色如图所示
但是使用了自定义range类以后 这个划横线也可以很容易的扩展

附件地址

http://club.excelhome.net/thread-1188091-1-1.html