Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 1050|回复: 0

我想 在这段代码再加上以日期为主的代码 并加上查询和打印的代码谢谢

[复制链接]
发表于 2021-10-19 21:36 | 显示全部楼层 |阅读模式


Sub 保存()
  Sheets("考勤表").Select
    x = [b65536].End(3).Row
    y = Sheets("考勤记录").[b65536].End(3).Row + 1
    arr = Range("B7:AH" & x).Value
    Sheets("考勤记录").Range("A" & y).Resize(UBound(arr), UBound(arr, 2)) = arr
    With Sheets("考勤记录").Range("A" & y).Resize(UBound(arr), UBound(arr, 2))
    .Borders.LineStyle = xlContinuous
    .Font.Bold = True
    End With
     MsgBox "保存成功"
End Sub
我想在这段代码再加个以日期保存并再帮我做个查询和打印的代码谢谢
以e4单元格日期为主


列表框 (3).zip

34.45 KB, 下载次数: 1

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 14:04 , Processed in 0.361808 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表