• ベストアンサー

選択した行の値だけを合計

選択した行の値だけを、その行のどのセルをダブルクリックしても合計する方法を教えてください。 A列は、ID,B・C列は値があらかじめ入力されています。 D列に、合計を表示させたいです。 関数・VBAでは、一括して合計はでましたが、VBAで必要な行だけの合計の出し方がわかりません。 VBAの勉強のために活かしたいく、よろしくお願いします。

質問者が選んだベストアンサー

  • ベストアンサー
  • tsubuyuki
  • ベストアンサー率45% (699/1545)
回答No.1

要するに 例えば２行目をダブルクリックすると Ｄ２セルに　=B2+C2　の結果を表示したい という事でしょうか。 だとしたら Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 　　Cells(Target.Row, 4) = Cells(Target.Row, 2) + Cells(Target.Row, 3) End Sub を該当のシートのモジュールに貼ればＯＫです。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 　　Range("D" & Target.Row).FormulaR1C1 = "=SUM(RC[-2]:RC[-1])" End Sub こう書くと、Ｄ２セルに「=SUM(B2:C2)」と自動で入力します。

bike5050
質問者

お礼

早々の回答、本当にありがとうございます。 大変助かりました。

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. その他MS Office製品

関連するQ&A

  • 選択セルに計算結果を表示

    エクセルVBAで選択セルに計算結果を表示したいのですが、教えてください。 A列には、ID　B・C列には値が入力されています。 下記の構文ですと、行のどこをダブルクリックしても、D列に合計が表示されます。 D列以降のどの行をダブルクリックしても、アクティブなセルに合計を表示したいです。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cells(Target.Row, 4) = Cells(Target.Row, 2) + Cells(Target.Row, 3) End Sub

  • BD2列の同じ行に値があればD列の数値を合計する

    BD2列に数値が入力されそれぞれの列の同じ行に数値が入力されていればD列セルの数値を合計しD8セルに入力したい（同じ数値でなくてよい）のですがどなたか関数が解るかたよろしくお願いします。Windows10office2013です。

  • EXCEL 2003で条件に合った合計を求めたい

    ______A ____B____ C_____D 1___111___ 1 ___10___ 60 2___111___ 2 ___10 3___222___ 2 ___10 4___333___ 1 ___10 5___333___ 2 ___10 6___333___ 3 ___10 7___444___ 1 ___10 8___444___ 3 ___10 9___555___ 1 ___10 Excel 2003環境において、上記A1:C9を対象に関数で下記条件を元に数式をD1に入力して値を求めたいです。 条件： A列の同じ値のセルを一つのグループとし、かつその中で、B列で1から始まる連番となっているグループを対象にC列のセルを合計する。 上記のセル範囲で条件に合う行は1,2,4,5,6,9行目で答えは60になります。 SUMPRODUCT関数やIF関数を併用してみましたが、うまく作ることができませんでした。 なんとか作業列やVBAを用いずに一つの数式で済ませたいです。 よろしくお願いします。

  • エクセルで表示行の値だけの合計を求めるには？

    たとえばSUM関数を使うと、指定したセル範囲の中に非表示の行があった場合、その行の値も合計に含まれますが、それを含まない合計（非表示の行を無視する合計）を求めるにはどうしたらよいですか。 よろしくお願いします。

  • Excelで表のある日以前の値を合計する sumif?

    こんにちは。 ExcelでA列の1行目に2010/1/1から31行目に2010/1/31まで、日付が並んでいます。 B列の1行目に1から31行目に31まで、1ずつ増える数字が並んでいます。 セルC1に2010/1/10と入力した場合に、セルD1に55と返すような数式を書きたいと思っています。 要するに、セルC1から以前の日をA列で見つけて、同じ行のB列の値を合計したいのです。 sumifを使ってみましたが、うまくいきません。 ご指導、お願いいたします。

  • エクセル　3行ずつの合計

    エクセルの質問です。 A列にID、B列に数値が入力されているとします。そしてC列にB列の2行ずつの合計を計算したいのですが、どうしたらいいでしょうか。 A　｜　B　 ｜　C 1　｜　25　｜　ID1から3の合計 2　｜　24　｜　ID4から6の合計 3　｜　37　｜　ID7から9の合計 4　｜　32　｜　ID10から12の合計 ・ ・ ・ 数百行はあるのでいちいちちょこちょこと合計するのが苦痛なんです。よろしくお願いします。

  • Excel セルの値で行を選ぶ

    Excel セルの指定に関して質問です。 セルの値で列（行）を選択するにはどうするのでしょうか？ 例えば　B5に "3"が入っていたらC列(C4セル)、"4"が入っていたらD列(D4セル) を参照するというような具合に、ある特定のセルの値によって参照する列を変えたいのですが。 R1C1形式中にセルの参照をさせれば可能になりそうですが記述方法が分かりません。 よろしくお願いします。

  • 合計が0の行を削除

    計算式が入力されており、合計が0（A,B列に数値が入力 されていない）の行を削除するVBAを教えてください。 　　A　　B　　C　 　 1 　10 　5 15 2 　　　　　　0 3　　20　　6　26 C列に計算式が入力されています。 50行目まで入力されています。 オートフィルタを使用し、抽出された行を削除する方法が あると思いますが、VBAで作成する方法を探しています。 よろしくお願いします。

  • 行を追加した時の、値の合計範囲

    行を追加するマクロがあり、実行すると「合計」行の1行上に行が追加されます。 行が追加された分「合計」のある行が下がっていくんですが、その関数が変動してくれなくて困っています。 　　　Ａ　　　Ｂ　　　Ｃ　　　Ｄ　　　Ｅ　　　Ｆ　　　Ｇ　　　Ｈ　　　Ｉ 1 　　　商品の基本データ ・　　　　・ ・　　　　・ 14　　　商品の基本データ 15 16　　 　　日付 　入庫 　出庫　　　　　　　　　　　　　　 本日在庫　 17　2012/04/01 　100　　　　　　　　　　　　　　　　　　 　　100 18　2012/04/05 　50　　　　　　　　　　　　　　　　　　　 　 150 19　2012/05/03　 　　　　100　　　　　　　　　　　　　　　 　50 20　2012/05/04 　300　　　　　　　　　　　　　　　　　　　　 350 21　　　　・　　　　　　　　　150　　　　　　　　　 　　　　　　 200 22　　　　・　　　　　　　　　　50　　　　　　　　　　　　　　　　 150 23　　　　・　 　　　　200　　　　　　　　　　　　　　　　　　　 　350 24　　　　・　　　　　　　　 　10　 　　　　　　　　　　　　　　 　340 (ここに行が挿入されていく) 25 合計　　　　　　　(1)　　 (2)　　　　　　　　　　　　　 　　340(=(1)-(2)) (1)=IF(COUNT($C$17:$C24)=0,"",SUM($C$17:$C24)) (2)=IF(COUNT($D$17:$D24)=0,"",SUM($D$17:$D24)) 現在こんな感じで式を入れています。$C24と$D24が$C25...、$D25...等動いていってくれるといいんですが・・。 他にもSUMPRODUCTやOFFSETなど色々試しましたが、上手くいきません。 行が増えていく(セル参照範囲が変わってくれない)、C:CやD:Dとして設定できない、データが連続していない、などが原因だと思っています。 A列には何もありません。 E～H列は他にもデータが入っています。 マクロで、B17からHの合計の1行上までを日付でソートすることがあります。 合計行の上に空白行C25を入れ、合計行C26にSUM(C17:C25)とし、 挿入する位置を空白行C25の上とすれば、SUMは挿入行を抱えていってくれるんですが、 この場合空白の行25を高さ0の不可視にさせなければならず、利用する側としては21・22・23・24・26と、25が飛んでいるのが気になるものと思います。 できればそういう疑問を持たせることなく可動させたいです。 因みにVBAでWorksheet_ChangeやWorksheet_Selectionhangeなどは既に使用しているので、 マクロで自動で合計値を入力することはできないと思います。 ボタンで動かすマクロでなら出来そうですが、合計を逐一表示するのにマクロボタンを設置するのもどうかと思うので・・。 いくらネットで探しても方法が見つからなかったので、何方かご教授宜しくお願い致します。

  • EXCEL VBA 行の値を累計したいのですが・・

    VBA初心者です。 VBAでEXCELの行の値を累計したいのですが、プログラムの仕方がわかりません。 どなたかわかる方教えてください。 　　　 A　　 　B　　 C　　　 D　　　E　・・・・ 1　　1000　3000　2000　4000　3000　 2　　2000　5000　1000　3000　2000　 3　　4000　2000　3000　1000　5000　　 : 　　　 実行結果 　　 　A　　　 B 　　 C　　 　D 　　 E　　・・・・ 1　　1000　4000　6000　10000　13000 2　　2000　7000　8000　11000　13000　　　←行の値の累計 3　　4000　6000　9000　10000　15000 : 行と列はたくさんあって、最後のセルまで累計する方法を教えていただけるとありがたいです。 どうぞよろしくお願いします。m(_ _)m

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する