Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


15712 / 76734 ←次へ | 前へ→

【66497】条件で変わる増える足し算
質問  スコーピオ  - 10/9/6(月) 21:46 -

引用なし
パスワード
   質問させてください。
Sheet1のA2セルはリスト選択になっていて、選ばれたリストに応じて
A4セルに応答が異なるようにと考えています。

1つ分ならSheet2のB2のみ
2つ分ならSheet2のB2+C2
3つ分ならSheet2のB2+C2+D2



7つ分なら・・・

となるように。
いま、7つのif文でまかなってきたのですが、こちらの掲示板をみてループで対応できるのではないかと感じました。
でも、足し算の部分をどう書いていいのか分かりませんでした。
書き方を示してくださると助かります。
よろしくおねがいします。


'ここでは3つ分まで書いています。
Sub macro1()
 If Worksheets("Sheet1").Range("A2") = "1つ分" Then
  Worksheets("Sheet1").Range("A4") = Worksheets("Sheet2").Range("A2") + Worksheets("Sheet2").Range("B2")
 End If
 If Worksheets("Sheet1").Range("A2") = "2つ分" Then
  Worksheets("Sheet1").Range("A4") = Worksheets("Sheet2").Range("A2") + Worksheets("Sheet2").Range("B2") + Worksheets("Sheet2").Range("C2")
 End If
 If Worksheets("Sheet1").Range("A2") = "3つ分" Then
  Worksheets("Sheet1").Range("A4") = Worksheets("Sheet2").Range("A2") + Worksheets("Sheet2").Range("B2") + Worksheets("Sheet2").Range("C2") + Worksheets("Sheet2").Range("D2")
 End If
End Sub
3 hits

【66497】条件で変わる増える足し算 スコーピオ 10/9/6(月) 21:46 質問
【66498】Re:条件で変わる増える足し算 kanabun 10/9/6(月) 22:07 発言
【66499】Re:条件で変わる増える足し算 kanabun 10/9/6(月) 22:10 発言
【66500】Re:条件で変わる増える足し算 UO3 10/9/6(月) 22:10 回答
【66502】Re:条件で変わる増える足し算 スコーピオ 10/9/6(月) 23:27 お礼
【66503】Re:条件で変わる増える足し算 kanabun 10/9/6(月) 23:31 発言

15712 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free