セルA1からA10の値を表示ができない

質問

自分の無能さに腹が立ちます。
セルA1からA10の値を表示したいのですがうまくいきません。

Sub Macro6()
MsgBox Range("A1:A10").Value
End Sub

「型が一致しません」とエラーが出ます。
なぜでしょう？

回答No.1

hana-hana3 · ベストアンサー

＞なぜでしょう？

複数のセルの値をまとめて取り出したいようですが、そのような事はできません。
msgbox では値を配列として受け取る事も表示する機能もありません。

仮に・・・
tmp = Range("A1:A10").Value
MsgBox tmp
としても表示させる事はできません。

MsgBox Range("A1").Value
MsgBox Range("A2).Value
　　　：
MsgBox Range("A10").Value

としないと無理です。

MsgBox Range("A1").Value & "," & Range("A2).Value ・・・ & "," & Range("A10").Value

と言う方法もあります。

ループ文等を使って表示させる事も出来ます。
for i=1 to 10
MsgBox Range("A" & i).Value
next

回答No.2

wareware7

>セルA1からA10の値を表示したいのですがうまくいきません。
これはA1からA10までの合計値を
メッセージボックスで表示させたいということでしょうか？
もし、そうであれば

MsgBox WorksheetFunction.Sum(Range("A1:A10"))

と書きます。
Range("A1:A10").ValueではA1からA10を範囲選択しただけで
値の合計値は計算されません。