Excel 2007中:公式格式化经常性和非经常性引用

嗨,

我想使用条件格式化以突出与绿色和黄色alterbate颜色和没有格式化为unidentical参考类似引用。

可我知道,我必须用什么公式? 公式brelow只允许我继续使用单一颜色格式:


AND(LEN($ A1),COUNTIF($ A:$ A,$ A1)> 1)

一个


C

ð

1



供应商名称

描述

格式化

2

510206

NP

ADIBAH

医疗

绿色

3

510206

NP

ARUNAMARI

医疗

绿色

4

512556

NP

BARAKAH HEALTHCARE

医疗

黄色


512556

NP

CITY POLYKLINIK杂志CHINESE

医疗

黄色

6

512556

NP

哥伦比亚亚洲

医疗

黄色

7

510690

NP

DR.ROZANAH

医疗

绿色

8

510690

NP

医院BERAKAH RAZIF

医疗

绿色

9

510690

NP

INSTITUT JANTUNG

医疗

绿色

10

587987

NP

JAYA健康

医疗

黄色

11

587987

NP

KAMARUDIN MOHD SHAH

医疗

黄色

12

587006

NP

KELINIK LIM

医疗

原始格式

13

587226

NP

KELINIK NASIONAL

医疗

原始格式

14

587654

NP

KELINIK LIM

医疗

绿色

15

587654

NP

KELINIK NASIONAL

医疗

绿色

16

587006

NP

KLINIK&SURERI REUBEN

医疗

原始格式

17

588478

NP

KLINIK AISYAH DAN YUSOF

医疗

原始格式

18

590475

NP

KLINIK ANIS

医疗

原始格式

19

549716

NP

KLINIK DAN REUBEN

医疗

黄色

20

549716

NP

KLINIK DAN SURGERI REUBEN

医疗

黄色

21

549716

NP

KLINIK DR.ROSLI

医疗

黄色

22

549716

NP

KLINIK适合全家AISHAH

医疗

黄色

谢谢

--------------解决方案-------------

子ApplyColors2()
昏暗的myCol(0比1)作为整数
昏暗MYC作为范围
昏暗MYR由于范围
昏暗mycount的作为整数

myCol(0)= 4
myCol(1)= 6
mycount的= 0

设置MYR =范围(范围(“A2”),电池(Rows.Count,1).END(xlUp))

对于每个MYC马币
如果Application.WorksheetFunction.CountIf(MYR,MYC)> 1然后
如果myC.Value <> MYC(0).value的那么mycount的= mycount的+ 1
myC.Interior.ColorIndex = myCol(mycount的国防部2)
万一
接下来MYC

结束小组

你需要有公式的一个辅助柱,因为没有其他的方法来跟踪是不相同的重复。 例如

1

1

1

2

2

2

你可以很容易地使用一个公式来交替'1'的着色,但在2秒开始,你将无法考虑到最后1的格式WHN格式化第一2。

对于额外的列,使用您发布的公式 - 让我们在列B,B1单元格中找出重复值说:

= AND(LEN($ A1),COUNTIF($ A:$ A,$ A1)> 1)

然后换contitional格式,请使用此基础上,在B列的新招式 - 从单元格B1。 (您可以应用格式的值A列)

对于第一颜色,使用

=与(B1,MOD(COUNTIF($ B $ 1:B1,TRUE),2)= 0)

并为替代颜色,使用

=与(B1,MOD(COUNTIF($ B $ 1:B1,TRUE),2)= 1)

伯尼

嗨伯尼,

感谢您快速和详细的解释。

我相信会的作品。

最好的祝福

嗨,伯尼,

是否有任何宏代码,如果你知道的替代颜色格式化列并保持原始格式的非经常性代码,我提到,

我认为这将是更快地使用宏来执行此任务。

谢谢

例如,对于列的起始行2

HTH,

伯尼

子ApplyColors()
昏暗的myCol(0比1)作为整数
昏暗MYC作为范围
昏暗MYR由于范围
昏暗mycount的作为整数

myCol(0)= 4
myCol(1)= 6
mycount的= 0

设置MYR =范围(范围(“A2”),电池(Rows.Count,1).END(xlUp))

对于每个MYC马币
如果Application.WorksheetFunction.CountIf(MYR,MYC)> 1然后
mycount的= mycount的+ 1
myC.Interior.ColorIndex = myCol(mycount的国防部2)
万一
接下来MYC

结束小组

嗨伯尼,

您的代码看起来更短,更简单。

但是经过测试,我发现它强调了相同的代码替代颜色,

例如。

21 - 绿

21 - 上面点缀着黄色

21 - 绿

21黄

48 - 绿

48 - 黄色

48 - 格林。

反正是有,你可以修改代码,使其通过以下方式突出::

21 - 绿

21 - 绿

21 - 绿

48 - 黄色

48 - 黄色

36 - 原始格式

47 - 绿

47-绿色

47 - 绿...

子ApplyColors2()
昏暗的myCol(0比1)作为整数
昏暗MYC作为范围
昏暗MYR由于范围
昏暗mycount的作为整数

myCol(0)= 4
myCol(1)= 6
mycount的= 0

设置MYR =范围(范围(“A2”),电池(Rows.Count,1).END(xlUp))

对于每个MYC马币
如果Application.WorksheetFunction.CountIf(MYR,MYC)> 1然后
如果myC.Value <> MYC(0).value的那么mycount的= mycount的+ 1
myC.Interior.ColorIndex = myCol(mycount的国防部2)
万一
接下来MYC

结束小组

嗨伯尼,

非常感谢,

您的代码工作。

最好的祝福

分类:办公室 时间:2015-03-15 人气:0
分享到:

相关文章

Copyright (C) 55228885.com, All Rights Reserved.

55228885 版权所有 京ICP备15002868号

processed in 1.907 (s). 10 q(s)