- ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：VBAのコード forを使用した処理）
VBAのコードでセルの値を足し合わせる方法
このQ&Aのポイント
- VBAのコードを使用して、特定の条件を満たすセルの値を足し合わせる方法について質問します。
- 例えば、A列にランダムに『今日』や『明日』という文字が入っている場合に、B列の対応するセルの値を足し合わせる方法が知りたいです。
- 現在のコードでは最後の一つのセルの値しか反映されず、連続して足し合わせることができません。
- TaikooniQ1
- お礼率26% (37/138)
- Excel（エクセル）
- 回答数3
- ありがとう数2
- みんなの回答 （3）
- 専門家の回答
質問者が選んだベストアンサー
参考に2 Dim i As Long, 今日計 As Long For i = 1 To 5 If Cells(i, "A").Value = "今日" Then 今日計 = 今日計 + Cells(i, "B").Value Range("C1").Value = 今日計 End If Next i
その他の回答 (2)
- hahaha8635
- ベストアンサー率22% (801/3611)
回答No.2
For i = 1 To 5 If Cells(i, "A").Value = "今日" Then Exit for '今日が入ってる インデックスiを探す Next i For ii=i to i+5 'i ~i+5 の処理 Next ii いまいち処理内容がわからんまま書いてみた
- watabe007
- ベストアンサー率62% (476/760)
回答No.1
参考に For i = 1 To 5 If Cells(i, "A").Value = "今日" Then Range("C1").Value = Range("C1").Value + Cells(i, "B").Value End If Next i
お礼
この内容にて行けました！ ありがとうございます。