VBAの足し算について

Question

エクセルAからセルに入力されている数字(通貨型)を抜き出してきて
足し算したいので、以下のようにしたところ、型が一致しません　とエラーが出ました。

Dim q(3) As Variant
Dim r(3) As Variant

'エクセルAの数値の型は通貨型

Set q(1) = Workbook(A).Worksheets(sheet1).Cells(4,11)
Set q(2) = Workbook(A).Worksheets(sheet1).Cells(20,11)

Set r(1) = q(1)+q(3)

通貨型ではだダメなのかと思い
val(q(1))+val(q(2))
みたいなこともしてみましたけどダメでした。
ご教授お願い致します。

Comments

[koguma98]

q(1)+q(3) ではなくて q(1)+q(2) ではないんでしょうか？

[rvsezuki]

そうです。ごめんさい　ただこちらに書きミスしただけなので、どちらにしてもエラーです。

Answer 1

わざわざSetを記述しているのは意図があるのでしょうか？

オブジェクトとして使用するのでなければ
Set は必要ありません。

セルK４とセルK２０の、
・文字のフォント
・セルの色
・罫線の有り無し 等
を足し算しようとしているのでエラーになると思われます。

Comments

[torisan]

解決済みになっていたようですね、すみません。

Answer 2

Workbook ではなく、 Workbooks ？
Sheet1 ではなく、 "Sheet1" ？
あとは、BeasStarさんがご指摘のとおりだと思います。

以上を踏まえ、Book2でテストを行いました。
一応、エラーは生じませんでした。

Sub Test()

    Dim q(3) As Variant
    Dim r(3) As Variant
    
        'エクセルAの数値の型は通貨型
        
        q(1) = Workbooks("Book2").Sheets("Sheet1").Cells(4, 11)
        q(2) = Workbooks("Book2").Sheets("Sheet1").Cells(20, 11)
        
        r(1) = q(1) + q(2)
        
        Debug.Print r(1)

End Sub

参考になれば、幸いです。

追記。
ご質問の内容の場合、配列は値ではなく範囲をセットしたほうがよさそうです。

Sub test2()

    Dim q(3) As Range
    Dim r(3) As Variant
    Dim s(1) As Range

        'エクセルAの数値の型は通貨型

        Set q(1) = Workbooks("Book3").Sheets("Sheet1").Cells(4, 11)
        Set q(2) = Workbooks("Book3").Sheets("Sheet1").Cells(20, 11)

        r(1) = q(1) + q(2)
        
        Set s(1) = Workbooks("Book4").Sheets("Sheet1").Cells(4, 11)
        
        q(1).Copy
        s(1).PasteSpecial

End Sub

参考まで。

Comments

[rvsezuki]

上記のやり方でr(1)でました

引き続きで申し訳ないんですが、
足し算したものを
Dim s(1) As Variant

s(1) = Workbooks(B).Sheets("Sheet1").Cells(4, 5)
r(1).Copy(s(1))
として貼り付けたいのですが、この方法ではうまくいきませんでした。
最後にこれだけご教授お願いします。

Answer 3

可能性1:
Variantだけど、Object型として認識されている。
Set で代入しているため。
これを普通のInterger型のようにする。
または Variant ではなく Currencyとして定義する。

可能性2:
セルに文字列を含んでいるため。
たまにある。

可能性3:
よく見ると、配列qは要素数3なのに、q(3) へアクセスしようとしている。
範囲外。配列はVBAだとデフォルトでは0から開始する。
なので、最大要素番号は3-1=2 のはず。

可能性4:
可能性2みたいに、別の要因だったりする。

Comments

[rvsezuki]

Currency型にしてsetを外したところいけました