Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
12
返回列表 发新帖
楼主: 爱疯

[已解决]从上往下找出A列中和6最接近的3个数,设置为红色字体

[复制链接]
发表于 2012-8-3 22:43 | 显示全部楼层
那就再加一句清除颜色的

Range("a1:a10").Font.ColorIndex = 0
就可以了

查找.rar

11.37 KB, 下载次数: 8

回复

使用道具 举报

 楼主| 发表于 2012-8-3 22:56 | 显示全部楼层
lzclzch 发表于 2012-8-3 22:43
那就再加一句清除颜色的

Range("a1:a10").Font.ColorIndex = 0

呵呵,这样就错不了。
稍后仔细看看,为什么第2次就错。。。。。{:361:}
回复

使用道具 举报

发表于 2012-8-4 09:01 | 显示全部楼层
  1. =MOD(SMALL(ABS(A1:A10-6)/1%+A1:A10,{1;2;3}),100)
复制代码
回复

使用道具 举报

 楼主| 发表于 2012-8-4 11:45 | 显示全部楼层
周义坤 发表于 2012-8-4 09:01

我试了,结果却是{6,6,7}
你的和2#很像
回复

使用道具 举报

发表于 2012-8-4 13:24 | 显示全部楼层    本楼为最佳答案   
仅针对一定范围内的整数:
  1. Sub 测试()
  2.     Dim arr, brr(100), i As Integer, s
  3.     arr = [a1:a10]
  4.     For i = 1 To UBound(arr)
  5.         brr(Abs(arr(i, 1) - 6)) = brr(Abs(arr(i, 1) - 6)) & " " & i
  6.     Next
  7.     s = Split(Application.Trim(Join(brr)))
  8.     For i = 0 To 2
  9.         Cells(s(i), 1).Font.Color = vbRed
  10.     Next
  11. End Sub
复制代码

评分

参与人数 2 +32 金币 +18 收起 理由
爱疯 + 22 + 18 很给力!
周义坤 + 10 好方法!学习了!

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2012-8-4 21:52 | 显示全部楼层
本帖最后由 爱疯 于 2012-8-25 17:34 编辑

                    .                                                                                                                              
回复

使用道具 举报

 楼主| 发表于 2012-8-4 21:55 | 显示全部楼层
感觉15#已经很好了,学习了!
还有好方法,谢谢分享!
回复

使用道具 举报

发表于 2013-12-30 09:45 | 显示全部楼层
用FLOOR和CEILING 試試,不知道行不
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 06:57 , Processed in 0.612099 second(s), 13 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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