全部答案

2014-03-03 13:31:54

•   这个写一个VBA就能很容易解决，不知道你是不是熟悉VBA，如果不熟悉我就帮不上了。
  （考勤机出来的数据，是前面人名，后面是打卡时间吧？中间是用空格分隔）
  核心思路如下：
  1、查找特定符号在此行中的位置，如空格、“，”、“。”号等。
  2、获得位置后，提取此符号后面的所有文字。
    并显示到后一列。（这样人名和时间就成功分开了）
  3、检测时间是否超过了指定时间，如果是，在时间的后一列写上“迟到“
  早退同理
  核心代码如下：
  1、如在C1单元格中，输入=COUNTA(A:A)   '判断A列有多少行数据
  row=[c1]
  for i = 1 to  row    
       int_a= InStr(Worksheets("表格名")。
    Cells(i, 1) , " ")        '获得A列单元格数据，并判断第一个空格所在的位置
       变量A = Mid(Worksheets("表格名")。Cells(i, 1), Len(Worksheets("表格名")。Cells(i, 1)))      '从空格开始，截取到字符串末尾，存到变量A中
       Worksheets("表格名")。
    Cells(i, 2)=变量A     '把截取的打卡时间，放到B列中。
        dim 变量B as date 
       变量B=2011/12/30 10:00
       if Worksheets("表格名")。Cells(i, 2) > 变量B then     '判断时间是否超过了指定时间
        Worksheets("表格名")。
    Cells(i, 3)="迟到"
       end if 
  next i 
  你替换一下就能直接用了，绝对可以实现你想要的效果 如果觉的我答案有用，请点赞。

  全部
  

  爱***

  2014-03-03 13:31:54

  305 175 评论

  分享
  提交评论