Excel VBA質問箱 IV

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

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


5800 / 13646 ツリー ←次へ | 前へ→

【48797】足し算 セル 07/5/9(水) 11:52 質問[未読]
【48798】Re:足し算 ウッシ 07/5/9(水) 12:33 発言[未読]
【48799】Re:足し算 セル 07/5/9(水) 13:23 質問[未読]
【48800】Re:足し算 ウッシ 07/5/9(水) 13:26 発言[未読]
【48801】Re:足し算 セル 07/5/9(水) 13:40 お礼[未読]

【48797】足し算
質問  セル  - 07/5/9(水) 11:52 -

引用なし
パスワード
   こんにちは。

セルを横軸に足し算したいんですが、
セルの数が固定出来ないんですよ。

A1+B1+C1・・・の様な感じで足したいのですが
足し算を行うセルの数は数値が入っているところまでを
足し算したいのですがどうすれば良いのでしょうか?

初歩的な質問で申し訳ございませんが
どなたか教えていただけるでしょうか?

宜しくお願い致します。

【48798】Re:足し算
発言  ウッシ  - 07/5/9(水) 12:33 -

引用なし
パスワード
   こんにちは

MsgBox Application.WorksheetFunction.SumProduct(Rows(1))
MsgBox Application.WorksheetFunction.Sum(Range("A1", Range("IV1").End(xlToLeft)))

>数値が入っているところまで
あまり意識しなくても良さそうですけど・・・。

【48799】Re:足し算
質問  セル  - 07/5/9(水) 13:23 -

引用なし
パスワード
   ▼ウッシ さん:
>こんにちは
>
>MsgBox Application.WorksheetFunction.SumProduct(Rows(1))
>MsgBox Application.WorksheetFunction.Sum(Range("A1", Range("IV1").End(xlToLeft)))
>
>>数値が入っているところまで
>あまり意識しなくても良さそうですけど・・・。


度々、申し訳ございませんが
メッセージボックスではなくて、
どこかのセルにその計算結果を表示する場合はどの様に書けば良いのでしょうか?
例えば今回の回答をB1のセルに表示するとしたら・・・。

度々申し訳ございませんが宜しくお願い致します。

【48800】Re:足し算
発言  ウッシ  - 07/5/9(水) 13:26 -

引用なし
パスワード
   こんにちは

B1だと循環参照になってしまいますよ。

Range("A2").Value = Application.WorksheetFunction.Sum(Range("A1", Range("IV1").End(xlToLeft)))

のように。

【48801】Re:足し算
お礼  セル  - 07/5/9(水) 13:40 -

引用なし
パスワード
   ▼ウッシ さん:
>こんにちは
>
>B1だと循環参照になってしまいますよ。
>
>Range("A2").Value = Application.WorksheetFunction.Sum(Range("A1", Range("IV1").End(xlToLeft)))
>
>のように。


すみません・・・。
A2のつもりでした。

上手くできました。
有難うございました。

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