根据年龄计算剩余日均工时，并将符合条件的工号显示在表格

sunya_0529

WPS里的JSA练习一下——

ykcbf1100

附件供参考。。。

ykcbf1100

代码供参考。。。

1. Sub ykcbf()  '//2024.2.18
   
2.     Set ws = ThisWorkbook
   
3.     Set sh = ws.Sheets("表格")
   
4.     tt = sh.[m1].Value2
   
5.     On Error Resume Next
   
6.     With ws.Sheets("数据")
   
7.         r = .Cells(Rows.Count, 1).End(3).Row
   
8.         arr = .Range("a1:i" & r)
   
9.         b = [{1,2,3,4,5,6,7,9}]
   
10.         ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
    
11.         For i = 4 To UBound(arr)
    
12.             gs = IIf(arr(i, 6) >= 55, 230, 250)
    
13.             gs2 = (gs - arr(i, 9)) / tt
    
14.             If gs2 < 9 Then
    
15.                 m = m + 1
    
16.                 For j = 1 To UBound(b)
    
17.                     brr(m, j) = arr(i, b(j))
    
18.                 Next
    
19.                 brr(m, 9) = Round(gs2, 2)
    
20.             End If
    
21.         Next
    
22.     End With
    
23.     With sh
    
24.         .UsedRange.Offset(2).Clear
    
25.         .Columns(3).NumberFormatLocal = "@"
    
26.         With .[a3].Resize(m, 9)
    
27.             .Value = brr
    
28.             .Borders.LineStyle = 1
    
29.             .HorizontalAlignment = xlCenter
    
30.             .VerticalAlignment = xlCenter
    
31.         End With
    
32.     End With
    
33.     MsgBox "OK！"
    
34. End Sub
    

复制代码

sommdark

yynrzwh 发表于 2024-2-16 23:06

你好，请问如果日均工时小于9，改成根据P1值显示数据，怎么修改？

yynrzwh

文件.rar (32.63 KB, 下载次数: 7)

2024-2-23 15:26 上传

点击文件名下载附件