求助日期小于前面的日期，整行字体变红加删除线或者无法输入

MrXU

swl4561255

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Column <> 3 Then Exit Sub
   
3. If Target.Value < Target.Offset(-1, 0).Value Then
   
4.   Target.EntireRow.Font.ColorIndex = 3
   
5.   Target.EntireRow.Font.Strikethrough = True
   
6. Else
   
7.   Target.EntireRow.Font.ColorIndex = xlNull
   
8.   Target.EntireRow.Font.Strikethrough = False
   
9. End If
   
10. End Sub
    

复制代码

^星^

工作簿1.zip (7.25 KB, 下载次数: 3)

2024-3-2 11:16 上传

点击文件名下载附件

世界客都

这个问题，简简单单地用条件格式即可轻松解决

如图所示

沈默00

划线可以用条件格式，如果设置不能输入就试下VBA

chenguoting

用条件格式，见附件