|
|
|
No.1
住房销售是一个大类，流通较小，且房屋登记也相对不是很频繁。
由于其特殊的商品属性决定了，它不太可能经常改变。
本节将用VBA来制作一个销售表，并对表进行统计操作，可随时方便了解销售情况。
下图为销售记录总表，表内字段不是十分完整，但也足够体现所有房屋数据。
左侧为操作按钮，顶部为关键字段。
销售登记
这个表单是数据录入的操作入口，可以将楼盘及房屋的一些信息从这里输入。
具体内容可看图了解。
其中有些下接列表内容是另外的表中进行设置。
表单调用其记录进行选择输入。
下图为销售情况
可直观地看到哪些房屋已经出售，哪些暂未出售，以及出售的一些基本情况。
本表单做了两方面的分类，基本内容都是主表里的信息。
相对简单， 不难理解。
销售统计
这里做了大量的数据统计代码，实现了对房屋信息的一些整理工作。
包括：出售信息、未出售信息、已售面积、未售面积、销售总额、已收款和未收款。
此表单实现整体总览结果，相当明白。
No.2
代码
销售言情数量计算函数
Private Function getCount(lx As Variant) ''销售数量计算Dim x As WorksheetSet x = ThisWorkbook.Worksheets("销售表")Dim cell As Range, r As RangeSet cell = x.Range("H2:H" & x.Range("H65535").End(xlUp).Row)For Each r In cellIf r.Value = VBA.CStr(lx) ThengetCount = getCount + 1End IfNext rSet r = NothingSet x = NothingSet cell = NothingEnd Function
销售面积计算
Private Function getSum(lx As Variant) As Long ''面积计算Dim x As WorksheetFor Each r In cellIf r.Value = VBA.Left(VBA.CStr(lx)] 2) ThengetSum = getSum + r.Offset(0] -1).ValueEnd IfNext rSet r = NothingSet x = NothingSet cell = NothingEnd Function
销售总额计算函数
Private Function getZJE(CoX As String) As Long '销售总额Dim x As WorksheetSet cell = x.Range(CoX & "2:" & CoX & x.Range(CoX & "65535").End(xlUp).Row)For Each r In cellIf VBA.IsNumeric(r.Value) ThengetZJE = getZJE + r.ValueEnd IfNext rSet r = NothingSet x = NothingSet cell = NothingEnd Function
代码很多，选择一些函数过程，函数化编程有很好的调试性，当一些问题出现的时候，可以方便地找到问题出在哪些地方，以便快速修改。
欢迎关注、收藏 |
|
发表于 2021-5-10 09:42:43
