[問題] VBA不用函數尋求max min

[james733s (史奎德)]

(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體: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://www.ptt.cc/bbs/Office/M.1491981742.A.1C9.html
→ soyoso: 設個變數，判斷最大值大於變數，將最大值帶入變數內
→ soyoso: 再設個累加的變數，大於時為1，相等時變數=變數+1
→ soyoso: 最小值不同於最大值處，於迴圈執行前先將第1筆資料帶入變
→ soyoso: 數內
→ james733s: 請問大大變數該如何設 @@
→ james733s: 感謝解答
→ soyoso: 可如之前原po於其他文章內所設http://i.imgur.com/gai3f5C
→ soyoso: 變數i方式來設定其他變數；也可先宣告(dim)的方式
→ james733s: 我會了 感謝大大
→ james733s: http://i.imgur.com/LhfdJTn.jpg
→ james733s: http://i.imgur.com/Hnyj2S9.jpg
→ james733s: 累加的地方怪怪的
→ james733s: 用大大的跟自己的方法答案都不對
→ soyoso: 最大和最小的判斷分開寫