【办公-excel】VBA 统计考勤信息

最新推荐文章于 2023-09-22 12:04:35 发布
最新推荐文章于 2023-09-22 12:04:35 发布
阅读量2.9k 收藏 13
点赞数 4
分类专栏： 办公软件
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/chenlu5201314/article/details/80336789
版权

窗体-MainForm

Private Sub CommandButton1_Click()
    AnalysisAttendance TextBoxDayFliter.Text
End Sub

Private Sub UserForm_Click()

End Sub

模块RunProgram

Sub main1()

'MsgBox day(DateSerial(2018, 3, 0))
 MainForm.Show
 
End Sub
Public Function AnalysisAttendance(dayfliter As String)
    Dim MyTime As Date
    Dim D, KqData
    Dim i
    Dim s As String
    Dim tmp
    Dim arrdata(1 To 10000, 1 To 10)
    Dim startTime As String
    Dim endtime As String
    Dim days As Integer
    Dim nameno As String
    Dim CurNameno As String
    
    Const ColumnIndexName = 2
    Const ColumnIndexNo = 3
    Const ColumnIndexKQT = 4
    Dim temp() As String
    Dim Date1 As Date
     Dim Date2 As Date
    Set D = CreateObject("scripting.dictionary")
    KqData = Intersect(ActiveSheet.UsedRange, ActiveSheet.Range("A:D"))
    For i = 2 To UBound(KqData, 1)
    
               CurNameno = KqData(i, ColumnIndexName) & Format(KqData(i, ColumnIndexNo))
        If nameno <> CurNameno Then
            days = day(DateSerial(Year(Format(KqData(i, ColumnIndexKQT), "yyyy-mm-dd")), Month(Format(KqData(i, ColumnIndexKQT), "yyyy-mm-dd")) + 1, 0))
            nameno = CurNameno
            For ID = 1 To days
            
                 If SG_InArray(dayfliter, ID) = False Then
                    s = "'" & KqData(i, ColumnIndexName) & Format(KqData(i, ColumnIndexNo)) & Format(KqData(i, ColumnIndexKQT), "yyyy-mm-") + Format(ID, "00")
                    If Not D.exists(s) Then
                        D(s) = ""
                    Else
                        D(s) = ""
                    End If
                 End If
            Next ID
        End If
         s = "'" & KqData(i, ColumnIndexName) & Format(KqData(i, ColumnIndexNo)) & Format(KqData(i, ColumnIndexKQT), "yyyy-mm-dd")

       ' If Not D.exists(s) Then
            'D(s) = Format(KqData(i, ColumnIndexKQT), "hh:mm:ss")
       'Else
            'D(s) = D(s) & Space(1) & Format(KqData(i, ColumnIndexKQT), "hh:mm:ss")
        'End If
        
        If Not D.exists(s) Or D(s) = "" Then
            D(s) = Format(KqData(i, ColumnIndexKQT), "hh:mm:ss")
       Else
            D(s) = D(s) & Space(1) & Format(KqData(i, ColumnIndexKQT), "hh:mm:ss")
        End If
        
    Next i
    tmp = Application.Transpose(Array(D.keys, D.items))
    
    arrdata(1, 1) = "姓名+工号"
    arrdata(1, 2) = "日期"
    arrdata(1, 3) = "上午打开时间"
    arrdata(1, 4) = "下午打开时间"
    arrdata(1, 5) = "上午迟到"
    arrdata(1, 6) = "下午早退"
    arrdata(1, 7) = "累计上班时长"
    For i = 1 To UBound(tmp, 1)
        arrdata(i + 1, 1) = Mid(tmp(i, 1), 1, Len(tmp(i, 1)) - 10)
        arrdata(i + 1, 2) = "'" & Right(tmp(i, 1), 10)
        'arrdata(i, 3) = tmp(i, 2)
      temp = Split(tmp(i, 2), Space(1))
      
      Dim stra As String
      
      
      arrdata(i + 1, 3) = SG_GetFirst(tmp(i, 2), Space(1))
      arrdata(i + 1, 4) = SG_GetLast(tmp(i, 2), Space(1))
      
      If arrdata(i + 1, 3) = "" And arrdata(i + 1, 4) <> "" Then
        If SG_Compare(arrdata(i + 1, 4)) = "上午" Then
        arrdata(i + 1, 3) = arrdata(i + 1, 4)
         arrdata(i + 1, 4) = ""
        End If
      End If
      
      If arrdata(i + 1, 4) = "" And arrdata(i + 1, 3) <> "" Then
        If SG_Compare(arrdata(i + 1, 3)) = "下午" Then
        arrdata(i + 1, 4) = arrdata(i + 1, 3)
         arrdata(i + 1, 3) = ""
        End If
      End If
      
      arrdata(i + 1, 5) = SG_DiffTime(arrdata(i + 1, 3), "09:00:00")

      arrdata(i + 1, 6) = SG_DiffTime("18:30:00", arrdata(i + 1, 4))

      arrdata(i + 1, 7) = SG_DiffTime(arrdata(i + 1, 3), arrdata(i + 1, 4))

       ' arrdata(i, 4) = SG_GetLast(tmp(i, 2), Space(1))
    Next i
    ActiveSheet.[E1].Resize(D.Count, 7) = arrdata '根据实际需要设置数据位置
    
    SG_Statistics tmp, arrdata
End Function

Public Function SG_Statistics(ByVal temp, ByVal arrdata)
   Dim nameno As String
   Dim CurNameno As String
   Dim cidaocount As Integer
     Dim cidaosrting As String

   Dim zaotuicount As Integer
   Dim zaotuisrting As String
   
   Dim queqingCount As Integer
   Dim queqingString As String
   
   Dim amdkCount As Integer
   Dim amdkString As String
   
   Dim pmdkCount As Integer
   Dim pmdkString As String
   Dim arrdataStatistics(1 To 200, 1 To 11)
    Dim D
    Dim tmpx
    Set D = CreateObject("scripting.dictionary")
   nameno = ""
   For i = 2 To UBound(temp, 1) + 1
   
   CurNameno = arrdata(i, 1)
   If nameno <> CurNameno Then
      
      If nameno <> "" Then
    If Not D.exists(nameno) Or D(nameno) = "" Then
        
        If zaotuisrting = "" Then
        zaotuisrting = "none"
        End If
        
        If cidaosrting = "" Then
        cidaosrting = "none"
        End If
        
        If queqingString = "" Then
        queqingString = "none"
        End If
        
        If amdkString = "" Then
        amdkString = "none"
        End If
        If pmdkString = "" Then
        pmdkString = "none"
        End If
        
        
        D(nameno) = cidaocount & "=" & cidaosrting & "=" & zaotuicount & "="
        D(nameno) = D(nameno) & zaotuisrting & "=" & queqingCount & "=" & queqingString & "=" & amdkCount & "=" & amdkString & "=" & pmdkCount & "=" & pmdkString
        
    Else
      D(nameno) = cidaocount & "=" & cidaosrting & "=" & zaotuicount & "="
        D(nameno) = D(nameno) & zaotuisrting & "=" & queqingCount & "=" & queqingString & "=" & amdkCount & "=" & amdkString & "=" & pmdkCount & "=" & pmdkString

    End If
      End If
     nameno = CurNameno
     cidaocount = 0
     cidaosrting = ""
     zaotuicount = 0
     zaotuisrting = ""
     queqingCount = 0
     queqingString = ""
     amdkCount = 0
     amdkString = ""
     pmdkCount = 0
     pmdkString = ""
     End If
     
     If InStr(arrdata(i, 5), "-") > 0 Then
        cidaocount = cidaocount + 1
        cidaosrting = cidaosrting & arrdata(i, 2) & " " & arrdata(i, 3) & "、"
     End If
     
     If InStr(arrdata(i, 6), "-") > 0 Then
        zaotuicount = zaotuicount + 1
        zaotuisrting = zaotuisrting & arrdata(i, 2) & " " & arrdata(i, 4) & "、"
     End If
     
      If arrdata(i, 3) = "" And arrdata(i, 4) <> "" Then
        amdkCount = amdkCount + 1
        amdkString = amdkString & arrdata(i, 2) & "、"
     End If
     
      If arrdata(i, 3) <> "" And arrdata(i, 4) = "" Then
        pmdkCount = pmdkCount + 1
        pmdkString = pmdkString & arrdata(i, 2) & "、"
     End If
     
     If arrdata(i, 3) = "" Or arrdata(i, 4) = "" Then
        queqingCount = queqingCount + 1
        queqingString = queqingString & arrdata(i, 2) & "、"
     End If
     
   Next i
      If nameno <> "" Then
    If Not D.exists(nameno) Or D(nameno) = "" Then
        D(nameno) = cidaocount & "=" & cidaosrting & "=" & zaotuicount & "="
        D(nameno) = D(nameno) & zaotuisrting & "=" & queqingCount & "=" & queqingString & "=" & amdkCount & "=" & amdkString & "=" & pmdkCount & "=" & pmdkString
        
    Else
      D(nameno) = cidaocount & "=" & cidaosrting & "=" & zaotuicount & "="
        D(nameno) = D(nameno) & zaotuisrting & "=" & queqingCount & "=" & queqingString & "=" & amdkCount & "=" & amdkString & "=" & pmdkCount & "=" & pmdkString

    End If
    End If
   tmpx = Application.Transpose(Array(D.keys, D.items))
   
    arrdata(1, 1) = "姓名+工号"
    arrdataStatistics(1, 2) = "迟到次数"
    arrdataStatistics(1, 3) = "迟到信息"
    arrdataStatistics(1, 4) = "早退次数"
    arrdataStatistics(1, 5) = "早退信息"
    arrdataStatistics(1, 6) = "缺勤次数"
    arrdataStatistics(1, 7) = "缺勤信息"
    arrdataStatistics(1, 8) = "上午没打卡次数"
    arrdataStatistics(1, 9) = "上午没打卡信息"
    arrdataStatistics(1, 10) = "下午没打卡次数"
    arrdataStatistics(1, 11) = "下午没打卡信息"
   
   For i = 1 To UBound(tmpx, 1)
        arrdataStatistics(i + 1, 1) = tmpx(i, 1)
        arrdataStatistics(i + 1, 2) = SG_GetSub(tmpx(i, 2), "=", 0)
        arrdataStatistics(i + 1, 3) = SG_GetSub(tmpx(i, 2), "=", 1)
        arrdataStatistics(i + 1, 4) = SG_GetSub(tmpx(i, 2), "=", 2)
        arrdataStatistics(i + 1, 5) = SG_GetSub(tmpx(i, 2), "=", 3)
        arrdataStatistics(i + 1, 6) = SG_GetSub(tmpx(i, 2), "=", 4)
        arrdataStatistics(i + 1, 7) = SG_GetSub(tmpx(i, 2), "=", 5)
        arrdataStatistics(i + 1, 8) = SG_GetSub(tmpx(i, 2), "=", 6)
        arrdataStatistics(i + 1, 9) = SG_GetSub(tmpx(i, 2), "=", 7)
        arrdataStatistics(i + 1, 10) = SG_GetSub(tmpx(i, 2), "=", 8)
        arrdataStatistics(i + 1, 11) = SG_GetSub(tmpx(i, 2), "=", 9)
    Next i
    
    ActiveSheet.[L1].Resize(D.Count, 11) = arrdataStatistics '根据实际需要设置数据位置
End Function

Public Function SG_InArray(ByVal tmp As String, ByVal va As String)
     Dim temp() As String
    temp = Split(tmp, ",")
     For i = 0 To UBound(temp) - LBound(temp)
     
     If temp(i) = va Then
     
     GoTo a
     End If
     Next i
     GoTo b
a:
    SG_InArray = True
    GoTo ed
b:
    SG_InArray = False
ed:
    
End Function



Public Function SG_DiffTime(ByVal time1 As String, ByVal time2 As String)
    Dim SS As Long
    Dim temp() As String
    If time1 <> "" And time2 <> "" Then
        Date1 = Format(time1, "hh:mm:ss")
        Date2 = Format(time2, "hh:mm:ss")
        SS = DateDiff("s", Date1, Date2)

        If SS >= 0 Then
        SG_DiffTime = (SS \ 3600) & ":" & ((SS Mod 3600) \ 60) & ":" & (SS Mod 60)
        Else
         SG_DiffTime = "- " & (-SS \ 3600) & ":" & ((-SS Mod 3600) \ 60) & ":" & (-SS Mod 60)
        End If
        End If
End Function

Public Function SG_DiffTime2(ByVal time1 As String, ByVal time2 As String)
    Dim SS As Long
    Dim temp() As String
    If time1 <> "" And time2 <> "" Then
        Date1 = Format(time1, "hh:mm:ss")
        Date2 = Format(time2, "hh:mm:ss")
        SS = DateDiff("s", Date1, Date2)

        If SS >= 0 Then
        SG_DiffTime2 = "- " & (SS \ 3600) & ":" & ((SS Mod 3600) \ 60) & ":" & (SS Mod 60)
        Else
         SG_DiffTime2 = (-SS \ 3600) & ":" & ((-SS Mod 3600) \ 60) & ":" & (-SS Mod 60)
        End If
        End If
End Function

Public Function SG_Compare(ByVal time1 As String)
    Dim SS As Long
    Dim temp() As String
    If time1 <> "" Then
        Date1 = Format(time1, "hh:mm:ss")
        Date2 = Format("12:00:00", "hh:mm:ss")
        SS = DateDiff("s", Date1, Date2)

        If SS >= 0 Then
            SG_Compare = "上午"
        Else
            SG_Compare = "下午"
        End If
        Else
    End If
    
End Function

Public Function SG_GetSub(ByVal tmp As String, ByVal splitstr, ByVal index As Integer)
    Dim temp() As String
    temp = Split(tmp, splitstr)
    If UBound(temp) - LBound(temp) + 1 > index Then
        SG_GetSub = temp(index)
    Else
        SG_GetSub = ""
    End If
End Function

Public Function SG_GetFirst(ByVal tmp As String, ByVal splitstr)
    Dim temp() As String
    temp = Split(tmp, splitstr)
    If UBound(temp) - LBound(temp) + 1 > 0 Then
        SG_GetFirst = temp(0)
    Else
        SG_GetFirst = ""
    End If
End Function

Public Function SG_GetLast(ByVal tmp As String, ByVal splitstr)
    Dim temp() As String
    temp = Split(tmp, splitstr)
    If UBound(temp) - LBound(temp) + 1 > 1 Then
        SG_GetLast = temp(UBound(temp) - LBound(temp))
    Else
        SG_GetLast = ""
    End If
End Function

Excel例子

部门姓名工号日期时间
总公司藏阿加382017/5/5 18:43
总公司藏阿加382017-5-6 8:49:04
总公司藏阿加382017-5-6 16:41:55
总公司藏阿加382017-5-8 8:56:16
总公司藏阿加382017-5-8 18:52:52
总公司藏阿加382017/5/9 8:45
总公司藏阿加382017-5-9 18:47:56
总公司藏阿加382017-5-10 8:54:24
总公司藏阿加382017-5-10 18:38:29
总公司藏阿加382017-5-11 18:50:18
总公司藏阿加382017-5-12 8:50:29
总公司藏阿加382017-5-12 18:44:59
总公司秋季换802017-5-2 8:56:13
总公司秋季换802017-5-2 18:32:45
总公司秋季换802017-5-3 8:53:43
总公司秋季换802017-5-3 18:33:05
总公司秋季换802017-5-4 8:50:58
总公司秋季换802017-5-4 18:32:42
总公司秋季换802017-5-5 8:54:16
总公司秋季换802017-5-5 18:31:50
总公司秋季换802017-5-6 8:53:42
总公司秋季换802017-5-6 16:35:46
总公司秋季换802017-5-8 8:58:50
总公司秋季换802017-5-8 18:32:10
总公司秋季换802017-5-9 8:56:42
总公司秋季换802017-5-9 18:32:30
总公司秋季换802017-5-10 8:56:43
总公司秋季换802017-5-10 18:32:41
总公司秋季换802017-5-11 8:53:35
总公司秋季换802017-5-11 18:31:22
总公司秋季换802017-5-12 8:55:53
总公司秋季换802017-5-12 18:33:32
总公司秋季换802017-5-13 8:54:28
总公司秋季换802017-5-13 16:34:03
总公司秋季换802017-5-15 8:58:56
总公司秋季换802017-5-15 18:31:22
总公司秋季换802017-5-16 8:57:33
总公司秋季换802017-5-16 18:31:25
总公司秋季换802017-5-17 8:55:57
总公司秋季换802017-5-17 18:33:11
总公司秋季换802017-5-18 8:55:45
总公司秋季换802017-5-18 18:32:48
总公司秋季换802017-5-19 8:55:45
总公司秋季换802017-5-19 18:32:33
总公司秋季换802017-5-22 8:55:17
总公司秋季换802017-5-22 18:30:48
总公司秋季换802017-5-23 8:57:03
总公司秋季换802017-5-23 18:32:03
总公司秋季换802017-5-24 8:58:19
总公司秋季换802017-5-24 18:32:58
总公司秋季换802017-5-25 8:58:50
总公司秋季换802017-5-25 18:34:08
总公司秋季换802017-5-26 8:53:45
总公司秋季换802017-5-26 18:31:15
总公司秋季换802017-5-27 8:54:38
总公司秋季换802017-5-27 17:02:15
总公司秋季换802017-5-31 8:51:33
总公司秋季换802017-5-31 18:31:02


少莫千华
关注
专栏目录
VBA-EXCEL统计数据
weixin_45554139的博客
04-02 385
考点1：行号获取 考点2：三目运算符 Sub ffll() ret0 = 0 ret1 = 0 Row = ActiveSheet.UsedRange.Rows.Count For i = 2 To Row Step 1 k = Range("AJ" & i).Value If k > 0 Then k1 = IIf(Range("AL" & i).Valu...
Excel·VBA考勤打卡记录数据整理
hhhhh_51的博客
04-08 3434
《excel吧提问-转置打卡数据》，打卡记录进行数据整理，分别提取3个时间段的开始、结束时间。 与之前写过的《Excel·VBA考勤打卡记录统计出勤小时》要求不同，仅需要提取打卡时间，特殊之处在于开始时间要最晚，而结束时间要最早 将提取时间的特殊要求，定义为一个函数，后期调用时直接传参获取结果 Private Function SEARCH_NUM(arr, target, Optional mode As String = "-") '函数定义SEARCH_NUM(数组，目标值，查找模式)按指定查
Excel Vba统计多表数据
03-13
Excel Vba统计多表数据列合成一个表 ，内部测试没有问题，欢迎交流学习
Excel·VBA统计表生成函数及应用实例
hhhhh_51的博客
04-08 2623
数值汇总：1，汇总多行多列数据，生成二维横纵统计表；2，对二维横纵统计表，拆分为多行多列数据 字符串汇总：3，汇总多行多列数据，生成二维横纵统计表
使用Excel VBA进行成绩统计和排序的实用指南
最新发布
weixin_45085987的博客
09-22 806
本博文将介绍如何使用Excel VBA编写一个功能强大的成绩统计和排序工具，以便轻松地分析和管理大量成绩数据。在本博文中，我们介绍了如何使用Excel VBA代码来进行成绩统计和排序。接下来，它循环处理数据，根据不同的分数条件进行统计，并计算平均分数、最高分和最低分。最后，它对数据进行排序。你可以在你的Excel工作表中运行这段代码，用它来统计成绩数据并按分数从高到低进行排序。如果你想要深入学习Excel VBA或对代码进行自定义，你可以查看有关Excel VBA的更多教程和资源，以进一步提高你的技能。
EXECL数据统计 VBA宏编程
泛华
05-19 486
【代码】EXECL数据统计 VBA宏编程。
Excel-VBA宏编程实例源代码-工作表的操作-员工考勤记录表.zip
12-14
通过掌握这些知识点，你可以利用VBA在Excel中创建复杂的应用，自动化日常办公任务，如自动填充数据、数据分析、报表生成等，极大地提高工作效率。在这个实例中，"工作表的操作-员工考勤记录表"很可能是展示如何利用...
add-persons-info-.rar_Excel VBA_excel 界面_excel界面
09-23
标题中的"add-persons-info-.rar_Excel VBA_excel 界面_excel界面"表明这是一个使用Excel VBA（Visual Basic for Applications）创建的程序，用于在Excel界面中添加人员信息。VBA是Microsoft Office套件中内置的一种...
EXCEL常用模板-人事模板-考勤类考勤表(1).zip
05-02
11. **宏与VBA**：对于复杂的考勤管理需求，可以编写宏或使用VBA（Visual Basic for Applications）自动化一些重复性任务，如自动生成报告或自动更新数据。 通过合理利用以上知识点，Excel的人事考勤模板能够极大地...
Excel教学案例自动考勤表的制作PPT课件.pptx
10-10
在Excel中制作自动考勤表是一项实用且高效的工作技能，尤其对于企业和教育机构管理日常出勤情况至关重要。以下是一份详细的教程，涵盖了从基础框架设置到宏的录制和应用，以及利用函数进行出勤统计。 **一、基本...
vba模块2生成考勤表_考勤机记录生成考勤统计报告_
10-02
根据考勤机导出的考勤明细记录，生成考勤统计报告
EXCEL_VBA制作员工考勤系统源码
08-30
EXCEL_VBA制作员工考勤系统源码 适用环境：EXCEL2003/2007/2010 大家下载下来，可以设置断点调适运行代码，学习VBA的编程。 也可以直接使用，这个是员工考勤系统。
钉钉考勤接口示例源码
01-16
钉钉考勤数据下载的示例代码，分享给需要的朋友！ 本示例是用corpsecret和corpid来获取access_token的，现在钉钉接口改成用appKey和appSecret来获取token了，不过方法大同小异，换一下调用接口的地址和参数就可以了。 编译环境：请使用Delphi EX及以上版本 本示例提供了以下功能： 1、获取access token 2、根据userid获取打卡结果 3、根据userid获取考勤打卡开放记录 4、自动获取所有部门，所有员工的打卡结果数据 5、获取部门列表 6、根据部门id获取user列表 控件用到了Raize 和 DevExpress，如果没有，请自行替换成你熟悉的控件即可 因为钉钉接口是https，所以用到了openssl-1.0.1j-i386-win32库
VBa运行c语言程序,Excel VBA编程详解
weixin_35215045的博客
05-24 1646
周五下班，小宇问我“这期文章主题是啥”。“Excel中VBA编程的具体实现呀”“为什么会写这个，有什么用吗？”你们也这样觉得吗？那我就来结合工作实践讲讲这个有什么用。在工程开发中，比如A同事从事汽车控制策略开发，我们都知道这是个设计与验证不断迭代的过程。现在到了实车验证阶段，用can卡去车上采集信号数据，发现有些数据结果不对。现在打算从采集的数据当中筛选一些特定的工况数据，导入模型进行再次验证。可...
Excel·VBA考勤打卡记录统计出勤小时
hhhhh_51的博客
04-01 4689
《excel吧提问-打卡记录统计出勤小时》，对上万行打卡记录进行统计，根据每人每日最早、最晚打卡记录得出当日出勤小时 vba字典嵌套字典 Sub 打卡记录转考勤表() Dim arr, name_dict, date_dict, ws, i, j, k tm = Now() arr = [a1].CurrentRegion.Value Set name_dict = CreateObject("scripting.dictionary") For i = 2 To U
【Excel VBA】利用数组、集合、循环等检查各单位报送情况——每月自动汇总考勤数据实例
碰碰虎的博客
06-13 858
纲举目张说明关键技术点：Collection类型代码code运行效果图使用说明 说明 之前的一篇文章，讲了如何使用Dir函数遍历获取文件夹下所有文件，当然演示使用的实例比较简单，方便演示结果。实际工作中各部门报送的考勤除了明细统计表还有通报文件。具体文件信息如下图： 本文章就演示如何只挑选出统计表，并且挑选出不符合命名规则的文件名、不符合统计规则的文件名、通过对比将已经报送的部门进行打标。 关键技术点：Collection类型 Collection 对象是一组可称为“单元”的有序项。 集合的创建方式与其
VBA小模板，跨表统计的2种写法
奔跑的犀牛先生
03-09 1471
VBA小模板，跨表统计的2种写法
vba 自动换行_使用VBA脚本制作考勤统计汇总表，释放人力资源工作压力
weixin_39777967的博客
12-14 1304
利用VBA脚本，可以自动将考勤明细数据按月加工成月汇总统计报表，大大减少人力资源人员的工作量，且提高了数据准备性，快捷、省时、省力。一、前提1、考勤明细表必须包括4个字段：工号、姓名、部门、刷卡时间，样表见下图；2、刷卡时间字段必须是“日期+时间”格式，例如：2020/03/01 08:16:24、2020/3/1 8:16:24、2020-03-01 08:16:24、2020-3-1...
利用vba 按月制作排班表-excel vba程序开发-excelhome技术论坛
09-01
利用VBA可以实现按月制作排班表的功能，以下是实现该功能的步骤： 1. 首先，需要在Excel中创建一个表格，其中包含员工姓名、工作日期和班次等列。可以根据需要自定义表格的样式和布局。 2. 在VBA编辑器中，创建一个新的模块，用于编写VBA代码。 3. 首先，需要定义员工的姓名和工作日期的范围，可以使用Range对象来引用这些区域。 4. 然后，编写一个循环来遍历工作日期的范围，并为每个日期分配班次。可以使用For Each循环来实现这一功能。 5. 在循环中，使用InputBox函数或者其他方法来输入员工姓名和对应的班次。可以使用MsgBox函数来显示提示信息并接收输入。 6. 将员工姓名和班次写入表格中的相应位置。可以使用Cells(row, column)方法来引用单元格，并使用Value属性来设置单元格的值。 7. 最后，保存并运行VBA代码，即可生成按月排班表。 编写VBA代码时需要熟悉VBA语法和Excel对象模型，可以参考Excel VBA编程的相关资料和教程，通过不断实践和调试来完善和优化代码。同时，注意错误处理和异常情况的处理，以提高程序的健壮性和可靠性。 利用VBA按月制作排班表的功能可以帮助企业和组织有效管理员工的工作安排，提高工作效率和协调性。
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值