新增文章

文章标题 分类 C# 云星空 K3 BOS K3 功能 用友 Oracle python SQL MySql PHP HTML script windows Access 影视后期 财务 服务 生活 内容 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then aRow = Target.Row aValue = Target.Value If aValue = Null Then aValue = 1 End If If aValue > 3 Then Range("B" & aRow).Interior.ColorIndex = aValue '【更改】填充颜色 Else Range("B" & aRow).Interior.ColorIndex = xlColorIndexNone '无颜色 Range("C" & aRow).Value = aRow '【更改】单元格数值 End If End If End Sub 返回 保存