想通过考勤表里的请假得到请假的时间段

任鹏2022

各位老师们，我想通过考勤表提取到请假的日期时间段，求方法，谢谢

nie414006

任鹏2022

nie414006 发表于 2023-3-1 18:58

老师可不可以发个附件，公式输入后无法计算显示，#name？谢谢

sunya_0529

任鹏2022 发表于 2023-3-2 09:26
老师可不可以发个附件，公式输入后无法计算显示，#name？谢谢

任鹏2022

sunya_0529 发表于 2023-3-2 18:58

谢谢老师的赐教，解决了大问题

任鹏2022

sunya_0529 发表于 2023-3-2 18:58

老师帮帮忙出现新问题了，考勤表里如果用/表示半天，情况分两种
1、如果2023/2/1日的考勤为V/CL，V/CL表示半天出勤半天请事假的这种情况，怎么提取出当天的请假日期2023/2/1-2023/2/1,
2、如果2023/2/1日的考勤为CL/V，CL/V表示半天请事假半天出勤的这种情况，怎么提取出当天的请假日期2023/2/1-2023/2/1,

sunya_0529

任鹏2022 发表于 2024-7-1 10:16
老师帮帮忙出现新问题了，考勤表里如果用/表示半天，情况分两种
1、如果2023/2/1日的考勤为V/CL，V/CL表 ...

在WPS里把JSA代码修改一下——

1. function YLeave(dat,rng,str){
   
2.         let a=dat.Value2.flat();
   
3.         let b=rng.Value2.flat();
   
4.         let [s,j,ds,de]=['',0,0,0];
   
5.         let f=Application.WorksheetFunction
   
6.         for(let i=0;i<b.length;i++){
   
7.                 if(b[i].includes(str)){
   
8.                         j++;
   
9.                         if(j==1) ds=a[i];
   
10.                         de=a[i];
    
11.                 }else{                       
    
12.                         if(de>0) s+=f.Text(ds,"yyyy/m/d-")+f.Text(de,"yyyy/m/d")+"\n";
    
13.                         [j,ds,de]=[0,0,0];
    
14.                 }               
    
15.         }       
    
16.         return s.slice(0,-1);
    
17. }

复制代码

任鹏2022

Function YLeaveVBA_Optimized(dat As Variant, rng As Variant, str As String) As String
    Dim a() As Variant
    Dim b() As Variant
    Dim s As String
    Dim j As Integer
    Dim ds As Variant
    Dim de As Variant
    Dim i As Integer
    Dim wsFunc As WorksheetFunction
    Set wsFunc = Application.WorksheetFunction

    a = WorksheetFunction.Transpose(dat.Value2)
    b = WorksheetFunction.Transpose(rng.Value2)

    '估字符串长度
    Dim estimatedLength As Long
    estimatedLength = 1000  '据实际情况预估一个合理的初始长度
    s = String(estimatedLength, " ")

    j = 0
    ds = ""
    de = ""

    For i = 1 To UBound(b)
        If InStr(1, b(i, 1), str) > 0 Then
            j = j + 1
            If j = 1 Then
                ds = a(i, 1)
                de = a(i, 1)
            End If
        Else
            If de <> "" Then
                Dim formattedStart As String
                Dim formattedEnd As String
                formattedStart = wsFunc.Text(ds, "yyyy/m/d-")
                formattedEnd = wsFunc.Text(de, "yyyy/m/d")
                s = s & formattedStart & formattedEnd & vbNewLine
            End If
            j = 0
            ds = ""
            de = ""
        End If
    Next i

    YLeaveVBA_Optimized = Left(s, Len(s) - 2)
End Function

任鹏2022

Function YLeaveVBA_Optimized(dat As Variant, rng As Variant, str As String) As String
    Dim a() As Variant
    Dim b() As Variant
    Dim s As String
    Dim j As Integer
    Dim ds As Variant
    Dim de As Variant
    Dim i As Integer
    Dim wsFunc As WorksheetFunction
    Set wsFunc = Application.WorksheetFunction

    a = WorksheetFunction.Transpose(dat.Value2)
    b = WorksheetFunction.Transpose(rng.Value2)

    '估字符串长度
    Dim estimatedLength As Long
    estimatedLength = 1000  '据实际情况预估一个合理的初始长度
    s = String(estimatedLength, " ")

    j = 0
    ds = ""
    de = ""

    For i = 1 To UBound(b)
        If InStr(1, b(i, 1), str) > 0 Then
            j = j + 1
            If j = 1 Then
                ds = a(i, 1)
                de = a(i, 1)
            End If
        Else
            If de <> "" Then
                Dim formattedStart As String
                Dim formattedEnd As String
                formattedStart = wsFunc.Text(ds, "yyyy/m/d-")
                formattedEnd = wsFunc.Text(de, "yyyy/m/d")
                s = s & formattedStart & formattedEnd & vbNewLine
            End If
            j = 0
            ds = ""
            de = ""
        End If
    Next i

    YLeaveVBA_Optimized = Left(s, Len(s) - 2)
End Function

任鹏2022

sunya_0529 发表于 2024-7-1 22:03
在WPS里把JSA代码修改一下——

谢谢老师的帮助，