简易工资管理

vivany

还是想说，感谢楼主无私的奉献精神，辛苦了！！！

vivany

有一个问题还需要请教一下，流水里面不能中间插入新增员工，然后离职人员的基本信息不能在资料里直接删除。如果删除了，前面的月份的就没有人员基本信息了

龚非

vivany 发表于 2019-8-30 08:35
有一个问题还需要请教一下，流水里面不能中间插入新增员工，然后离职人员的基本信息不能在资料里直接删除。 ...

这个需要在基础表增加人员状态，如在职、离职等，在流水表中判断其状态或只显示在职状态的吧。比较简单，你自己会做吧？

龚非

1. Dim arr As Variant
   
2. Dim TheList As String
   
3. Dim i As Integer
   
4. Dim r As Long
   
5. r = Sheets("基础资料").Range("b" & Rows.Count).End(xlUp).Row
   
6. arr = Sheets("基础资料").Range("b1:e" & r)
   
7.     For i = 1 To UBound(arr)
   
8.        If arr(i, 4) = "在职" And InStr(TheList & ",", "," & arr(i, 1) & ",") = 0 Then TheList = TheList & "," & arr(i, 1)
   
9.     Next i
   
10.     With Selection.Validation
    
11.       .Delete
    
12.       .Add Type:=3, AlertStyle:=1, Operator:=1, Formula1:=Mid(TheList, 2)
    
13.       .ShowError = False
    
14.     End With

复制代码

流水表中第二列下拉工号改成判断在职状态

vivany

龚非 发表于 2019-9-1 16:01
流水表中第二列下拉工号改成判断在职状态

我试试看这个代码，谢谢了

vivany

龚非 发表于 2019-9-1 16:01
流水表中第二列下拉工号改成判断在职状态

是在模块里面的套用里面修改吗？

龚非

vivany 发表于 2019-9-2 10:29
是在模块里面的套用里面修改吗？

NO，在流水表，复制代码。看下图修改

vivany

龚非 发表于 2019-9-2 11:45
NO，在流水表，复制代码。看下图修改

早上好！我修改好了。。。多谢了！！！

mfx780425

感谢楼主分享！

qmya00

感谢楼主分享！！！！