VBA格式化程式碼案例7-8

【

分享成果，隨喜正能量】

人之所以痛苦，在於追求錯誤的東西。與其說是別人讓你痛苦，不如說自己的修養不夠。

。

正如我給VBA的定義：VBA是個人小型自動化處理的有效工具。利用好了，可以大大提高自己的勞動效率，而且可以提高資料的準確度。VBA系列教程共十套，我已經全部完成，技術工具系列在不斷推出。

對於學員而言，如果您是入門階段可以打包選擇7。1。3。9教程，第7是入門，第1是入門後的提高，第3字典是必備的VBA之精華，第9是實用的典型案例講解；如果您有了一定的VBA基礎可以根據自己的需要，進行教程的選擇及工具的利用，提供的程式檔案就如一座大型的程式碼庫支援著大家的工作；工具系列共分兩類：一類是容易些的YZ系列，一類是較難些的NZ系列，這些工具是大家學習VBA的好幫手，其中NZ系列工具還有專門版本資料，提供給已按部就班學習完我所有教程的學員。

VBA是面向物件程式設計的語言，博大精深，這裡我會分享些一些有用的VBA案例，和我的教程相互補充。有很多朋友諮詢英語和VBA的關係，為了大家更好的領會和掌握VBA中用到的一些英語，這些案例中，我會用英語和漢語同時釋出。今日的內容：VBA案例格式化程式碼示例7-8

第二章 VBA格式化程式碼示例

VBA

Formatting Codes Examples

7 突出顯示命名範圍Highlight Named Ranges

Sub nzHighlightRanges（） ‘突出顯示命名範圍

Dim RangeName As Name

Dim HighlightRange As Range

On Error Resume Next

For Each RangeName In ActiveWorkbook。Names

Set HighlightRange = RangeName。RefersToRange

HighlightRange。Interior。ColorIndex = 36

Next RangeName

End Sub

如果您不確定工作表中有多少個命名區域，則可以使用此程式碼突出顯示所有這些命名區域。

If you are not sure about how many named ranges you have in your worksheet then you can use this code to highlight all of them.

8 突出顯示列中的差異Highlight Difference in Columns

Sub nzcolumnDifference（） ’突出顯示列中的差異

Range（“H14：H20，I14：I20”）。Select

Selection。ColumnDifferences（ActiveCell）。Select

Selection。Style = ActiveWorkbook。Styles（1）

End Sub

使用此程式碼，您可以突出顯示兩列（相應單元格）之間的差異。

Using this code you can highlight the difference between two columns (corresponding cells).

9 突出顯示行中的差異Highlight Difference in Rows

Sub nzrowDifference（） ‘突出顯示行中的差異

Range（“H22：j22，H23：j23”）。Select

Selection。RowDifferences（ActiveCell）。Select

End Sub

透過使用此程式碼，您可以突出顯示兩行（相應單元格）之間的差異

And by using this code you can highlight difference between two row (corresponding cells).

本示例選定工作表 Sheet1 上第一行中與單元格 D1 內容不同的單元格。

This example selects the cells in row one on Sheet1 whose contents are different from those of cell D1.

Worksheets（“Sheet1”）。Activate

Set c1 = ActiveSheet。Rows（1）。RowDifferences（ _

comparison：=ActiveSheet。Range（“D1”））

c1。Select

本講內容參考程式檔案：

Chapter0

2

.

xlsm

【分享成果，隨喜正能量】

我20多年的VBA實踐經驗，全部濃縮在下面的各個教程中：

【

分享成果，隨喜正能量】

如果你不給自己煩惱，別人也永遠不可能給你煩惱。因為你自己的內心，你放不下。好好的管教你自己，不要管別人。不寬恕眾生，不原諒眾生，是苦了你自己。

。