[已解决]相同数标注颜色

nhrenli

请老师在图表中3位数合，等于J1,K1,L1,时，标注不同颜色

最佳答案

月排行榜 / 总排行榜

爱疯

2016-11-15 17:09

Sub test()
    Dim A, i, j, k, t
    Cells.Interior.ColorIndex = 0

    '1）填充样式
    For k = 10 To 12
        Cells(2, k).Interior.ColorIndex = Cells(2, k) + 30    '+30只为效果好看
    Next k

    '2）填充数据
    A = [a1].CurrentRegion
    For i = 1 To UBound(A)
        For j = 1 To UBound(A, 2)
            t = he(A(i, j))
            For k = 10 To 12
                If Cells(2, k) = t Then
                    Cells(i, j).Interior.ColorIndex = t + 30: Exit For
                End If
            Next k
        Next j
    Next i
End Sub

'功能：求合
Function he(x) As Integer
    Dim i, y
    For i = 2 To 0 Step -1
        y = x \ 10 ^ i
        x = x - y * 10 ^ i
        he = he + y
    Next i
    he = Right(he, 1)
End Function

(, 下载次数: 2)

上传

点击文件名下载附件

说明一下，没按要求的颜色填充。
只要能区分就可以，是么？

跳转到最佳答案楼层

爱疯

没看懂，E4为什么是黄色

nhrenli

E4 =737 合=7，与i1相同，“”表格中数值合等于“i1”用黄色标注

海礁

和值尾数，又是彩票，很简单，没兴趣。

苏子龙

3种都没看懂的飘过

爱疯

E4 =737 ，为什么是 合=7 ？

不懂彩票术语。。。。

海礁

爱疯 发表于 2016-11-15 10:37
E4 =737 ，为什么是 合=7 ？

不懂彩票术语。。。。

7+3+7=17，和的尾数是7

爱疯

用VBA可以做可以吗

海礁

条件格式也可以啊

nhrenli

都可以呀谢了