No.1

Excel对于数据管理方面的优势，不必多说，完全利用其优秀的数据处理功能，可以完成很多我们生活中的一些问题。

本篇内容为婚礼过程中对于礼金各礼物记录管理的一个解决方案。

完全不需要Excel操作技能，窗体化交互界面，会用鼠标会打字即可实现数据记录功能。

本程序是经过一次完整的数据编码之后，形成的一个全新工作过程。

其中包括：添加新人、礼金（礼物）录入、金额分类统计、扫码录入、数据清单等功能。

并且可实现不同婚礼的分别记录。

上图为选择新人表单，其主要功能为引入当前结婚信息，也是一个关键操作入口，也就是说，这一步操作可实现确定当前记录的主要对象是谁。

随后的一切操作都将以此为依据进行，也是区分不同结婚对象之间信息的一个方法。

下图为结婚对象信息录入页

包括双方姓名、结婚日期、结婚地点和照片。

其中前三项为必选项，如果没有可能就结不成了，至少本程序是不允许空白出现至少要有个逗号。

下图为最主要的操作页，即礼金（礼物）录入信息页

其中序号和ID号是系统自动给出，不需要录入，如果ID号不存在，本信息是不能进行保存的，需要选择新人表单里选定新人后才能进行录入。

其它选项礼金也是必选项，如果没有要添加0，其它为可选项。

确认录入后，信息会显示到右侧列表框中，供及时查看。

如果录入错误，不支持修改，金额也不退不换。

下图为当前结婚礼单信息总表，这个没什么可解释的，就是所有礼金（礼物）记录。

当然，也不是说这个很简单，其中做一些数据选择处理，因为在总表中有许多数据存在，并不是一对新人的数据。

严格来说，本系统是可多次重复使用的。

除非数据记录达到上限，上限由Excel版本来决定，本次调试可实现1048575条记录。

下图为分类统计页

很显然，可以清楚地看到不同分类亲朋好友人数和礼金，以及所有礼金金额。

这就是一个最终结果。

在本次编码中，增加了一个二维码扫码功能，也就是可以实现微信或支付宝等网络付款登记。

当然了，只是显示一个二维码，记录还是要人工录入。

No.2

代码

Private Sub NewMW_Click()
On Error Resume Next
Dim xObj As Object, imObj As Object
With Application.FileDialog(msoFileDialogFilePicker)
    If .Show = -1 Then
        .Filters.Clear
        .Filters.Add "图片", "*.jpg;*.gif"
       For Each xObj In Me.Frame1.Controls
            If TypeName(xObj) = "Image" Then
                xObj.PictureSizeMode = 3
                xObj.Picture = LoadPicture("")
                xObj.Picture = LoadPicture(.SelectedItems(1))
                xObj.Visible = True
                    For Each imObj In Me.Frame1.Controls
                        If imObj.Name = "T5" Then
                            imObj.Value = .SelectedItems(1)
                        End If
                    Next imObj
                Exit For
            End If
        Next xObj
    End If
End With
Set xObj = Nothing
Set imObj = Nothing
End Sub

整个应用代码接近1000行，包括模块代码。

做了一个很好的整合是，把所有主要功能表单入到一个窗体中进行。

也就是说上面所有操作页面，都在一个表单中，并不是不同的表单，这点是以前曾尝试过，但应用较少的一个方面。

所以，如果是初次打开，要把所有的控件都加载到内存，运行之后就变得十分流畅。

编程是一个渐进过程，和许多学习一样，当你积累了一些看上去很无聊的经验之后，在某个时候突然就会恍然大悟一些东西。

希望我们每天都在进步。

说明：本程序暂时没有分享，以后会不会分享，目前也不知道，如想获程序及取源代码，可留意关注。

欢迎关注、收藏

---END---