人老了，无聊得很，做了一个考勤表，新增插入员工批注图片

w8899

dbg111222 发表于 2018-12-14 09:22
能增加统计功能吗？顺便问一下姓名链接的照片如何删除，谢谢！

不要图片文件夹就行了，统计功能可以加上，但是每个行业不一样？怎么加？这个就要定制了。

w8899

YZC51 发表于 2018-12-14 06:01
请参考

没有达到要求，A:AL

w8899

w8899 发表于 2018-12-14 09:41
没有达到要求，A:AL

AK AL这两列不要

w8899

w8899 发表于 2018-12-14 10:49
AK AL这两列不要

对了。我列数搞错了。是A:ai  谢谢

w8899

  导出路径修改为这样更好      ph = ThisWorkbook.Path & "\" & Format(Now, "YYYY年MM月考勤表")

YZC51

w8899 发表于 2018-12-14 12:29
导出路径修改为这样更好      ph = ThisWorkbook.Path & "\" & Format(Now, "YYYY年MM月考勤表")

修改如下
Sub 导出()
    Set Rng = ActiveSheet.[A:AI]
    Set Rq = ActiveSheet.[e4]
    ph = ThisWorkbook.Path & "\" & Format(Rq, "YYYY年MM月考勤表")
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set wb = Workbooks.Add
    Rng.Copy Range("A1")
    Sheets("Sheet1").[B5:B50].ClearComments
    Sheets("Sheet2").Delete
    wb.SaveAs Filename:=ph
    wb.Close
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

YZC51

w8899 发表于 2018-12-14 11:11
对了。我列数搞错了。是A:ai  谢谢

不客气！能用就好！

dbg111222

w8899 发表于 2018-12-14 09:36
不要图片文件夹就行了，统计功能可以加上，但是每个行业不一样？怎么加？这个就要定制了。

最下面的说明我想修改一下，不知怎样才能编辑。统计功能只是想要每个人的出勤休假次数统计，能帮忙加一下吗，谢谢！

w8899

经过几天坛友的帮助，考勤表终于比较完美了。。经过多次考虑，保留了窗体输入，为了美观加入了调出工具。使页面看起非常清爽。加入了论坛链接，导出文件以当月命名。在此感谢大家。特别感谢YZC51坛友。这次将考勤表打包成以软件安装 的模式进行安装，安装时请更改安装路径到D盘（切记）。压缩文件内包含一个不带上下午的和一个带上下午的。当右键不能用时，包内有一个批处理文件。

w8899

YZC51 发表于 2018-12-14 06:01
请参考

才打开考勤表，心血来潮，检查了一下公式，图片上那个2018要修改为AD1.看看就要进入2019年了，公式不能变换怎么行呢！