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

爱疯 · 发表于 2012-8-3 19:40

本帖最后由爱疯于 2012-8-13 15:47 编辑

查找.rar (6.53 KB, 下载次数: 49)

hrpotter · 发表于 2012-8-3 20:28

=N(INDIRECT("a"&SMALL(MOD(SMALL(ABS(A1:A10-6)/1%+ROW(1:10),{1;2;3}),100),{1;2;3})))

复制代码

lzclzch · 发表于 2012-8-3 20:34

Option Explicit

Private Sub CommandButton1_Click()
Dim arr, brr(1 To 10, 1 To 1), i%, m%, n%
arr = Range("a1:a10")
For i = 1 To 10
brr(i, 1) = Abs(arr(i, 1) - 6)
Next
For m = 1 To 3
n = Application.Small(brr, m)
For i = 1 To 10
If Cells(i, 1).Font.ColorIndex <> 3 And brr(i, 1) = n Then
Cells(i, 1).Font.ColorIndex = 3
GoTo 100
End If
Next i

100:
Next m
End Sub

lzclzch · 发表于 2012-8-3 20:56

=INDEX($A$1:$A$10,MIN(IF(LARGE(ABS($A$1:$A$10-6),COUNT($A$1:$A$10)+ROW(A1)-3)=ABS($A$1:$A$10-6),ROW($A$1:$A$10))))

爱疯 · 发表于 2012-8-3 21:07

谢谢hrpotter ，lzclzch ！
2#能得到正确结果，学习
3#会得到4个值
因为不是实际问题，所以多放放，希望学习更多方法

爱疯 · 发表于 2012-8-3 21:40

lzclzch 发表于 2012-8-3 20:56
=INDEX($A$1:$A$10,MIN(IF(LARGE(ABS($A$1:$A$10-6),COUNT($A$1:$A$10)+ROW(A1)-3)=ABS($A$1:$A$10-6),ROW( ...

函数我学得不好，5#我觉得也对。
我还是等等看，继续学习好办法吧{:091:}

lzclzch · 发表于 2012-8-3 22:09

爱疯发表于 2012-8-3 21:40
函数我学得不好，5#我觉得也对。
我还是等等看，继续学习好办法吧

3楼也可以啊，4楼附件中有代码啊

爱疯 · 发表于 2012-8-3 22:15

lzclzch 发表于 2012-8-3 22:09
3楼也可以啊，4楼附件中有代码啊

我试了4#

正确应修改A3、A6、A9的字体颜色为红色
而4#修改了A3、A5、A6、A9（A5是不需要的）

lzclzch · 发表于 2012-8-3 22:21

是的A3、A6、A9的字体颜色为红色
请看动画

爱疯 · 发表于 2012-8-3 22:24

第1次运行，正确
接着再运行第2次，A5就变红了

		自动登录	找回密码
密码			注册