q1初始值为1，计算工作表（j1:p1,j3:m1428)区域，q1=q1+1,如果满足p1=m1428。。。。。

李嘉图0513 · 发表于 2012-11-30 23:42

sub
q1=1
如果找到10个值为止
循环重新计算工作表（J1：Q1，J3：J1428），
如果P1=L1428，吧J1428的值赋给O1428
Q1=Q1+1 赋值从O1428到X1428共10个
否则
Q1=Q1+1

复制代码

完整叙述为，q1初始值为1.计算工作表(j1:q1,j3:l1428)区域，如果p1=L1428，把J1428的值输出到O1428，然后q1=q1+1,即q1值在原有基础上+1，重新计算工作表(j1:q1,j3:l1428)区域，如果p1=L1428，把J1428的值输出到P1428，直到找到10个值未知，否则q1的值一直增1！
希望VBA的高手的耐心看完！
我用伪代码表述一下：

李嘉图0513 · 发表于 2012-11-30 23:44

{:soso_e147:}见到这个代码，你是否有什么感触呢？
那就拯救我吧！
VBA高手，对我的一座山，对你就是一张纸。你轻轻地走过，给我留下了极大的帮助！{:soso_e112:}

jgz2k · 发表于 2012-11-30 23:56

逻辑好像有问题，如果p1=L1428，就将J1428的值输出到O1428，P1428....???

jgz2k · 发表于 2012-11-30 23:59

另外如果p1不等于L1428，则怎么处理？q1加到１０，然后结束？

李嘉图0513 · 发表于 2012-12-1 10:22

jgz2k 发表于 2012-11-30 23:59
另外如果p1不等于L1428，则怎么处理？q1加到１０，然后结束？

这是一个循环，你没有看出来！不等于，就+1重算！

jgz2k · 发表于 2012-12-1 13:32

本帖最后由 jgz2k 于 2012-12-1 13:33 编辑

你比较的是p1,加的是q1,p1永远不变，怎么比？？上附件吧。

		自动登录	找回密码
密码			免费注册