按照要求 填充颜色

乐器批发

按照 模拟结果 要求 添加颜色

wanao2008

先去除三个模拟区域的条件格式。
提供代码及教学视频，希望能够帮助到你！

1、代码如下：

1. Sub byWanao()
   
2.     Dim rng As Range, r As Range, i&, j&, cRow&
   
3.     cRow = 144
   
4.     For i = 1 To 3
   
5.         Sheet1.Range("M" & cRow & ":AY" & cRow + 14).Interior.ColorIndex = xlNone
   
6.    
   
7.         Set rng = Sheet1.Range("M" & cRow & ":AY" & cRow + 14)
   
8.         For Each r In rng
   
9.             If r.Value = "对" Then
   
10.                 If j = r.Column - i Then
    
11.                     r.Offset(, -i).Interior.ColorIndex = 10
    
12.                     r.Interior.ColorIndex = 10
    
13.                 End If
    
14.                 j = r.Column
    
15.             End If
    
16.         Next
    
17.         cRow = cRow + 16
    
18.     Next
    
19. End Sub

复制代码

如果对代码有疑问，可看下面对应的教学视频：
2、教学视频：
https://www.bilibili.com/video/BV1W94y1v7Zp/

wanao2008

乐器批发 发表于 2023-7-23 13:22
大哥，麻烦你帮我把 “模拟结果 2”与“模拟结果 3 ”再处理一下
不区分数字与中文，以“单元 ...

如果不区分数字与中文的话，得到的结果会有点乱，
代码如下：

1. Sub byWanao()
   
2.     Dim rng As Range, i&, j&, k&, cRow&
   
3.     cRow = 144
   
4.     For k = 1 To 3
   
5.         Sheet1.Range("M" & cRow & ":AY" & cRow + 14).Interior.ColorIndex = xlNone
   
6.         Set rng = Sheet1.Range("M" & cRow & ":AY" & cRow + 14)
   
7.         For i = 1 To rng.Rows.Count
   
8.             For j = 1 To rng.Columns.Count - k
   
9.                 If rng(i, j) = "对" And rng(i, j + k) = "对" Then
   
10.                     rng(i, j).Interior.ColorIndex = 10
    
11.                     rng(i, j + k).Interior.ColorIndex = 10
    
12.                 End If
    
13.             Next
    
14.         Next
    
15.         cRow = cRow + 16
    
16.     Next
    
17. End Sub

复制代码

乐器批发

wanao2008 发表于 2023-7-23 10:39
先去除三个模拟区域的条件格式。
提供代码及教学视频，希望能够帮助到你！

大哥，麻烦你帮我把 “模拟结果 2”与“模拟结果 3 ”再处理一下
不区分数字与中文，以“单元格”为准，是我没有表达清楚，辛苦你了

乐器批发

wanao2008 发表于 2023-7-23 15:43
如果不区分数字与中文的话，得到的结果会有点乱，
代码如下：

大哥，有劳你抽时间帮我看下这个如何修改代码呢？
同样的意思，“形态 1 ” 就是 模拟结果 1 《依次类推》


只是这个工作簿有 6份类似的数据，然后再结合6 个控件
每个形态 判断 50行  辛苦大哥了

wanao2008

乐器批发 发表于 2023-7-23 13:22
大哥，麻烦你帮我把 “模拟结果 2”与“模拟结果 3 ”再处理一下
不区分数字与中文，以“单元 ...

不是特别的懂，是不是“对”字的区域只要用过，就不再使用的意思？
比如间隔一个数字的情况如下：
对        28        对        3        对
这3个对字虽然都是间隔一个数字，但只有前两个对字算一组，反面的对字无用？
或者你抓个图说明一下。

wanao2008

看一下结果是否正确？


数据加色.rar (1.13 MB, 下载次数: 1)

2023-7-24 20:32 上传

点击文件名下载附件

乐器批发

wanao2008 发表于 2023-7-24 19:42
不是特别的懂，是不是“对”字的区域只要用过，就不再使用的意思？
比如间隔一个数字的情况如下：
对        2 ...

我先用天剑格式做一下吧，有时间再VBA再说了，辛苦大哥了