高亮颜色标记单元格

1、文档从网络中收集，已重新整理排版.word版本可编辑,欢迎下载支持.高亮颜色标记单元格、行、歹小行列实例会计园1 .高亮颜色标记单元格VBA代码：Private Sub Worksheet_SelectionChange(ByVai Target As Excel. Range)On Error Resume NextCells. FormatConditions. DeleteWith Target. FormatConditions.Delete.Add xlExpression, , “TRUE".Item(l). Interior. Colorindex = Int (50

2、* RndO + 2)End WithEnd Sub2 .高亮颜色标记行Private Sub Worksheet_SelectionChange(ByVai Target As Excel. Range)On Error Resume NextCells. FormatConditions. DeleteWith Target. EntireRow. FormatConditions, Delete.Add xlExpression, , “TRUE”.Item(l). Interior. Colorindex = Int (50 * RndO + 2)End WithEnd Sub3 .高

3、亮颜色标记列Private Sub Worksheet_SelectionChange(ByVai Target As Excel. Range)On Error Resume NextCells. FormatConditions. DeleteWith Target. EntireColumn. FormatConditions.Delete.Add xlExpression, , “TRUE".Item(l). Interior. Colorindex = Int (50 * RndO + 2)End WithEnd Sub4 .高亮颜色编辑行列Private Sub Work

4、sheet_SelectionChange(ByVai Target As Excel. Range)On Error Resume NextCells. FormatConditions. DeleteiColor = Int(50 * RndO + 2)With Target. EntireRow. FormatConditions.Delete.Add xlExpression, , “TRUE”.Item(l). Interior. Colorindex = iColorEnd WithWith Target. EntireColumn. FormatConditions.Delete

5、. Add xlExpression, , "TRUE".Item(l). Interior. Colorindex = iColorEnd WithEnd Sub高亮颜色标记单元格、行、列、行列实例1 .高亮颜色标记单元格VBA代码：Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) On Error Resume NextCells. Formatconditions. DeleteWith Target.Formatconditions.Delete.Add xlExpression,

6、,rTRUEH.Item(l).Interior.ColorIndex = Int(50 * Rnd() + 2)End WithEnd Sub2 .高亮颜色标记行Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)On Error Resume NextCells.FormatConditions.DeleteWith Target.EntireRow.Formatconditions.Delete.Add xl Expression, ,rTRUE".Item(l).Interior.ColorInd

7、ex = Int(50 * Rnd() + 2)End WithEnd Sub3 .高亮颜色标记列Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) On Error Resume NextCells.FormatConditions.DeleteWith Target.EntireColumn.FormatConditions.Delete.Add xlExpression, z 'TRUE".Item( l).Interior.ColorIndex = Int(50 * Rnd() + 2)

8、End WithEnd Sub4 .高亮颜色编辑行列Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) On Error Resume NextCells.FormatConditions.DeleteiColor = Int(50 * Rnd() + 2)With Target.EntireRow.Formatconditions.Delete.Add xlExpression, "TRUE".Item( l).Interior.ColorIndex = iColorEnd WithWith

9、 Target.EntireColumn.Formatconditions.Delete.Add xl Expression, ,rTRUE".Item( l).Interior.ColorIndex = iColorEnd WithEnd SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)On Error Resume Next格变色.FonnatConditions.DcleteTarget.Name = "格变色”With 格变色LFbrmatConditions.Delete.A

10、dd xIExpression,，叮RUE”.Item( 1 ).Interior.ColorIndex = 35 .Item .Font. Colorindex = 3End WithEnd Sub这是我参考wenz写的，只使选中的单元格变色。Private Sub Worksheet_SelectionChange(ByVai Target As Excel. Range)If Target. Row > 3 And Target. Row < 99 And Target. Column < 23 ThenOn Error Resume NextRange (，/a3：r

11、99，/). Interior. Colorindex = 42行=Target. Row列=Target. ColumnCells(行,列). Interior. Colorindex = 45ElseRange (/za3:r99/z). Interior. Colorindex = 42End IfEnd SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range) Target.EntireRow.Interior.Color = RGB(255. 0, 0)'以红色为例End SubPrivate Sub Wo

12、rksheet_SelectionChange(ByVal Target As Range)Cells.Interior.Colorlndex = xlNonex = Target. Rowy = Target.ColumnUnion(Rows(x), Columns(y).Interior.Colorlndex = 3End SubPrivate Sub Worksheet_SelectionChange(ByVaI Target As Range)Cells.Interior.CoIorlndex = xlNonex = Target.Cells(I).Rowy = Target.Cells(Target.Count).RowFor i = x To yRows(i &am