投稿
  1. 知乐网首页
  2. 微·头条

结婚账本第一页怎么写（手账第一页怎么写）

• 微·头条

文/江觅

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

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

结婚礼单，Excel 模版，现代又传统，喜气洋洋

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

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

结婚礼单，Excel 模版，现代又传统，喜气洋洋

喜礼录入

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

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

结婚礼单，Excel 模版，现代又传统，喜气洋洋

大小写转换代码

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
赞 (0)
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，请发送邮件至 ZLME@ZLME.COM 举报，一经查实，立刻删除。
0

相关推荐