![cdb6ca33cdbf03eff193ae93985534f9.png](https://i-blog.csdnimg.cn/blog_migrate/a62bc19eb90ac5bca58b7cc8a8b5ba8c.jpeg)
前几天有个在校学生给了我如下一张图,希望我能帮忙编写一个小程序来完成地铁票价的自动计算——即选择好起点站和终点站后自动计算地铁票的价格。
![ceb8e5823c2eed7bcaf230ef2dc5c84a.png](https://i-blog.csdnimg.cn/blog_migrate/fbbed110b828b3c8e458e4e8026f4e2f.jpeg)
我也不好意思拒绝一个这么有想法的还上进好学生,所以我就帮他用EXCEL/VBA编程来写了个界面小程序,完全可以实现他想要的功能,他十分满意。下面先看一下实现效果:
![v2-dd854345a14c3486ae636b17cc882c7a_b.gif](http://img-01.proxy.5ce.com/view/image?&type=2&guid=e7a72cfb-095a-eb11-8da9-e4434bdf6706&url=https://pic3.zhimg.com/v2-dd854345a14c3486ae636b17cc882c7a_b.gif)
编程思路如下:
第一步:先将图片中的地铁站录入到Excel表格中,并按照顺序编写相应的序号:
![b9630f1d5fe83e987287183f5abe6e7b.png](https://i-blog.csdnimg.cn/blog_migrate/7c5ba416e5652618739f445d586d5e08.jpeg)
第二步,利用窗体控件来完成操作界面制作:
![e5cc875d6b277a66644a95f4354df00f.png](https://i-blog.csdnimg.cn/blog_migrate/2e1592f94a1b15058cb67d2d744e5265.jpeg)
第三步:VBA编程:
首先,打开Excel文件时,自动打开操作界面,并把相应的地铁站名称加载到起点站和终点站下拉框中,具体代码如下:
![1e022bfebc2dd87c3d27d5d903278099.png](https://i-blog.csdnimg.cn/blog_migrate/78362e91092830cf7dda346d6d1d2cee.jpeg)
其次完成票价计算代码,需要注意的是地铁站是循环的,要根据最近的路线计算票价:
![5ebb63ee3d4cfdda126c22bf6a69eab2.png](https://i-blog.csdnimg.cn/blog_migrate/03bdf110aef8ad5edd9c4faaf42d033e.jpeg)
最后完成显示数据和隐藏数据的代码:
![7c6362c5f294b6a0cb70d41d7859274d.png](https://i-blog.csdnimg.cn/blog_migrate/096a11dc5d063c2ea05153279d2c4bdb.jpeg)
这样整个代码就完成了,想获取源代码的小伙伴们,请在作者公众号 吉祥编程 后台 交流互动 菜单下点击 号主微信,加我微信后索取。更多EXCEL/VBA 知识,敬请关注 吉祥编程 公众号。