|
文/江觅 结婚礼单记账是个传统记录方式，信息技术的发展给我们提供了一个更好的记录方式，有没有想过用Excel表格来做记账管理？ 这个示例讲解用Excel表格来完成，传统婚礼记帐过程，模仿还有点不成熟，可以作为一个思路拿来学习之用。  登记过程已经实现，按照从右向左记录方式进行数据添加，其中可实现数据统计和人数统计。 没有做分类统计，不过也不是很难，有兴趣可能添加。  喜礼录入类别以下拉框方式进行选择，姓名手动输入，礼金小写输入，大写自动生成。 其中，大写生成做了一段代码来实现，感觉不是很舒服，逻辑不是很优秀，用了较多IF语句。  大小写转换代码Private Sub ComboBox2_Change()If Not VBA.IsNumeric(Me.ComboBox2.Value) Then Me.TextBox2.Value = '': Exit SubDim x As VariantDim xi As Integerx = VBA.Trim(Me.ComboBox2.Value)Dim i As Integeri = VBA.Len(Me.ComboBox2.Value) For xi = 1 To i If VBA.Left(x, 1) = 0 Then x = VBA.Replace(x, '0', '', 1) Next xiMe.ComboBox2.Value = VBA.Trim(x)If Me.ComboBox2.Value = '' Then Exit SubDim r As Range, rSmall As Range, rBage As RangeSet rSmall = ThisWorkbook.Worksheets('设置').Range('B2:B6')Set r = rSmall.Find(i)Dim xV As StringIf r Is Nothing Then Exit SubDim 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).ValueMe.TextBox2.Value = xV & '元整'End Sub 项目设置 预置项目还是要设置一下，也是为了更方便进行操作。 观点现实生活中，并不做这样的记录，毕竟西为中用并不适用于所有事情，记帐还是以人工手写比较显得有仪式感。 假如，有一个朋友结婚，现场用一台电脑来登记随礼，似乎没有传统的热闹气氛，反而有一种交罚款的感觉，那自是一种不好的体现。 如此考虑，做这个东西就变成一种多余的事情，无论如何，也算是一种信息化学习过程。 相信在婚礼完毕，做为一个数据记录，还是不错的选择。 |
|
|
