VBA IF文について

Question

ひとつ隣のセルに＋１した値を表示させたい

G列に表示されている値を隣のH列で＋１した状態で表示をIF文を使って表示させたいのですが、
うまくいきません。よろしければご教授ください。

発生している問題・エラーメッセージ

Nextで指定された変数の参照が不正です

該当のソースコード

Sub Ara()
Dim a As Integer
Dim b As Integer

For a = 3 To 32
For b = 8 To 10

If Cells(a, b) <> "" Then
    Cells(a, 9) = Cells(a, b) + 1
End If
Next a
Next b

End Sub

Answer 1

その程度なら、数式でやった方が無難では？？

Comments

[ExcelVBAer]

勘違いされてそうですが、ここは技術者のコミュニティであって、指南・指導を求めるのであれば、本の１冊でも勉強されてから質問するべきだと思います。

[m.ts10806]

学校の課題か何かのような気もしますね。

[退会済みユーザー]

すみません。一応IT業界に転職して1週間で今現場で業務の傍ら課題をもらってる形です。

本1冊を勉強しながら分からないところを質問してますが、不快に思われたならすみません。

[ExcelVBAer]

オススメは「ExcelVBAを実務で使い倒す技術」
どちらかというとIT目線で書かれてるから、役立つことが多いと思うよ。
先輩も知らない事が書かれているかもね～

Answer 2

G列+1の値をH列に入れるだけですので、二重ループは必要ありません。

Sub Ara()
    Dim a As Integer
    For a = 3 To 32
        ' G列を参照
        If Cells(a, 7) <> "" Then
            ' H列にG列+1の値を代入
            Cells(a, 8) = Cells(a, 7) + 1
        End If
    Next a
End Sub

Comments

[退会済みユーザー]

ありがとうございます。さっそく試してみようと思います。

[ttyp03]

結果はどうだったのですか？
ベストアンサーに選ばれなかったので、間違った回答だったのでしょうか？

Answer 3

まず、「うまくいきません」だけでは何もわかりません。
何がどううまくいっていないのか、エラーが発生しているのか、動いてはいるけど期待した結果にならないのか。
それが書いていないということは「そんなの回答する人がコードを動かして確認してよ」って意味になってしまいますよ。

追記
すみません、「Nextで指定された変数の参照が不正です」が出ているという部分を見落としていました。
これが出ているのならFor～Nextループを真っ先に確認しましょう。

---

初心者さんなのかもしれませんが、技術者であるなら（またはそれを目指しているのなら）行き詰った時も落ち着いてコードを見直す習慣を身につけましょう。

・問題が発生する箇所はどこですか？
・G列の値に＋１しているのはどこですか？
・質問には「IFを使用したい」とだけ書かれていますが、IFで判別したい条件は何ですか？

ここらへんを意識してコードに１行ずつコメントをつけてみてください。
やりたいことと実装の矛盾が見えやすくなります。

今回は私のほうでコメントをつけてみました。
やりたいことと矛盾しているのはどこですか？
うまく動かなそうなところはどこですか？

Sub Ara()
    Dim a As Integer
    Dim b As Integer
    '行ループ(3行目～32行目)
    For a = 3 To 32
        '列ループ(H列～J列)
        For b = 8 To 10
            If Cells(a, b) <> "" Then
                'b列a行が空でない場合
                'I列a行のセルにb列a行のセルの値＋１をセットする　⇒G列は計算していない
                Cells(a, 9) = Cells(a, b) + 1
            End If
        Next a  '行ループここまで？⇒ネスト誤り
    Next b  '列ループここまで？⇒ネスト誤り
End Sub

がんばってみてください。

Comments

[退会済みユーザー]

ご回答ありがとうございます。

上記のご指摘確かにその通りです。IT業界に入って1週間足らずのため、少し慌ててたかもしれません。

落ち着いて考えることを心がけていきたいと思います。