配列の内容の合計を計算し、条件に基づいてリストします

Question

次のコードは、アクティブなセルとそのオフセットに配列の内容がv(v1(i))であることを示しています。私は上場前に条件を入れたい。リストの前にv1配列内のすべての値の合計をチェックし、合計が>=5と<=10の場合は、それをリストします。どうすればこれを達成できますか？

v1 = Split(Replace(Trim(s), "'", ""), " ") 
For i = LBound(v1) To UBound(v1) 
    ActiveCell.Offset(0, i) = v(v1(i)) 
Next 

おかげ

Answer 1

これは、あなたが欲しいものを行う必要があります。

v1 = Split(Replace(Trim(s), "'", ""), " ") 
For i = LBound(v1) To UBound(v1) 
    t = t + Val(v1(i)) 
Next i 
If t >= 5 And t <= 10 Then 
    For i = LBound(v1) To UBound(v1) 
     ActiveCell.Offset(0, i) = v(v1(i)) 
    Next i 
End If