优化代码

divineson

请各位老师帮忙看看，该段代码还有没有优化的空间，附件只有一个工作表，在该表运行是没有任何问题的，但我的原文件子表较多，且大部分都有代码，故该表运行起来就较慢了，差不多十秒左右才显示齐全，麻烦老师帮忙看看。

另外，还想请老师帮忙添加两个小功能：
1、每天A列检测没有当天日期时自动生成两条当天的日期记录，如已有一条记录则生成一条即可
2、从C2单元格开始，录入数据后(即非空），B3=C2的数据，后续也是，在C列非空情况下，B4=C3,B5=C4,以此类推

如优化代码如下：

AutoFilterMode = False
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each c In Target.Cells
With c
If .Column = 3 And c.Value <> Empty Then
Application.EnableEvents = False
.Offset(0, 1) = "是"
.Offset(0, 2) = "无"
Application.EnableEvents = True
ElseIf .Column = 3 Then
Application.EnableEvents = False
.Offset(0, -2).ClearContents
.Offset(0, 1).ClearContents
.Offset(0, 2).ClearContents
Application.EnableEvents = True
End If
End With
Next

z865593849

没啥问题

xlj310

优化成这样，可读性不一定有你原来的强。 看你自己的理解能力和编程习惯的。

divineson

xlj310 发表于 2024-12-9 09:29
优化成这样，可读性不一定有你原来的强。 看你自己的理解能力和编程习惯的。

谢谢老师，我试一试，万分感谢！

divineson

还想请老师帮忙添加两个小功能：
1、每天A列检测没有当天日期时自动生成两条当天的日期记录，如已有一条记录则生成一条，如有两条记录则无需添加
2、从C2单元格开始，录入数据后(即非空），B3=C2的数据，后续也是，在C列非空情况下，B4=C3,B5=C4,以此类推