Excel检查单词拼写是否正确详细VBA代码: Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim rg As RangeFor Each rg In Target If Not Application.CheckSpelling(StrConv(rg.Value, vbProperCase)) Then rg.Interior.ColorIndex = 3 Else rg.Interior.ColorIndex = 6 rg.Font.ColorIndex = 5 End IfNext rgEnd Sub