宏编程考勤录入自动保存

xuankun2013

请教：我做的：2015年9月份“考勤中，将已录入完毕的考勤记录，从“考勤录入”中用公式显示的数值，保存到“数据汇总”表对应单元格中自动转换为数值，而不是公式，确发现“数据汇总”表中，M列和N列的为空，不显示值，对应的“考勤录入”表中，M列和N列的的公式分别为“=--TEXT(R9-$D$3,"h:mm")”和=IF(ISERROR(IF(MINUTE(M4)<20,HOUR(M4),IF(MINUTE(M4)<50,HOUR(M4)+0.5,HOUR(M4)+1))),"",IF(MINUTE(M4)<20,HOUR(M4),IF(MINUTE(M4)<50,HOUR(M4)+0.5,HOUR(M4)+1)))，我刚开始学习宏编程，所以不知道宏编程哪里出错了。以下编程也是引用了别人的，呵呵


Sub 考勤录入()
On Error GoTo 100
Dim es As Range, a%
If Sheet17.[u:u].Find([f3]) = [f3] Then
MsgBox "亲，已经保存过啦！"
Else
100:
Set es = Cells.Find("*", , xlFormulas, , , xlPrevious)
  a = Application.CountA(Sheet17.[a:a])
  If es.Row = 3 Then MsgBox "没有填写内容": End
  Range([a4], es).Copy Sheet17.Cells(a + 1, 1)
  Sheet17.Cells(a + 1, "u").Resize(es.Row - 3) = [f3]
  Sheet17.Range("a2:t1000") = Sheet17.Range("a2:t1000").Value
  MsgBox "保存成功!"
  End If
End Sub

xuankun2013

成功 非常感谢{:soso_e100:}