[VBA ] VBA in Access 自訂義函數 迴圈問題

看板Visual_Basic作者 (估計總是錯誤)時間15年前 (2011/03/10 14:35), 編輯推噓0(0推 0噓 0→)
留言0則, 0人參與, 最新討論串1/1
大家好 我想把分數做級距處理 但是級距的數目都可以自由更改 EX MIn 100 Max 300 bin 10 我要把100-300分成10個級距 列在單欄內 如 Bins ------- 100 120 140 160 180 200 220 240 260 280 300 先歸納出每個級距的上下界限 Max Min 會因為 時間期間的不同而有所改變 Bin 會因為 使用者的設定而不同 所以我想做成 以 MIN 為基準 一直累加 BIns 直到Max 在單欄內 我想到的是 用VBA FOR NEXT的做法 所以我自定義了個函數 如下 Function ForNext(ByVal Min As Integer, ByVal Max As Integer, ByVal Bins As Integer) For ForNext = Min To Max Step Bins Next ForNext End Function 改完後 Table Score_ID product Min Max BinS A1031 1001 109 255 15 Q ForNext(Min,Max,Bins) 只得到259 最大的級距 我想109~255之間的級距全部列出來 要怎麼改? 如單欄內列出 109 124 139 154 169 184 199 214 229 244 259 感謝各位 -- 小眼睛 也能看到大世界 http://ppt.cc/PpxB -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 61.63.21.246
‣ 更多 onlyaway 的文章
文章代碼(AID): #1DU74ytd (Visual_Basic)