30个有用的Excel VBA代码（16~20）

原创 浮云Excel 2019-04-02 11:52:00

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

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

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

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

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

19.将所选单元格的字母大小写改为大写

虽然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将文本大小写设为大写。

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）