这个函数定义的很模糊,从字面上理解 rng 应该是一个range类型的变量,rng()就是取得其中的一个单元格数据 规范写法: function drawone(rng as range,optional recalc as boolean=false) application.volatile recalc drawone=rng(int(rng.count)*rnd+1) end function 可以用下面的sub调用:... 20210311
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
sub cnft_click() dim arralldata,arrb,c as range,rg as range,i,a,r,col,n application.screenupdating=false n=30 '显示最近的n天记录,可调整 set rg=range(cells(2,1),cells(65536,1).end(xlup)) on error resume next for ...