文章目录

• 结婚礼物的输入
• 案例转换代码

文/蒋密

婚礼仪式记账是一种传统的记录方式，信息技术的发展为我们提供了更好的记录方式。有没有想过用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