自来水收费系统

wengjl

Sub 水费开单()
    ' https://club.excelhome.net/threa ... tml?_dsign=d73b2d5b
    ' 2024-8-27
    '
    Sheet1.Activate
    xm = Sheet1.Cells(6, 1).Value
    yf = Sheet1.Cells(6, 2).Value
    sbds = Sheet1.Cells(6, 3).Value
    foun = False
    x2 = 5
    Do While Not (IsEmpty(Sheet2.Cells(x2, 2).Value))
      If Sheet2.Cells(x2, 2).Value = xm Then
        foun = True
        Sheet2.Cells(x2, yf * 3 + 1).Value = sbds
        If Sheet2.Cells(x2, yf * 3 - 2).Value = "" Then
          Sheet2.Cells(x2, yf * 3 + 2).Value = 0
          Sheet2.Cells(x2, yf * 3 + 3).Value = 0
          MsgBox "上期读数空，请手工处理好上期水表读数，再来计算 ！"
          GoTo kk
        Else
          If sbds >= Sheet2.Cells(x2, yf * 3 - 2).Value Then
            Sheet2.Cells(x2, yf * 3 + 2).Value = sbds - Sheet2.Cells(x2, yf * 3 - 2).Value
            Sheet2.Cells(x2, yf * 3 + 3).Value = Sheet2.Cells(x2, yf * 3 + 2).Value * Sheet1.Cells(3, 2).Value
            Sheet1.Cells(6, 4).Value = Sheet2.Cells(x2, yf * 3 - 2).Value
            Sheet1.Cells(6, 5).Value = sbds - Sheet2.Cells(x2, yf * 3 - 2).Value
            Sheet1.Cells(6, 6).Value = Sheet1.Cells(6, 5).Value * Sheet1.Cells(3, 2).Value
          Else
            MsgBox "你输入的 抄表读数，小于 上期抄表读数，请再仔细核对 ！！！"
            GoTo kk
          End If
        End If
      End If
      x2 = x2 + 1
    Loop
    If foun = False Then
      MsgBox "该用户未找到，请仔细核对姓名输入是否有误！！！"
    Else
      ActiveWindow.SelectedSheets.PrintPreview   ' 先预览，再决定是否打印
kk:    End If
   
End Sub

micch

适合做成一个完整的系统来开发，不算简单，有不太复杂，中等程度刚刚好

wzw190

wengjl 发表于 2024-8-27 16:19
Sub 水费开单()
    ' https://club.excelhome.net/thread-1700400-1-1.html?_dsign=d73b2d5b
    ' 2024 ...

谢谢老师！！

wzw190

micch 发表于 2024-8-27 17:08
适合做成一个完整的系统来开发，不算简单，有不太复杂，中等程度刚刚好

哪也太浪费了

wzw190

wengjl 发表于 2024-8-27 16:19
Sub 水费开单()
    ' https://club.excelhome.net/thread-1700400-1-1.html?_dsign=d73b2d5b
    ' 2024 ...

这个excel想在手机上使用，但是手机office不支持宏。老师有其它的办法实现吗？

wengjl

wzw190 发表于 2024-8-28 12:04
这个excel想在手机上使用，但是手机office不支持宏。老师有其它的办法实现吗？

这个我可不懂了！

micch

wzw190 发表于 2024-8-28 11:51
哪也太浪费了

应该是我想多了，可能实际应用没那么复杂。不过，你想手机上使用，不建议用表格，可以考虑小程序，也许能找到一些成品app。

大概梳理了一下：收费首选得有谁缴费的信息，也就是又一个表记录缴费人员。如果是固定人员，那么一次性录入基础信息就行，如果人员经常变动，那还需要考虑增减人员和修改；
然后收费项目固定就是一个水费，那可以固定死，如果有可能其他项目，那还需要做收费项目的选择和关联；
然后才是收费的核心功能：要考虑每个人缴费模式是否不一样，还要考虑是否欠费或者有没有预缴费的情况，欠费是否需要计算滞纳金的情况，然后收费一般做一个缴费提醒比较合适；然后还有收费和实际费用是否匹配的问题，比如需要计算应缴费，实缴费等等；
最后就是历史缴费数据，会有一个查询的需求，或者还有缴费统计的需求。
以上都做，确实搞太复杂了。