有没有哪位高人愿意花点时间帮我一下啊？（可小偿）

zpy2

zpy2 发表于 2024-6-20 21:47
你这个小偿还不够诱人- ()，可能还是需求修改一下比较经济实惠

With Worksheets("录入表")                 r = .Cells(.Rows.Count, 1).End(xlUp)
.Row                                        .Range("a3:al" & r).Borders.LineStyle = 0                                       With .Range("a3:al" & r - 1)              .Borders.LineStyle = xlContinuous       .BorderAround LineStyle:=xlContinuous, Weight:=xlMedium                       End With

都是这种类似的，全是硬编码。

zpy2

zpy2 发表于 2024-6-20 21:47
你这个小偿还不够诱人- ()，可能还是需求修改一下比较经济实惠

目前我的想法就是录入表
你这个录入表也是上级要求你这样子录入的吗？


、考勤记录表、月考勤统计表即可
你最后需要的是那张表？

考勤记录 非要 这样？
这种不行吗？
https://club.excelhome.net/forum.php?mod=viewthread&tid=1642435&fromguid=hot&extra=&mobile&_dsign=61ed34c5


，最多再加一个“基本资料”表用于说明和必要的套用

？？
感觉很多人没明白具体你啥要求吧。

你这个录入表 已经写了不少代码了 ，你如果坚持这样，改改参数，再调试调试吧。

lioner_yjs

zpy2 发表于 2024-6-20 22:00
With Worksheets("录入表")                 r = .Cells(.Rows.Count, 1).End(xlUp)
.Row               ...

是的，这是好还是不好？

zpy2

lioner_yjs 发表于 2024-6-20 23:58
是的，这是好还是不好？

表单排位                              
.Select                                 
'.[C2] = nYear & "年" & nMonth & "月"
'这里改一下
.[AJ2] = nYear & "年" & nMonth & "月"


这个硬编码只是感觉，就是逻辑处理和一些常量最好能分类管理，以后代码便于修改维护。




Comment.Delete
             On Error GoTo 0
             '以上部分有代码，以下需增加）
             if brr(2) like "[a-z]" then
if brr(2)="x" then

brr(2)="休假"                           
elseif

elseif brr(2)=

end if                                 
end if
             .AddComment (brr(2))
             .Font.ColorIndex = 1
             .Interior.ColorIndex = xlNone
           End With

一指禅62

lioner_yjs 发表于 2024-6-20 11:46
老师，你说得和在理，目前我的想法就是录入表、考勤记录表、月考勤统计表即可，最多再加一个“基本资料” ...

lioner_yjs

一指禅62 发表于 2024-6-23 13:09

确实，搞错了，是当月