16.突出显示所选内容中的可选行

突出显示可选行可以极大地提高数据的可读性。

下面是一个代码，它将立即突出显示所选内容中的可选行。

Sub HighlightAlternateRows()Dim Myrange As Range Dim Myrow As Range Set Myrange = Selection For Each Myrow In Myrange.Rows  If Myrow.Row Mod 2 = 1 Then Myrow.Interior.Color = vbCyan  End If Next Myrow End Sub

注意，代码中指定了颜色为vbCyan（也可以修改成：vbRed, vbGreen, vbBlue）。

17.突出显示拼错单词的单元格

Excel没有像在Word或PowerPoint中那样进行拼写检查。虽然可以按F7键进行拼写检查，但当出现拼写错误时，没有视觉提示。

使用此代码可以立即突出显示其中有拼写错误的所有单元格。

Sub HighlightMisspelledCells() Dim cl As Range For Each cl In ActiveSheet.UsedRange  If Not Application.CheckSpelling(word:=cl.Text) Then  cl.Interior.Color = vbRed  End IfNext cl End Sub

请注意，突出显示的单元格包含Excel认为是拼写错误的文本。当然在许多情况下，它也会其它各种错误。

18.刷新工作簿中的所有透视表

如果工作簿中有多个透视表，则可以使用此代码一次刷新所有这些透视表。

Sub RefreshAllPivotTables() Dim PT As PivotTable  For Each PT In ActiveSheet.PivotTables PT.RefreshTable  Next PTEnd Sub

虽然Excel有更改文本字母大小写的公式，但它使您可以在另一组单元格中进行更改。

使用此代码可以立即更改所选文本中文本的字母大小写。

Sub ChangeCase() Dim Rng As Range For Each Rng In Selection.Cells  If Rng.HasFormula = False Then  Rng.Value = UCase(Rng.Value)  End IfNext Rng End Sub

注意，在本例中，使用了UCase将文本大小写设为大写。

20.突出显示有批注的单元格

使用下面的代码突出显示其中包含注释的所有单元格。

Sub HighlightCellsWithComments() ActiveSheet.Cells.SpecialCells(xlCellTypeComments).Interior.Color = vbBlue End Sub

在本例中，使用vblue为单元格赋予蓝色。如果你想的话，你可以把这个换成其他颜色。

30个有用的Excel VBA代码（11~15）

30个有用的Excel VBA代码（6~10）

30个有用的Excel VBA代码（1~5）

私信 SQL 可以获取SQL代码的Excel文件私信 视频 可以获取54集VBA入门视频私信 VBA或 vba 可以获取文章中含VBA代码的Excel文件