作者onlyaway (估计总是错误)
看板Visual_Basic
标题[VBA ] VBA in Access 自订义函数 回圈问题
时间Thu Mar 10 14:35:35 2011
大家好
我想把分数做级距处理
但是级距的数目都可以自由更改
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