[已解决]如果在有底色的单元格输入完成，离开后，去掉底色，不知这样写代码，谢谢

一成不变变

如果在有底色的单元格输入完成，离开后，去掉底色，不知这样写代码，谢谢



Private Sub Worksheet_Change(ByVal Target As Range)



End Sub

最佳答案

月排行榜 / 总排行榜

yorkchenshunan

2015-12-7 08:54

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Count = 1 Then
   
3.     If Target.Interior.ColorIndex > 0 Then
   
4.         Target.Interior.ColorIndex = -4142
   
5.     End If
   
6. End If
   
7. End Sub

复制代码

跳转到最佳答案楼层

yorkchenshunan

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Count = 1 Then
   
3.     If Target.Interior.ColorIndex > 0 Then
   
4.         Target.Interior.ColorIndex = -4142
   
5.     End If
   
6. End If
   
7. End Sub

复制代码