[マクロ初心者です]以下のコードの間違い理由がわかりません

Question

かなり基礎的なことで申し訳ないのですが、以下のコードでエラーが生じる理由がわかりません。どなたかご回答をお願い致します。
特に
単価 = Cells(i, 1)
数量 = Cells(i, 2)
この変数の代入が誤っている理由がわからないです。
どなたか教えて頂けますと、幸いです。
宜しくお願い致します。

Sub 練習問題()

Dim 単価, 数量, i As Long
単価 = 1
数量 = 1
i = 1
単価 = Cells(i, 1)
数量 = Cells(i, 2)

For i = 2 To 13
Cells(i, 3) = 単価 * 数量
Next i

End Sub

Comments

[meg_]

エラー発生場所とエラーメッセージも掲載してください。

[athuhiro]

meg_様
コメント有難うございます。
エラー発生場所は
単価 = Cells(i, 1)

エラーメッセージは

実行時エラー"1004"
アプリケーション定義またはオブジェクト定義にエラーがあります
と表示されております。

[otn]

エラーメッセージは質問文に追記しましょう。

Answer 1

こんな感じかな？

Sub 練習問題()

    Dim 単価 As Double, 数量 As Double, i As Long

    For i = 2 To 13
        単価 = Cells(i, 1).Value2
        数量 = Cells(i, 2).Value2
        Cells(i, 3).Value = 単価 * 数量
    Next
End Sub

以下のコードでエラーが生じる理由がわかりません。

こちらでは、エラーになりませんでした。

i = 1

多分、試行錯誤の中で後で書かれたんではないかと推測します。

変数iが初期値の0だと、存在しないセルを指定することになるので、
オブジェクトの定義エラーになります。

変数の宣言は型の指定をちゃんと明示してください。
提示のコードは
単価と数量はVariant型を指定している意味になります。
ま、今回の件ではVariant型でも問題ないですが。
Valueプロパティを使うかValue2プロパティを使うかは気持ちの問題で、
通貨型とかの値ではないことが確実であればValueで問題ないです。
こちらでは、その辺が解らないので、Value2で書いてみました。

Answer 2

間違ってる場所はおそらく下記の3個所です。

1.単価 = Cells(i, 1)
2.数量 = Cells(i, 2)
3.Cells(i, 3) = 単価 * 数量

(A)
1.正しくは、単価 = Cells(i,1).Value
2.正しくは、数量 = Cells(i,2).Value
3.正しく、Cells(i,3).Value = 単価 * 数量

Excel側のセルの値を変数に代入したい場合には、Cells(行番号,列番号)の後に
.Valueが必要です。1と2の場合ですとセル自体を代入してることになりますので型が合わず
エラーが起きます。

Comments

[otn]

これは関係ないです。

[athuhiro]

Ainey様
回答有難う御座います。
間違いに気が付くことが出来ました。

単価 = Cells(i, 1)
数量 = Cells(i, 2)
をIF文の中に入れたことで解決しました。

Answer 3

対象のシートがアクティブになっていないのでしょう。
GUIで対象シートを選択して、そのシートが前面になっている状態にしてください。
（もしくはVBAで対象シートをactivateする）

Comments

[athuhiro]

otn様
回答ありがとうございます。
こちらも動かない原因の1つでした。
有難うございました。