sub s() arr=application.inputbox("输入范围:",8) n=ubound(arr) k=ubound(arr,2) set rg=application.inputbox("输入间隔:",8) for each c in rg for i=1 to k c.offset(0,i)=arr(n-c,i) next next end sub 20210311
sub 求定积分() on error resume next dim n1 as integer, n as integer, i as integer dim s as string dim c1 as double, c2 as double, c3 as double if activesheet.usedrange.rows.count < 2 the...
大哥你可看清楚skdj,是上次死叉吗?看看你的图片指示的地方,上次死叉在金叉旁边。 tt:=barslast(cross(skdj.d,skdj.k));xg:abs(c-ref(c,tt))/ref(c,tt)*100<=3 and cross(skdj.k,skdj.d);条件符合你说的条件,但不一定符合你的票。你看仔细后提问,就可以满足你要求出来。不能只看大概。光标对上,看看金叉死...
a列为数据,b列为升势天数及趋势位置,c列为跌势天数及趋势位置宏程序如下,参考一下sub lxx()dim h, l, u, d, m 'h,l,分别为一个趋势周期内的最高值和最低值,u,d为升势、跌势的标志位,m用于统计趋势天数h = [a1].valuel = [a1].value '以第一天为基准初始化最高及最低值for i = 1 to 246 '计数2...