数组运算出错求助

yuliuyan07

Sub 宏1()
Dim rng(3) As Double, rng2(3) As Double
rng(0) = 1
rng(1) = 2
rng(2) = 4
rng(3) = 6
rng2 = (rng > 3) * 1
end sub

rng2 里面怎么无法得出一个数组呢？  rng2 非要用循环吗？  


对于vba中的range好像也无法运算,又没有不需要循环的方法呢？


Sub 宏1()
Dim rng  As Double range, rng2 As range
set rng=range("A1:A4")
rng2 = (rng > 3) * 1
end sub

loirol

rng2 = (rng > 3) * 1

这句你想表达啥？

无敌小猪猪

loirol 发表于 2022-9-23 13:24
rng2 = (rng > 3) * 1

这句你想表达啥？

我猜他的意思是把大于3的放入数组中

loirol

无敌小猪猪 发表于 2022-9-23 13:25
我猜他的意思是把大于3的放入数组中

这就只能靠猜了。。

loirol

如果如3楼老师说的  
rng是个数组，大于是逻辑判断符，如何判断一个数组和一个数值之间的大小等于关系


for i = 0 to 3
    if rng(i) > 3 then
        rng2(i) = rng(i)
    end if
next

yuliuyan07

loirol 发表于 2022-9-23 13:24
rng2 = (rng > 3) * 1

这句你想表达啥？

sorry，没有表达清楚。
目的： 想要让rng2 构成[0,0,1,1]的数组。  

yuliuyan07

loirol 发表于 2022-9-23 13:27
如果如3楼老师说的  
rng是个数组，大于是逻辑判断符，如何判断一个数组和一个数值之间的大小等于关系

循环的方式我理解。 主要的出发点：有个场景，在sheet中通过这个公式很容易，但是用vba代码，如果： 设置rng=I1:I4,  这个公式会有些问题。

loirol

yuliuyan07 发表于 2022-9-23 16:51
循环的方式我理解。 主要的出发点：有个场景，在sheet中通过这个公式很容易，但是用vba代码，如果： 设置 ...

只能说代码的逻辑和工作表函数的逻辑不一样

东亚五金

我的理解是数组大部分的时候是用循环的

大灰狼1976

只能这样
arr = [{1,2,4,6}>3]