Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2596|回复: 8

[已解决]请教老师:如何给指定数字涂色?

[复制链接]
发表于 2017-1-30 12:43 | 显示全部楼层 |阅读模式
本帖最后由 lygyjt 于 2017-1-30 14:51 编辑

各位老师,过年好!想请教的是:如何将指定的几个数,在某列找到后涂色?具体请见例子。 给指定数字涂色.rar (8.02 KB, 下载次数: 9)
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2017-1-30 14:11 | 显示全部楼层    本楼为最佳答案   
A1单元格——条件格式——新建规则——使用公式确定要设置格式的单元格
复制公式
  1. =(A1=INDIRECT("$BA"&COLUMN(A1)/2+0.5))+(A1=INDIRECT("$BB"&COLUMN(A1)/2+0.5))+(A1=INDIRECT("$BC"&COLUMN(A1)/2+0.5))+(A1=INDIRECT("$BD"&COLUMN(A1)/2+0.5))+(A1=INDIRECT("$BE"&COLUMN(A1)/2+0.5))+(A1=INDIRECT("$BF"&COLUMN(A1)/2+0.5))+(A1=INDIRECT("$BG"&COLUMN(A1)/2+0.5))
复制代码

直接粘贴
格式——设定格式——选颜色——确定,然后用格式刷刷一下你要的区域.
回复

使用道具 举报

 楼主| 发表于 2017-1-30 14:54 | 显示全部楼层
hupin6331 发表于 2017-1-30 14:11
A1单元格——条件格式——新建规则——使用公式确定要设置格式的单元格
复制公式
直接粘贴

独辟蹊径。谢谢hupin6331的指点!厉害了,我的老师。
回复

使用道具 举报

 楼主| 发表于 2017-1-30 15:14 | 显示全部楼层
hupin6331 发表于 2017-1-30 14:11
A1单元格——条件格式——新建规则——使用公式确定要设置格式的单元格
复制公式
直接粘贴

hupin6331老师,当我把A列删除后,条件格式里的公式也没了。这个问题如何解决呢?因为整个A:AX列,是需要时常换数据的。
回复

使用道具 举报

发表于 2017-1-30 16:04 | 显示全部楼层
  1. Sub Tx()
  2.     Dim Rng As Range, Ls, Arr, Rg As Range
  3.     Ls = Cells(Rows.Count, "ba").End(3).Row
  4.     Arr = [a1].CurrentRegion
  5.     For j = 1 To Ls
  6.         Set Rng = [ba1].Offset(j - 1).Resize(, 7)
  7.         For i = 1 To UBound(Arr)
  8.             Set Rg = Rng.Find(Arr(i, j * 2 - 1), , , xlWhole)
  9.             If Not Rg Is Nothing Then
  10.                 Cells(i, j * 2 - 1).Interior.ColorIndex = 12
  11.             End If
  12.         Next
  13.     Next
  14.     MsgBox "颜色标记完成", vbOKOnly, "Finger"
  15. End Sub
复制代码


看看是否满足要求。
给指定数字涂色.zip (17.8 KB, 下载次数: 12)

评分

参与人数 1 +1 收起 理由
lygyjt + 1 赞一个

查看全部评分

回复

使用道具 举报

发表于 2017-1-30 17:08 | 显示全部楼层
lygyjt 发表于 2017-1-30 15:14
hupin6331老师,当我把A列删除后,条件格式里的公式也没了。这个问题如何解决呢?因为整个A ...

把原来格式清除,重新设条件格式
回复

使用道具 举报

 楼主| 发表于 2017-1-31 06:19 | 显示全部楼层
lmze2000 发表于 2017-1-30 16:04
看看是否满足要求。

lmze2000老师,过年好!谢谢您的指点!让我非常受用。
回复

使用道具 举报

 楼主| 发表于 2017-1-31 06:21 | 显示全部楼层
hupin6331 发表于 2017-1-30 17:08
把原来格式清除,重新设条件格式

每更新一次,需要重新设置一次公式吗?
回复

使用道具 举报

发表于 2017-1-31 10:58 | 显示全部楼层
本帖最后由 hupin6331 于 2017-1-31 12:09 编辑
lygyjt 发表于 2017-1-31 06:21
每更新一次,需要重新设置一次公式吗?

只要区域不便,只是更新数据,就不需要重新设置
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-28 23:03 , Processed in 0.528584 second(s), 13 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表