VBA 布尔逻辑值 能计算吗

zgw125766034

=CHOOSE(SUM(--({7200,5400,3600,1800,0}<=3700)),"0","0.5","1","1.5","2")
在单元格中能计算
请教老师VBA中怎么编写，能计算吗

简七

function returnvalue(s,n as double,nlist)
dim i%,tv,ary()
if typename(nlist)=“Range“ then ary=nlist.value else ary=nlist
for each tv in s
   if typename(s)="Range" then
      i=i+ abs(tv.value<=n)
  else
   i=i+ abs(tv<=n)
  end if
next
returnvalue=ary(i–1)
end function