文/江觅
连续几天制作，进入结尾阶段，有点麻木的感觉，有些已经成模式化、流程化的事情并不能让人产生兴奋感。就像一个美女，天天看也会熟视无睹，这就是审美疲劳。而做这件事情也让我产生些许疲劳，没有开始的激情，感觉要放弃了。
紫色是高贵的象征，天生带有神密色彩。
首页加了一张图片，感觉和标题完全不搭，勉强吧，其实背景可以任意变换，这不是重点。重点是喜欢行进在远方的路上。
今天主角是规费管理，说起这个来，可能真的没必要做。为了系统完整性，加上也无所谓。规费管理中有些比较特殊关键地方，做了处理，用起来还有一点特别的爽。
比如，资费时间的设定，就做了一个模糊选择处理，随便键入一个数字自动生成当月所有天数下拉列表，这个很有点意思。而且做了非数字处理，就是键入其它符号的时候做出判断和提示。也是为了操作更友好，尝试了一下。
函数代码：
Private Sub expAddDate_Change()
Dim v()
Dim dValue As Integer
If Not VBA.IsNumeric(VBA.Left(expAddDate.Value, 1)) Then MsgBox "请输入1-12数字！": v = Array(""): GoTo j2
dValue = VBA.Int(VBA.Left(expAddDate.Value, 1))
If VBA.Len(VBA.Trim(dValue)) = 0 Then MsgBox "请输入1-12数字！": v = Array(""): GoTo j2
If dValue <= 0 Then MsgBox "输入错误": v = Array(""): GoTo j2
v = getExpensesDate(dValue)
j2:
Dim cObj As Object
For Each cObj In expAddDate.Parent.Controls
If TypeName(cObj) = "ComboBox" Then
If cObj.Name = getWsobj("规费管理").Cells(1, 7) Then
With cObj
.List = v
' .Value = v(0)
Exit Sub
End With
End If
End If
Next cObj
End Sub
规费管理做了添加、删除、查询三个功能，后续可能总体做一个报表，年报报表，这样对年度费用管理可能有一个明晰的认识，对下一年汽车费用管理有所帮助。
查询很有实效性，这一点很多用户都比较喜欢，毕竟在这里，可以找到想要知道的结果，哪里不懂点哪里就行了。
想要的得总是不能尽如人意，不想要的总是挥之不去。自由取舍是一种能力的体现，但是又不能任自由而行，过度之后便成了放纵。
人生总有梦想，梦想开始的地方总是神秘而美好的，然而为梦想而努力的你，是否偏离了最初的方向？
过分执着就成了偏执，梦想不是总能实现，但总要为梦想而努力。
希望我们每个人不忘初心，不畏艰难，为梦想而努力！