文/江觅

结婚礼单记账是个传统记录方式，信息技术的发展给我们提供了一个更好的记录方式，有没有想过用Excel表格来做记账管理？

这个示例讲解用Excel表格来完成，传统婚礼记帐过程，模仿还有点不成熟，可以作为一个思路拿来学习之用。

登记过程已经实现，按照从右向左记录方式进行数据添加，其中可实现数据统计和人数统计。

没有做分类统计，不过也不是很难，有兴趣可能添加。

喜礼录入

类别以下拉框方式进行选择，姓名手动输入，礼金小写输入，大写自动生成。

其中，大写生成做了一段代码来实现，感觉不是很舒服，逻辑不是很优秀，用了较多IF语句。

大小写转换代码

Private Sub ComboBox2_Change()
If Not VBA.IsNumeric(Me.ComboBox2.Value) Then Me.TextBox2.Value = "": Exit Sub
Dim x As Variant
Dim xi As Integer
x = VBA.Trim(Me.ComboBox2.Value)
Dim i As Integer
i = VBA.Len(Me.ComboBox2.Value)
    For xi = 1 To i
        If VBA.Left(x, 1) = 0 Then x = VBA.Replace(x, "0", "", 1)
    Next xi
Me.ComboBox2.Value = VBA.Trim(x)
If Me.ComboBox2.Value = "" Then Exit Sub
Dim r As Range, rSmall As Range, rBage As Range
Set rSmall = ThisWorkbook.Worksheets("设置").Range("B2:B6")
Set r = rSmall.Find(i)
Dim xV As String
If r Is Nothing Then Exit Sub
Dim n01 As Integer, n02 As Integer, n03 As Integer
    If i >= 1 Then n01 = VBA.Left(Me.ComboBox2.Value, 1)
    If i >= 2 Then n02 = VBA.Mid(Me.ComboBox2.Value, 2, 1)
    If i >= 3 Then n03 = VBA.Mid(Me.ComboBox2.Value, 3, 1)
    If i >= 1 Then xV = getRlager(n01) & Cells(r.Row, 4).Value
    If i >= 2 And VBA.Mid(x, 2, 1) <> 0 Then xV = getRlager(n01) & Cells(r.Row, 4).Value & getRlager(n02) & Cells(r.Row - 1, 4).Value
    If i >= 3 And VBA.Mid(x, 3, 1) <> 0 Then xV = getRlager(n01) & Cells(r.Row, 4).Value & _ 
getRlager(n02) & Cells(r.Row - 1, 4).Value & getRlager(n03) & Cells(r.Row - 2, 4).Value
    If i = 2 And VBA.Mid(x, 2, 1) = 0 Then xV = getRlager(n01) & Cells(r.Row, 4).Value
    If i = 3 And VBA.Mid(x, 3, 1) = 0 Then xV = getRlager(n01) & Cells(r.Row, 4).Value
    If i = 4 And VBA.Mid(x, 4, 1) = 0 Then xV = getRlager(n01) & Cells(r.Row, 4).Value
Me.TextBox2.Value = xV & "元整"
End Sub

项目设置

预置项目还是要设置一下，也是为了更方便进行操作。

观点

现实生活中，并不做这样的记录，毕竟西为中用并不适用于所有事情，记帐还是以人工手写比较显得有仪式感。

假如，有一个朋友结婚，现场用一台电脑来登记随礼，似乎没有传统的热闹气氛，反而有一种交罚款的感觉，那自是一种不好的体现。

如此考虑，做这个东西就变成一种多余的事情，无论如何，也算是一种信息化学习过程。

相信在婚礼完毕，做为一个数据记录，还是不错的选择。