结婚礼单,Excel模版,现代又传统,喜

文/江觅

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

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

登记过程已经实现，按照从右向左记录方式进行数据添加，其中可实现数据统计和人数统计。没有做分类统计，不过也不是很难，有兴趣可能添加。

喜礼录入

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

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

大小写转换代码

PrivateSubComboBox2_Change()IfNotVBA.IsNumeric(Me.ComboBox2.Value)ThenMe.TextBox2.Value=:ExitSubDimxAsVariantDimxiAsIntegerx=VBA.Trim(Me.ComboBox2.Value)DimiAsIntegeri=VBA.Len(Me.ComboBox2.Value)Forxi=1ToiIfVBA.Left(x,1)=0Thenx=VBA.Replace(x,0,,1)NextxiMe.ComboBox2.Value=VBA.Trim(x)IfMe.ComboBox2.Value=ThenExitSubDimrAsRange,rSmallAsRange,rBageAsRangeSetrSmall=ThisWorkbook.Worksheets(设置).Range(B2:B6)Setr=rSmall.Find(i)DimxVAsStringIfrIsNothingThenExitSubDimn01AsInteger,n02AsInteger,n03AsIntegerIfi=1Thenn01=VBA.Left(Me.ComboBox2.Value,1)Ifi=2Thenn02=VBA.Mid(Me.ComboBox2.Value,2,1)Ifi=3Thenn03=VBA.Mid(Me.ComboBox2.Value,3,1)Ifi=1ThenxV=getRlager(n01)Cells(r.Row,4).ValueIfi=2AndVBA.Mid(x,2,1)0ThenxV=getRlager(n01)Cells(r.Row,4).ValuegetRlager(n02)Cells(r.Row-1,4).ValueIfi=3AndVBA.Mid(x,3,1)0ThenxV=getRlager(n01)Cells(r.Row,4).Value_getRlager(n02)Cells(r.Row-1,4).ValuegetRlager(n03)Cells(r.Row-2,4).ValueIfi=2AndVBA.Mid(x,2,1)=0ThenxV=getRlager(n01)Cells(r.Row,4).ValueIfi=3AndVBA.Mid(x,3,1)=0ThenxV=getRlager(n01)Cells(r.Row,4).ValueIfi=4AndVBA.Mid(x,4,1)=0ThenxV=getRlager(n01)Cells(r.Row,4).ValueMe.TextBox2.Value=xV元整EndSub

项目设置

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

观点

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

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

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

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