作者yzhsage (Marx, Karl)
看板Office
标题[算表] Excel程式问题
时间Thu Dec 13 22:37:07 2007
软体:Excel
版本:2007 and 2003
前几天突然接到一个题目，
上面要我们用Excel去做，
开始写判读程式之後，
发现我Excel的问题很大。
希望有人可以帮忙。
我现在有3笔资料放在两个不同的sheet，
假设这三笔资料是I、T、R
I='sheet1'!C2:C10983
T='sheet1'!D2:D10983
R='sheet2'!B2:B2707
现在要判断这三笔资料的关系。
因为不大好描述，
我用我破破的程式呈现一下：
In(I), Tn(T), Rm(R),
Cn(计算Rm在符合条件时的数量),
S(计算所有R符合另一条件的数量)
n=0, m=0
1 REPEAT n + 1
2 REPEAT m + 1
IF Rm - In > 0
IF Rm - Tn < 0, Cn+1, print "Rm in An"
ELSEIF Rm - In = 1, print "Rm behind An"
ELSE RETURN 2
END IF
ELSEIF Rm - In < 0,S+1, print "Rm in B(n-1)"
ELSE print "ERROR"
END REPEAT
print Cn
END REPEAT
(因为不是资讯方面科系，我的程式真的很糟，希望大家看得懂)
简略说明一下:
就是每一笔R值都要跟I值和T值做比较，
R-I>0时判断R-T是否小於零，
若小於零则在该隔写上Rm in An，
并记录An里有几个R；
R-T=1时则写上Rm behind An；
都不是就回到回圈2。
R-I<0时则写上Rm in Bn；
R-I=0时就是定义错误
接下来跳到下一列写上Cn值。
(因为这个我不会写就没放进去)
之後再跳到下一列做另一个R值的运算。
而在n+1时会跳到下一栏做运算。
不知道Excel能否完成这样的事情，
若不能那应该要怎麽写VB呢？
因为事情很急，买书来翻似乎有点太慢，
希望有高手可以帮忙。感恩。
http://www.badongo.com/file/5575871
这是上面的范例，希望能帮助大家了解。
在Sheet3有一些说明，再感谢。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 122.122.83.105
1F：推 Catbert:恕小弟资质愚钝完全看不懂你想要什麽东西(￣□￣|||)a 12/13 22:44
2F：→ Catbert:请举个简单的"实际"例子吧....^^" 12/13 22:45
3F：→ yzhsage:对不起><..我等等再弄个档.. 12/13 22:47
※ 编辑: yzhsage 来自: 122.122.83.105 (12/13 23:55)