[已解决]用VBA数组查找最接近99的数字

laoau138

用VBA数组查找最接近99的数字

最佳答案

月排行榜 / 总排行榜

雪舞子

2017-3-25 21:06

ABS函数的应用：

1. Sub DD()
   
2.     Dim arr
   
3.     arr = Range("a1").CurrentRegion
   
4.     x = Abs(arr(1, 1) - 99): t = 1
   
5.     For i = 2 To UBound(arr)
   
6.         y = Abs(arr(i, 1) - 99)
   
7.         If x > y Then t = i: x = y
   
8.     Next
   
9.     MsgBox "最接近99的数是：" & arr(t, 1) & "。" & vbCrLf & "单元格地址为：" & Cells(t, 1).Address
   
10. End Sub

复制代码

用VBA数组查找最接近99的数字.rar (8.73 KB, 下载次数: 18)

2017-3-25 21:06 上传

点击文件名下载附件

跳转到最佳答案楼层

大灰狼1976

你的意思是求绝对值最接近99的数？
有没有重复数，有没有绝对值相同的数？
有的话怎么处理？

雪舞子

ABS函数的应用：

1. Sub DD()
   
2.     Dim arr
   
3.     arr = Range("a1").CurrentRegion
   
4.     x = Abs(arr(1, 1) - 99): t = 1
   
5.     For i = 2 To UBound(arr)
   
6.         y = Abs(arr(i, 1) - 99)
   
7.         If x > y Then t = i: x = y
   
8.     Next
   
9.     MsgBox "最接近99的数是：" & arr(t, 1) & "。" & vbCrLf & "单元格地址为：" & Cells(t, 1).Address
   
10. End Sub

复制代码

用VBA数组查找最接近99的数字.rar (8.73 KB, 下载次数: 18)

2017-3-25 21:06 上传

点击文件名下载附件

laoau138

大灰狼1976 发表于 2017-3-25 16:04
你的意思是求绝对值最接近99的数？
有没有重复数，有没有绝对值相同的数？
有的话怎么处理？

用VBA数组查找按下面两种情况改写

http://www.excelpx.com/thread-428802-1-1.html


用VBA数组输出下面图案一共有11行和6列


http://www.excelpx.com/thread-428807-1-1.html


用VBA数组输出原来和旋转90度

http://www.excelpx.com/thread-428806-1-1.html

laoau138

雪舞子 发表于 2017-3-25 21:06
ABS函数的应用：

用VBA数组查找按下面两种情况改写

laoau138

大灰狼1976 发表于 2017-3-25 16:04
你的意思是求绝对值最接近99的数？
有没有重复数，有没有绝对值相同的数？
有的话怎么处理？

用VBA数组查找按下面两种情况改写

http://www.excelpx.com/thread-428802-1-1.html


用VBA数组输出下面图案一共有11行和6列


http://www.excelpx.com/thread-428807-1-1.html


用VBA数组输出原来和旋转90度

http://www.excelpx.com/thread-428806-1-1.html