作者james733s (史奎德)
看板Office
标题[问题] VBA不用函数寻求max min
时间Wed Apr 12 15:22:20 2017
(若是和其他不同软体互动之问题 请记得一并填写)
软体:excel VBA
版本:excel2013
这是界面设计
http://i.imgur.com/LHyLsQM.jpg
http://i.imgur.com/PPhbww3.jpg
这是点下去的结果
http://i.imgur.com/XeDQUoT.jpg
这是程式码
http://i.imgur.com/cgPeTXR.jpg
就是在1000随机乱数中寻求最大小值及其个数
目前用函数写很简单
就是现在要改用
.cells if else
For next
回圈的写法
有点没头绪
想问有大大们能给点提示吗
感谢
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 117.19.131.208
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1491981742.A.1C9.html
1F:→ soyoso: 设个变数,判断最大值大於变数,将最大值带入变数内 04/12 15:41
2F:→ soyoso: 再设个累加的变数,大於时为1,相等时变数=变数+1 04/12 15:42
3F:→ soyoso: 最小值不同於最大值处,於回圈执行前先将第1笔资料带入变 04/12 15:43
4F:→ soyoso: 数内 04/12 15:43
5F:→ james733s: 请问大大变数该如何设 @@ 04/12 18:01
6F:→ james733s: 感谢解答 04/12 18:01
8F:→ soyoso: 变数i方式来设定其他变数;也可先宣告(dim)的方式 04/12 18:06
9F:→ james733s: 我会了 感谢大大 04/12 18:17
12F:→ james733s: 累加的地方怪怪的 04/12 19:19
13F:→ james733s: 用大大的跟自己的方法答案都不对 04/12 19:19
14F:→ soyoso: 最大和最小的判断分开写 04/12 19:54