Excel 学习心得，不忘初心（excel心得体会100字）
liuian 2025-06-13 14:49 57 浏览
文/江觅
一
连续几天制作，进入结尾阶段，有点麻木的感觉，有些已经成模式化、流程化的事情并不能让人产生兴奋感。就像一个美女，天天看也会熟视无睹，这就是审美疲劳。而做这件事情也让我产生些许疲劳，没有开始的激情，感觉要放弃了。
紫色是高贵的象征，天生带有神密色彩。
首页加了一张图片，感觉和标题完全不搭，勉强吧，其实背景可以任意变换，这不是重点。重点是喜欢行进在远方的路上。
二
今天主角是规费管理，说起这个来，可能真的没必要做。为了系统完整性，加上也无所谓。规费管理中有些比较特殊关键地方，做了处理，用起来还有一点特别的爽。
比如，资费时间的设定，就做了一个模糊选择处理，随便键入一个数字自动生成当月所有天数下拉列表，这个很有点意思。而且做了非数字处理，就是键入其它符号的时候做出判断和提示。也是为了操作更友好，尝试了一下。
函数代码：
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