[已解决]有颜色标记

zhufuan

代码运行后提示第几行第几列没有填写内容，我要在此处增加红色标记，更容易让使用者找到

最佳答案

月排行榜 / 总排行榜

哥儿-

2022-9-1 11:25

if .Cells(i, j).Value = "" Then  MsgBox "第 " & i & " 行,第 " & j & " 列内容未填写，不能保存！": GoTo 20
工作薄事件中这段代码改成：
            If Cells(i, j) = "" Then
                Cells(i, j).Interior.ColorIndex = 3
                MsgBox "第" & i & "行" & "," & "第" & j & "列内容未填写,不能保存！"
                GoTo 20
              Else
              Cells(i, j).Interior.ColorIndex = Cells(1, j).Interior.ColorIndex
            End If

跳转到最佳答案楼层

哥儿-

if .Cells(i, j).Value = "" Then  MsgBox "第 " & i & " 行,第 " & j & " 列内容未填写，不能保存！": GoTo 20
工作薄事件中这段代码改成：
            If Cells(i, j) = "" Then
                Cells(i, j).Interior.ColorIndex = 3
                MsgBox "第" & i & "行" & "," & "第" & j & "列内容未填写,不能保存！"
                GoTo 20
              Else
              Cells(i, j).Interior.ColorIndex = Cells(1, j).Interior.ColorIndex
            End If