小型物业管理系统（为论坛做点小贡献^.^）

mr_lxn

本人EXCEL菜鸟，因工作需要，研究了近一个月的成果，现分享给有需要的同行们
（目前还有一功能还未完善，也希望大神们帮忙看看http://club.excelhome.net/thread-1456056-1-1.html）也感谢碣石山人帮我解决了其中一个问题http://club.excelhome.net/thread-1466281-1-1.html
物业缴费系统.zip (345.08 KB, 下载次数: 218)

2019-3-19 00:49 上传

点击文件名下载附件

不喜勿喷

xgy19771116

不错，很好的一款软件，感谢分享，有最新改良版吗

mmx1122

一看就是用心做了，先不管数据如何，至少界面整齐，不花哨，就值得点赞。

YZC51

谢谢老师分享！有花花再补上！

ardu95

不错，很好的一款软件，期待完善。

g48856

界面很漂亮，还未使用，先赞一个

一指禅62

深受启发，感谢楼主！

对楼栋对应的房间号添加数据有效性，写了一段代码：

物业缴费系统.zip (322.7 KB, 下载次数: 63)

2020-2-9 19:58 上传

点击文件名下载附件

1. 
   
2. Public Sub 楼栋房号(ByVal key As String, ByVal Rng As Range)
   
3.     Dim arr, i%, n%, r%, a()
   
4.     If key = "" Then Exit Sub
   
5.     With Sheet3
   
6.         r = .Range("A65536").End(3).Row
   
7.         arr = .Range("A9:A" & r).Value
   
8.     End With
   
9.     For i = 1 To UBound(arr)
   
10.         If InStr(arr(i, 1), key) Then
    
11.             n = n + 1: ReDim Preserve a(1 To n)
    
12.             a(n) = Right(arr(i, 1), Len(arr(i, 1)) - Len(key))
    
13.         End If
    
14.     Next
    
15.     If n > 0 Then
    
16.         ActiveSheet.Unprotect
    
17.         With Rng.Validation
    
18.             .Delete
    
19.             .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    
20.                 xlBetween, Formula1:=Join(a, ",")
    
21.         End With
    
22.         Rng.Value = a(1)
    
23.         ActiveSheet.Protect
    
24.     End If
    
25. End Sub

复制代码

muguiping

看起来很厉害哦，楼主在保持更新吗？