vba中怎样利用循环将不同区域单元格值的最小值和最大值找出来
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/17 22:09:40
vba中怎样利用循环将不同区域单元格值的最小值和最大值找出来
例如,第一列中,当x=1时,找出单元格1,7,13中的最小值和最大值,当x=2时找出单元格2,8,14中的最大值和最小值,当x=3时找出单元格3,9,15中的最大值和最小值,当x=4时找出单元格4,10,16中的最大值和最小值.不用排序法
例如,第一列中,当x=1时,找出单元格1,7,13中的最小值和最大值,当x=2时找出单元格2,8,14中的最大值和最小值,当x=3时找出单元格3,9,15中的最大值和最小值,当x=4时找出单元格4,10,16中的最大值和最小值.不用排序法
单元格1,7,13是什么单元格?
如果你说的1,7,13是指行号,那么以A列为例,代码如下
Sub test()
Dim x&,iMax,iMin
For x = 1 To 5
iMax = Application.Max(Cells(x,1),Cells(x + 6,1),Cells(x + 12,1))
iMin = Application.Min(Cells(x,1),Cells(x + 6,1),Cells(x + 12,1))
MsgBox "X为" & x & "时,最大值为:" & iMax & ",最小值为:" & iMin
Next x
End Sub
代码中的循环到5你可以改为你的X最大的值即可
再问: 你好,我的意思是x不只循环到4,我变得一段小代码中是各未知数,原始数据是多少就是多少,是随着不同的数据变化的。
再答: 你要循环到多少就自己改呀,把5改为你要的X值即可
再问: 那样的话iMax = Application.Max(Cells(x, 1), Cells(x + 6, 1), Cells(x + 12, 1))中叶不止有三个参数啊,也是未知的。
再答: 为什么不是三个参数?你难道不是提三个单元格?如果不是就得改用循环来处理了
如果你说的1,7,13是指行号,那么以A列为例,代码如下
Sub test()
Dim x&,iMax,iMin
For x = 1 To 5
iMax = Application.Max(Cells(x,1),Cells(x + 6,1),Cells(x + 12,1))
iMin = Application.Min(Cells(x,1),Cells(x + 6,1),Cells(x + 12,1))
MsgBox "X为" & x & "时,最大值为:" & iMax & ",最小值为:" & iMin
Next x
End Sub
代码中的循环到5你可以改为你的X最大的值即可
再问: 你好,我的意思是x不只循环到4,我变得一段小代码中是各未知数,原始数据是多少就是多少,是随着不同的数据变化的。
再答: 你要循环到多少就自己改呀,把5改为你要的X值即可
再问: 那样的话iMax = Application.Max(Cells(x, 1), Cells(x + 6, 1), Cells(x + 12, 1))中叶不止有三个参数啊,也是未知的。
再答: 为什么不是三个参数?你难道不是提三个单元格?如果不是就得改用循环来处理了
试编程实现将内存中的若干个无符号字数据中的最大值和最小值找出来,并开辟独立的存储区域保存结果.
如何利用电子表格中的函数找出最大值和最小值
VBA单元格循环依次输入数据
Excel中怎样快速找出一个系列数据中的最大值和最小值?
在excel中如何判定区域的最大值超出给定值最大值或最小值超出给定最小值时为不合格?
用Vba计算同列两个相邻单元格数值相同的下一个单元格的个数
在“工资收入”工作表中,在单元格D2、F2中用函数公式分别计算出“应发工资”的最大值和最小值,在单元格D3、F3中使用v
java中运用WHILE循环输入一批整数,输出其中的最大值和最小值,输入0结束循环;
数列中怎样找出最大值的同一行的其他数值?
c语言:用户输入的四个数中找出最大值和最小值 ,
在excel中,利用函数判断单元格在某个区域,并返回相应的数值
如何复制excel 单元格D3中的公式到同列的单元格中来计算排名?