Excel 在 运行 宏之后停止响应
Excel stops responding after running macro
我创建了一个简单的代码来突出显示某些列中的拼写错误，但它会导致 excel 每次我 运行 时都停止响应。虽然代码本身工作正常，但在它再次开始 运行ning 之前必须等待两分钟是一个障碍。
有什么办法可以解决这个问题吗？
Option Explicit
Sub Check_Cell()
Dim wd As Range
Dim chkCell As Range
Set chkCell = ActiveSheet.Range("F:H:I:J")
For Each wd In chkCell
If Not Application.CheckSpelling(word:=wd.Text) Then
wd.Interior.Color = vbGreen
End If
Next wd
End Sub
这可能有帮助。替换：
Set chkCell = ActiveSheet.Range("F:H:I:J")
与：
Set chkCell = Intersect(ActiveSheet.Range("F:H:I:J"),ActiveSheet.Usedrange)
我创建了一个简单的代码来突出显示某些列中的拼写错误，但它会导致 excel 每次我 运行 时都停止响应。虽然代码本身工作正常，但在它再次开始 运行ning 之前必须等待两分钟是一个障碍。
有什么办法可以解决这个问题吗？
Option Explicit
Sub Check_Cell()
Dim wd As Range
Dim chkCell As Range
Set chkCell = ActiveSheet.Range("F:H:I:J")
For Each wd In chkCell
If Not Application.CheckSpelling(word:=wd.Text) Then
wd.Interior.Color = vbGreen
End If
Next wd
End Sub
这可能有帮助。替换：
Set chkCell = ActiveSheet.Range("F:H:I:J")
与：
Set chkCell = Intersect(ActiveSheet.Range("F:H:I:J"),ActiveSheet.Usedrange)