某一行的单元格的值含字母B则整行颜色颜色变成黄色

2017神经兮兮 · 发表于 2017-9-15 18:31

如下图，第二列的单元格中，数值包含B，则整行颜色自动变成黄色，求大神帮忙。

idnoidno · 发表于 2017-9-15 22:53

請把檔案丟上來參考，謝謝

一成不变变 · 发表于 2017-9-16 08:10

Public Sub 判断()
   Z = Columns("B").Find("*", , , , , xlPrevious).Row
   For j = 1 To Z
      t = Right(Range("B" & j), 1)
            If t = "B" Then
               Range("A" & j).Resize(1, 5).Interior.Color = 65535
            End If
   Next
End Sub

2017神经兮兮 · 发表于 2017-9-16 11:17

idnoidno 发表于 2017-9-15 22:53
請把檔案丟上來參考，謝謝

我刚来，不懂怎么上传EXCEL附件呢

2017神经兮兮 · 发表于 2017-9-16 11:22

一成不变变发表于 2017-9-16 08:10
Public Sub 判断()
Z = Columns("B").Find("*", , , , , xlPrevious).Row
For j = 1 To Z ...

谢谢大神。我试了下，第1到第5列的颜色变黄色了，但其他列的值没有变。怎么能实现这一整行的颜色都变成黄色的呢？
另外，可不可以实现，在第2列只要输入的值含B就能不需要什么操作就自动整行变黄色。
QQ图片20170916112210.png

file:///C:\Users\Administrator\AppData\Roaming\Tencent\Users\365077549\QQ\WinTemp\RichOle\NM7%4(FIC]W6F2OR6SA1LXV.png

file:///C:\Users\Administrator\AppData\Roaming\Tencent\Users\365077549\QQ\WinTemp\RichOle\NM7%4(FIC]W6F2OR6SA1LXV.png

idnoidno · 发表于 2017-9-16 11:44

檔案壓縮，使用迴紋針小圖示上傳到論壇

idnoidno · 发表于 2017-9-16 11:45

本帖最后由 idnoidno 于 2017-9-16 12:44 编辑

rows(j).Interior.Color = 65535
改成這一句試試看

一成不变变 · 发表于 2017-9-16 13:21

Range("A" & j).Resize(1, 5).Interior.Color = 65535
把5改一下，想几列变，就改几

苏子龙 · 发表于 2017-9-17 14:17

条件格式=COUNTIF($A1:$E1,"*B*")

Lydia_Li · 发表于 2017-9-18 10:21

可以使用条件格式

		自动登录	找回密码
密码			注册

某一行的单元格的值含字母B则整行颜色颜色变成黄色

评分