喜礼录入

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

其中，大写生成做了一段代码来实现，感觉不是很舒服，逻辑不是很优秀，用了较多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

项目设置

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

观点

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

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

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

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

本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。