【マクロ】Fon nextステートメントによる変数への数値格納、２回以上について

【知りたい事】
以下コードを事項すると、メッセージBOXに１００と表示されます
私は、高橋が全部で２行分あるので、セルD2の１とD3　１００を足して
変数Aには、１０１　が格納されていると思います

しかし、答えが１００なのが、疑問です

ご存じの方、教えて下さい

【表】
　　　A列　B　　C　　D
1行　鈴木 1 1 1
2行　高橋 1 1 1
3行　高橋 100 100 100

【コード動きます】
Sub 変数について()
Dim i As Long, A As Long
For i = 1 To 3
If Cells(i, 1) = "高橋" Then
A = Cells(i, 1).Offset(0, 2)
End If
Next i
MsgBox A
End Sub

No.3 ベストアンサー 回答者： 銀鱗 回答日時： 2024/08/11 02:34

足し算していないという事はすでに回答されている通りです。

ですので足し算するというのは正解なんですが……。

A = Cells(i, 1).Offset(0, 2)
　　↓
A = A + Cells(i, 1).Offset(0, 2)

(´・ω・`) 本当にこれで良いのかなぁ。
質問文には、D2セルとD3セルの値を足したいような事が書かれています。
細かいようですが、

A = A + Cells(i, 1).Offset(0, 2)
　　　　　　　　　　　　　　↓
A = A + Cells(i, 1).Offset(0, 3)

のような気がするんだよね。

この回答へのお礼

ご指摘ありがとうございます

D列の指定は、A列からみて⇒Offsetに（0, 3）でした
A = A + Cells(i, 1).Offset(0, 3)

お礼日時：2024/08/11 09:35

No.2 回答者： ssawatake 回答日時： 2024/08/10 21:11

Aには何も足して無いよ。

足し算しないと。

A=0 ←←←追加する
For i = 1 To 3
If Cells(i, 1) = "高橋" Then
A = A + Cells(i, 1).Offset(0, 2) ←←←修正する
End If
Next i
MsgBox A

この回答へのお礼

A＝0もちゃんと定義して
Aを毎回加算する場合は、A+をつける必要がありますね

ご指導ありがとうございます

お礼日時：2024/08/11 00:02

No.1 回答者： artoo 回答日時： 2024/08/10 20:18

足し算処理が書かれておらず、毎回代入だけなので、最後に代入された値が入っています。

足したいなら足しましょう。
ループ前に、
A=0
Forの中を下記に書き換え
A = A+Cells(i, 1).Offset(0, 2)

この回答へのお礼

A＋が入っていないからですね。また、その場合には、最後に
代入された値が、変数Aの数値になるんですね

ご指摘ありがとうございました

お礼日時：2024/08/11 00:01