最接近数字100的单元格（参考答案在1楼）

兰色幻想 · 发表于 2008-6-20 18:57

要求返回A列最接近100的数字,并提示它所在的单元格位置,如下图            大家先把自已的代码贴上来吧参考答案:  Sub test()  Dim x%, v1%, v2%     '声明变量  For x = 1 To Range("a65536").End(xlUp).Row   ''在A列循环    If v1 = 0 Or v1 > Abs(Cells(x, 1) - 100) Then   '如果V1还没有赋值或V1大于当前单元格与100的差异       v1 = Abs(Cells(x, 1) - 100)       '满足上面的条件（找到更接近的）重新给V1赋值       v2 = x　　'用变量v2记录下最接近值的行数    End If　　　'结束判断  Next x　　　'结束循环    MsgBox "最接近100的值是" & Cells(v2, 1) & ",单元格地址为" & Cells(v2, 1).Address　根据Ｖ２的值得到最接近的值和单元格地址 End Sub总结：本练习题的出题用意有两个：　１、常握在VBA中可以用ABS计算绝对值    2、利用循环得到最值

[此贴子已经被作者于2008-6-21 14:55:37编辑过]

cjch1969 · 发表于 2008-6-20 19:15

游客，如果您要查看本帖隐藏内容请回复

[此贴子已经被作者于2008-6-20 19:42:34编辑过]

格子布圣诞鹿 · 发表于 2008-6-20 19:18

游客，如果您要查看本帖隐藏内容请回复

[此贴子已经被作者于2008-6-20 19:18:57编辑过]

HYY514 · 发表于 2008-6-20 19:30

Sub ff() Dim a, i As Integer, n As Integer, ra As Range On Error Resume Next a = [a1:a13] For i = 1 To 13     a(i, 1) = Abs(a(i, 1) - 100) Next n = WorksheetFunction.Small(a, 1) Set ra = Cells.Find(100 - n) If ra Is Nothing Then Set ra = Cells.Find(100 + 1) MsgBox "最接近100的值" & ra.Value & ",地址是" & ra.Address ra.Select End Sub改Cells.Find(100 + n)

[此贴子已经被作者于2008-6-20 20:09:23编辑过]

sd6310514 · 发表于 2008-6-20 19:33

2楼的代码当第一个为最接近时就有错了。

[此贴子已经被作者于2008-6-20 19:36:10编辑过]

HYY514 · 发表于 2008-6-20 19:43

Sub ff() Dim a, i As Integer, n As Integer, r As Integer a = [a1:a13] n = WorksheetFunction.Max(a) For i = 1 To 13     If Abs(a(i, 1) - 100) < n Then        n = Abs(a(i, 1) - 100)        r = i     End If Next MsgBox "最接近100的值" & Cells(r, 1).Value & ",地址是" & Cells(r, 1).address  Cells(r, 1).Select End Sub

[此贴子已经被作者于2008-6-20 19:46:35编辑过]

ycb20010823 · 发表于 2008-6-20 20:29

这是什么给我们的练习题吗，那我也下载，学习一下，谢谢兰版！

hhzjxss · 发表于 2008-6-20 20:33

用循环法试了一下，没想到好办法！[em04]

游客，如果您要查看本帖隐藏内容请回复

lvxingong · 发表于 2008-6-20 21:02

游客，如果您要查看本帖隐藏内容请回复

[此贴子已经被作者于2008-6-20 21:10:16编辑过]

不看不看 · 发表于 2008-6-20 21:02

游客，如果您要查看本帖隐藏内容请回复

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

[习题] 最接近数字100的单元格（参考答案在1楼）

只会用简单的循环和判断