比较不同的单元格的值,设置不同的颜色

灰太狼 2022-09-22 01:15 172阅读 0赞

Sub SetDifferentColor()
    '
    ' 比较不同的单元格的值,设置不同的颜色
    '
    
       Dim colors  As Variant
       
       colors = Array(21, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20)
      
        Dim colname As String
        
        Dim lastindex As Integer
       
        Dim i As Integer
        Dim target As String
        Dim model As String
        Dim colorindex As Integer
        
        colname = InputBox("请输入需要比较的列")
        If Len(colname) = 0 Then
            Exit Sub
        End If
        
        lastindex = Range(colname & 65536).End(xlUp).Row
        For i = lastindex To 1 Step -1
            model = Range(colname & i).Value
            colorindex = Range(colname & i).Interior.colorindex
            If colorindex = xlNone Then
                For ii = i - 1 To 1 Step -1
                    target = Range(colname & ii).Value
                    If model = target Then
                        Range(colname & i).Interior.colorindex = colors(i Mod 20)
                        Range(colname & ii).Interior.colorindex = colors(i Mod 20)
                    End If
                Next
            End If
    
        Next
        
    End Sub

发表评论取消回复

表情：

评论列表（有 0 条评论，172人围观）

还没有评论，来说两句吧...

相关阅读

相关 poi 一个单元格不同字体

try { HSSFWorkbook workbook = new HSSFWorkbook(); HSSFSheet

Dear 丶/ 2022年11月29日 13:27/ 0 赞/ 220 阅读

相关 poi设置单元格背景颜色

Java使用poi可以很方便地导出Excel表格文件，同时可以设置各种样式，例如背景颜色。下面给出两个例子设置背景颜色，一个使用自带的颜色设置背景颜色，一个使用自定义颜色设置。

r囧r小猫/ 2022年10月09日 12:14/ 0 赞/ 318 阅读

相关比较不同的单元格的值,设置不同的颜色

Sub SetDifferentColor() ' ' 比较不同的单元格的值,设置不同的颜色 ' Dim colors

灰太狼/ 2022年09月22日 01:15/ 0 赞/ 173 阅读

相关 POI 设置单元格背景颜色

[POI 设置单元格背景颜色][POI] 转载自http://xiaohewoai.iteye.com/blog/1300817 博客分类： [apach

￡神魔★判官ぃ/ 2022年08月12日 13:29/ 0 赞/ 316 阅读

相关不同颜色不同饱和度获取

地址：https://www.materialpalette.com/colors 点击颜色有\的编号》有19个颜色，14个色差》双击颜色，色卡的编号自动复制

小鱼儿/ 2022年06月05日 04:46/ 0 赞/ 277 阅读

相关 Echarts-图表根据值的不同展示成不同的颜色

series : \[ \{ name:'直接访问', type:'bar',

红太狼/ 2022年05月27日 00:15/ 0 赞/ 249 阅读

相关不同情况下“零值”比较的写法

一、整形变量与“零值”的比较自然，if语句中用0和1（非0）就可以进行条件语句的判断。二、bool变量与“零值”的比较 if()从句中bool变量与零值比较的写法每个

た入场券/ 2022年04月10日 06:57/ 0 赞/ 174 阅读

相关 poi设置一个单元格中文字不同的样式

XSSFCell cell = ExcelCellUtil.getCell(sheet,cellStr); String title = cell.ge

妖狐艹你老母/ 2022年01月31日 14:09/ 0 赞/ 626 阅读

相关单元格颜色渐变的GridView

代码如下: <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.or

我就是我/ 2021年11月11日 23:30/ 0 赞/ 805 阅读

相关 bootstrap-table.js如何根据单元格数据不同显示不同的字体的颜色

在bootstrap-table.js里面列属性 formatter就是用来格式化单元格的，其默认值是undefined 类型是function，function(value,

心已赠人/ 2021年09月12日 02:38/ 0 赞/ 498 阅读