Question

EXCEL VBA 问题？

Answer 1

代码在下面这个地方写就可以，但是有了这个功能后，保存会卡得很惨，特殊是数据较大的时候，因为检测单元格的格式只有一个一个的扫描，这样非常耗时。

写好代码之后，保存时执行效果如下：

——跳到有填充颜色的单元格，提示不允许保存，然后返回。

代码位置如下图，千万注意位置的重要性：

代码文本为：

Option Explicit

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

    Dim st As Worksheet, rng As Range

    For Each st In Sheets

        If st.Name = "电1" Or st.Name = "电2" Or st.Name = "电3" Then

            For Each rng In st.UsedRange.Cells

                If rng.Interior.Color <> 16777215 Then

                    Application.Goto rng

                    MsgBox "这个单元格有填充颜色，不允许保存"

                    Cancel = True

                    Exit Sub

                End If

            Next rng

        End If

    Next st

End Sub

追问

太感谢了，我测试一下。谢谢！

Answer 2

我的项目中我做过，开价50元。