VBA格式化代码案例78

　　【 分享成果，随喜正能量】人之所以痛苦，在于追求错误的东西。与其说是别人让你痛苦，不如说自己的修养不够…
　　正如我给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
　　本讲内容参考程序文件：Chapter02.xlsm
　　【分享成果，随喜正能量】
　　我20多年的VBA实践经验，全部浓缩在下面的各个教程中：
　　【 分享成果，随喜正能量】如果你不给自己烦恼，别人也永远不可能给你烦恼。因为你自己的内心，你放不下。好好的管教你自己，不要管别人。不宽恕众生，不原谅众生，是苦了你自己…