[求助] 如何对符合的行分别进行设置底色和字体颜色

xxinganling

请教如何实现：
1、将水果中荔枝、杧果、柑橘、葡萄、西瓜、梨不合格的行底色置为黄色；同时将该行的D列值设置为“A”
2、将蔬菜中茄子、西红柿、辣椒、萝卜、芹菜不合格的行字体置为红色；同时将该行的D列值设置为“A”
谢谢！

饮冰e士

Option Explicit

Sub test()
Dim Rn&, Rx&, Str1$, Str2$
  Str1 = "荔枝、杧果、柑橘、葡萄、西瓜、梨"
  Str2 = "茄子、西红柿、辣椒、萝卜、芹菜"
  With Sheet1
    .Cells.Interior.Color = -4142
    .Cells.Font.Color = vbBlack
    Rn = .Cells(Rows.Count, 1).End(3).Row
    For Rx = 2 To Rn
      If .Cells(Rx, 1) = "不合格" Then
        If InStr(Str1, .Cells(Rx, 2).Value) Then
           .Rows(Rx).Interior.Color = vbYellow
           .Cells(Rx, 4) = "A"
        End If
        If InStr(Str2, .Cells(Rx, 3).Value) Then
          .Rows(Rx).Font.Color = vbRed
          .Cells(Rx, 4) = "A"
        End If
      End If
    Next Rx
  End With
End Sub

xxinganling

谢谢饮冰e士！
学习中...

sunya_0529

1. function 标示不合格产品() {
   
2.     const fruits = '荔枝、杧果、柑橘、葡萄、西瓜、梨'.split('、');
   
3.     const vegetales = '茄子、西红柿、辣椒、萝卜、芹菜'.split('、');
   
4.     with (Range('A1').CurrentRegion) {
   
5.         Interior.Patter = 0;
   
6.         Font.ColorIndex = 1;
   
7.         Columns(4).Clear();
   
8.         [...Columns(1).Cells].forEach(rng => {
   
9.             if (rng.Value2 === '不合格') {
   
10.                 if (fruits.includes(rng.Offset(0, 1).Value2)) {
    
11.                     Rows(rng.Row).Interior.ColorIndex = 6;
    
12.                     rng.Offset(0, 3).Value2 = 'A';
    
13.                 }
    
14.                 if (vegetales.includes(rng.Offset(0, 2).Value2)) {
    
15.                     Rows(rng.Row).Font.ColorIndex = 3;
    
16.                     rng.Offset(0, 3).Value2 = 'A';
    
17.                 }
    
18.             }
    
19.         });
    
20.     }
    
21. }

复制代码

翁知江安

你的结果和设定的规则好像有点矛盾。