16.突出顯示所選內(nèi)容中的可選行突出顯示可選行可以極大地提高數(shù)據(jù)的可讀性。 下面是一個(gè)代碼，它將立即突出顯示所選內(nèi)容中的可選行。 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.突出顯示拼錯(cuò)單詞的單元格Excel沒(méi)有像在Word或PowerPoint中那樣進(jìn)行拼寫(xiě)檢查。雖然可以按F7鍵進(jìn)行拼寫(xiě)檢查，但當(dāng)出現(xiàn)拼寫(xiě)錯(cuò)誤時(shí)，沒(méi)有視覺(jué)提示。 使用此代碼可以立即突出顯示其中有拼寫(xiě)錯(cuò)誤的所有單元格。 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 請(qǐng)注意，突出顯示的單元格包含Excel認(rèn)為是拼寫(xiě)錯(cuò)誤的文本。當(dāng)然在許多情況下，它也會(huì)其它各種錯(cuò)誤。 18.刷新工作簿中的所有透視表如果工作簿中有多個(gè)透視表，則可以使用此代碼一次刷新所有這些透視表。 Sub RefreshAllPivotTables() Dim PT As PivotTable For Each PT In ActiveSheet.PivotTables PT.RefreshTable Next PTEnd Sub 19.將所選單元格的字母大小寫(xiě)改為大寫(xiě)雖然Excel有更改文本字母大小寫(xiě)的公式，但它使您可以在另一組單元格中進(jìn)行更改。 使用此代碼可以立即更改所選文本中文本的字母大小寫(xiě)。 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將文本大小寫(xiě)設(shè)為大寫(xiě)。 20.突出顯示有批注的單元格使用下面的代碼突出顯示其中包含注釋的所有單元格。 Sub HighlightCellsWithComments() ActiveSheet.Cells.SpecialCells(xlCellTypeComments).Interior.Color = vbBlue End Sub 在本例中，使用vblue為單元格賦予藍(lán)色。如果你想的話，你可以把這個(gè)換成其他顏色。 私信 SQL 可以獲取SQL代碼的Excel文件私信 視頻 可以獲取54集VBA入門(mén)視頻私信 VBA或 vba 可以獲取文章中含VBA代碼的Excel文件 |
|
|
