,这个怎么通过条件格式实现单元格颜色的变化,应该看的很清楚的吧,如有问题,请跟帖,歇歇。
1条回答 默认 最新
- threenewbee 2023-04-29 23:38关注
Function FindStringInFirstColumn(str As String) As Integer Dim ws As Worksheet Dim lastRow As Integer Dim i As Integer Set ws = ThisWorkbook.Sheets("Sheet1") '修改为你的工作表名称 lastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row For i = 1 To lastRow If ws.Cells(i, 1).Value = str Then FindStringInFirstColumn = i Exit Function End If Next i FindStringInFirstColumn = -1 End Function Sub 宏1() ' ' 宏1 宏 ' ' For i = 10 To 20 For j = 1 To 10 If FindStringInFirstColumn(Cells(i, j).Value & "") > 0 Then Cells(FindStringInFirstColumn(Cells(i, j).Value & ""), j).Select With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 65535 .TintAndShade = 0 .PatternTintAndShade = 0 End With End If Next Next End Sub
运行效果
序列 2020 2021 2022 2023 A B C D E F G H A B E D C H F G
本回答被题主选为最佳回答 , 对您是否有帮助呢?解决 2无用
悬赏问题
- ¥200 csgo2的viewmatrix值是否还有别的获取方式
- ¥15 Stable Diffusion,用Ebsynth utility在视频选帧图重绘,第一步报错,蒙版和帧图没法生成,怎么处理啊
- ¥15 请把下列每一行代码完整地读懂并注释出来
- ¥15 pycharm运行main文件,显示没有conda环境
- ¥15 寻找公式识别开发,自动识别整页文档、图像公式的软件
- ¥15 为什么eclipse不能再下载了?
- ¥15 编辑cmake lists 明明写了project项目名,但是还是报错怎么回事
- ¥15 关于#计算机视觉#的问题:求一份高质量桥梁多病害数据集
- ¥15 特定网页无法访问,已排除网页问题
- ¥50 如何将脑的图像投影到颅骨上