人力报表,人员信息按照年龄范围与工龄范围汇总

1588078/37

蓝桥玄霜 发表于 2015-11-29 11:28
请见代码。

Function npld(n)
Dim x As String
cs1 = MyGet(Sheet1.Cells(2, 4).Value, 0)
bj = Split(cs1, ",")

ReDim cs3(0 To UBound(bj))
For i = 0 To UBound(bj)
If InStr(bj(i), "-") Then
cs3(i) = Split(bj(i), "-")(1)
Else: cs3(i) = Val(bj(i))
End If
Next
Select Case n

Case Is <= Val(cs3(0))
col = 3
Case Val(cs3(0)) + 1 To Val(cs3(1))
col = 5
Case Val(cs3(1)) + 1 To Val(cs3(2))
col = 7
Case Val(cs3(2)) + 1 To Val(cs3(3))
col = 9
Case Val(cs3(3)) + 1 To Val(cs3(4))
col = 11
Case Val(cs3(4)) + 1 To Val(cs3(5))
col = 13
Case Is >= Val(bj(UBound(bj)))
col = 15
End Select
End Function
case能设置循环的吗,里面的参数是要让人自行设定的