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つ分なら・・・

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

'ここでは３つ分まで書いています。
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

2 hits

▼

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

≪