如何根据重复的cloumn值使color excel列

时间:2015-11-30 10:01:13

标签: excel vba excel-vba colors conditional-formatting

我有一个名为order#的Excel列,其中包含重复值的订单号,因为每个订单都有一个或多个商品,因此如果订单有3个商品,订单#将重复三次,依此类推。< / p>

我想使用两种颜色来区分不同的顺序,所以如果第一个订单#是“1”,它将是红色,第二个“2”将是黄色,第三个“3”将再次变为红色,并且第四个“4”将是黄色,依此类推。

+----------+--------+
|  order#  |  item# |
+----------+--------+
|    1     |   11   |
|    2     |   12   |
|    2     |   22   |
+----------+--------+

4 个答案:

答案 0 :(得分:2)

继续使用条件格式:

=MOD(ROUND(SUM(1/COUNTIF($A$2:$A2,$A$2:$A2)),0),2)=0
'and the other color
=MOD(ROUND(SUM(1/COUNTIF($A$2:$A2,$A$2:$A2)),0),2)=1

每次更改内容到列表副本时都不需要vba或运行宏,如A2的范围公式:B100

答案 1 :(得分:1)

这应该可以解决问题:

<RelativeLayout
    android:layout_width="wrap_content"
    android:layout_height="wrap_content"
    android:gravity="fill">

    <ImageView
        android:id="@+id/iv"
        android:layout_width="wrap_content"
        android:layout_height="wrap_content"
        android:layout_marginLeft="5dp"
        android:layout_alignParentRight="true"
        android:src="@android:drawable/ic_lock_lock"/>

    <TextView
        android:layout_width="wrap_content"
        android:layout_height="wrap_content"
        android:layout_toLeftOf="@+id/iv"
        android:layout_centerVertical="true"
        android:singleLine="true"
        android:ellipsize="end"
        android:text="Hello World! Hello World! Hello World! Hello World! Hello World! Hello World! "/>

</RelativeLayout>

答案 2 :(得分:1)

试试这个:

Sub test()
    Dim i&, x&, cl As Range, Dic As Object
    Set Dic = CreateObject("Scripting.Dictionary"): Dic.CompareMode = vbTextCompare
    i = [A:A].Find("*", , xlValues, , xlByRows, xlPrevious).Row
    x = [1:1].Find("*", , xlValues, , xlByColumns, xlPrevious).Column
    For Each cl In Range("A2:A" & i)
        If Not Dic.exists(cl.Value2) Then
            Dic.Add cl.Value2, IIf(Dic.Count Mod 2 = 0, vbRed, vbYellow)
        End If
    Next cl
    For Each cl In Range("A2:A" & i)
        Range(cl, Cells(cl.Row, x)).Interior.Color = Dic(cl.Value2)
    Next cl
End Sub

答案 3 :(得分:0)

单击要更改颜色的列。选择格式和格式列。您可以在一个位置编辑或自定义所有属性。 Excel templates提供了大量使用Microsoft Excel设计的模板。希望能够帮助您了解与预设计模板相关的优秀内容。