设置整行底色-如何根据不规则相邻单元格内容

迎着风

[size=0.83em]需求示例.jpg (49.82 KB, 下载次数: 0)
下载附件  [url=]保存到相册[/url]

[color=rgb(153, 153, 153) !important]2018-3-28 11:13 上传

需求示例.zip (6.28 KB, 下载次数: 0)
实际应用中订单明细会按照订单号成组显示，但底色都相同（无底色）
需求：
为了方便显示区分不同订单号的明细
需要判断相邻订单号，相同订单号的底色相同，订单号不同，即改变底色，
但只需在无底色和灰底色之间交替切换即可。

盼望以公式 或者 宏的方式（自动）实现功能。



万谢！

lsdongjh

1. Sub Test()
   
2.     Dim arr As Variant, lngRow As Long
   
3.     Dim intColorIndex As Variant
   
4.     Dim intCurColor As Integer
   
5.    
   
6.     intColorIndex = Array(-4142, 15)
   
7.    
   
8.     lngRow = Sheet1.Range("C" & Rows.Count).End(xlUp).Row
   
9.     arr = Sheet1.Range("C6:C" & lngRow)
   
10.   
    
11.     For lngRow = LBound(arr) + 1 To UBound(arr)
    
12.         If arr(lngRow, 1) <> arr(lngRow - 1, 1) Then
    
13.             intCurColor = (intCurColor + 1) Mod 2
    
14.         End If
    
15.         Sheet1.Rows(lngRow + 5).Interior.ColorIndex = intColorIndex(intCurColor)
    
16.     Next
    
17. End Sub
    

复制代码

迎着风

太棒了，我把这段代码放到 worksheet里 change事件下，马上生效 ！ 非常感谢！

你真棒 ！ 我替你叉会腰 ^_^

迎着风

不过大侠，我换了一个表格，都已B列为参照，好像判断有点乱了，可有改进方案 ？  万谢！



组合查询.zip (21.58 KB, 下载次数: 2)

2018-3-28 14:13 上传

点击文件名下载附件

lsdongjh

迎着风 发表于 2018-3-28 14:16
不过大侠，我换了一个表格，都已B列为参照，好像判断有点乱了，可有改进方案 ？  万谢！

迎着风

大侠的代码清奇莫测，怎奈小弟实在愚钝，

还请大侠赐教，如何计算行号来匹配不同的表格场景 ？


跪谢 ！