突出顯示可選行可以極大地提高數據的可讀性。
下面是一個代碼,它将立即突出顯示所選内容中的可選行。
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)
私信 SQL 可以獲取SQL代碼的Excel文件私信 視頻 可以獲取54集VBA入門視頻私信 VBA或 vba 可以獲取文章中含VBA代碼的Excel文件,更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!