求助小区各住户收费录入后统计到另一张表内

dagal

小区物业每次收到客住户的款项开收据后给财务，财务要统计到excel表内，但目前手工在表内上下找对应住户房号比较麻烦，能否实现在一张录入表内录入数据后自动填入物业费或电费的对应房号及相应月份内，谢谢各位大侠帮忙。。

dagal

1.rar (15.1 KB, 下载次数: 34)

2018-5-24 10:58 上传

点击文件名下载附件

附件已上传

一指禅62

物业收费登记.zip (48.76 KB, 下载次数: 64)

2018-5-24 13:00 上传

点击文件名下载附件

一指禅62

1. Dim Wy As Range, Df As Range
   
2. Dim i%
   
3. 
   
4. 
   
5. Private Sub cmd保存_Click()
   
6.     Wy.Offset(0, Val(ComboBox1.Text) + 1) = Val(TextBox1.Text)
   
7.     Df.Offset(0, Val(ComboBox1.Text) + 1) = Val(TextBox2.Text)
   
8.     Call ViewShow
   
9. End Sub
   
10. 
    
11. Private Sub ComboBox1_Change()
    
12.     On Error Resume Next
    
13.     TextBox1.Text = Wy.Offset(0, Val(ComboBox1.Text) + 1)
    
14.     TextBox2.Text = Df.Offset(0, Val(ComboBox1.Text) + 1)
    
15. End Sub
    
16. 
    
17. Private Sub ComboBox2_Change()
    
18.     Set Wy = Sheet1.Range("A:A").Find(ComboBox2.Text, lookat:=xlWhole)
    
19.     Set Df = Sheet2.Range("A:A").Find(ComboBox2.Text, lookat:=xlWhole)
    
20.     Call ComboBox1_Change
    
21.     Call ViewShow
    
22. End Sub
    
23. 
    
24. Private Sub UserForm_Initialize()
    
25.     With ListView1
    
26.         .FullRowSelect = True
    
27.         .Gridlines = True
    
28.         .View = lvwReport
    
29.         .MultiSelect = True
    
30.         Set .SmallIcons = ImageList1
    
31.         .ColumnHeaders.Add , , "月份", 50
    
32.         .ListItems.Add , , "物业费"
    
33.         .ListItems.Add , , "电费"
    
34.         .ListItems.Add , , "合计"
    
35.         For i = 1 To 12
    
36.             .ColumnHeaders.Add , , i & "月", 30, lvwColumnRight
    
37.             ComboBox1.AddItem i & "月"
    
38.         Next
    
39.     End With
    
40.     ComboBox1.ListIndex = Month(Date) - 1
    
41.     ComboBox2.List = Sheet1.Range("A4:A119").Value
    
42. End Sub
    
43. 
    
44. Private Sub ViewShow()
    
45.     With ListView1
    
46.         If Not Wy Is Nothing Then
    
47.             For i = 1 To 12
    
48.                .ListItems(1).SubItems(i) = Wy.Offset(0, i + 1)
    
49.             Next
    
50.         End If
    
51.         If Not Df Is Nothing Then
    
52.             For i = 1 To 12
    
53.                 .ListItems(2).SubItems(i) = Df.Offset(0, i + 1)
    
54.             Next
    
55.         End If
    
56.         For i = 1 To 12
    
57.             .ListItems(3).SubItems(i) = Val(.ListItems(1).SubItems(i)) + Val(.ListItems(2).SubItems(i))
    
58.         Next
    
59.     End With
    
60. End Sub

复制代码

gdszczh

请看附件，点击按钮自动添加数据到2个表格中。

dagal

一指禅62 发表于 2018-5-24 13:00

谢谢，就是这种效果，但能否在录入完点击保存后提示保存成功并返回且清空上一次录入的内容。。。

dagal

gdszczh 发表于 2018-5-24 13:20
请看附件，点击按钮自动添加数据到2个表格中。

这个也不错哦，不知我录入完后在录入那个表内的数据能否删除，会不会影响前面已录入的信息

gdszczh

为了防止误删，独立增加一个删除的按钮，不知道是否你需要的效果？
另外，请留意，该代码每次写入，会覆盖原来的数据。
这个版本只是学习交流，如果实际应用，需要考虑使用多一些判断措施，进行完善，以确保数据安全。

dagal

好的，我试试看，谢谢~