excel vba经典代码大全（30个有用的ExcelVBA代码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）。

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 If Next cl End Sub

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

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

Sub RefreshAllPivotTables() Dim PT As PivotTable For Each PT In ActiveSheet.PivotTables PT.RefreshTable Next PT End 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 If Next Rng End Sub

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

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

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）