[[20120516102147]]　『セルの合計を貼付するには？』（むむむ）　ページの最後に飛ぶ

『セルの合計を貼付するには？』（むむむ）

皆さんの分かりやすい、回答をみて勉強させていただいております。
全文検索をしたのですが、見つけられず質問をさせていただいております。

・マウスを使用せずにしたいのです。
・選択した範囲のセル合計(shiftt＋矢印キー）が、右下に表示されますが、それを他のセルに貼付たいのです。

　　　　　A　　　　　B　　　　C

1　　　　5　　　　　1　　　　　

2　　　　1　　　　　1　　　　　

3　　　　3　　　　　5　　　　　

例えば、　
A1+A2を、C1に貼付するには、何か方法がありますか？
よろしくお願いいたします。

 たぶんお望みの動作からは外れてると思うけども。

 C1セルで=を入力してカーソルキーでA1を選択。
 +を入力してカーソルキーでA2セルを選択。
 F9を押すと式から結果の値になるんでEnter。
 (春日野馨)

ありがとうございます^＾
この方法は、私も現在使っています。
とても件数が多いので、毎回、だいぶ時間を費やすので、
何か良い方法があればと・・・。

私の説明不足ですみません。
上記の方法だと、複数のセル「A1+A2+A3・・・」となってしまいます。
その時には、マウスで合計を表示し、それを手入力している現在なのです。

（むむむ）

 F9を押すってのを忘れないで。
 F9を押すと式がその結果の値になるよ。
 (春日野馨)

 「=SUM(」 と入力

 ←キーでA1移動

 A1セルでShift+↓キーで範囲設定。

 「F2」を押す。

 Shift+←キーで=の直後まで範囲指定。

 「F9」を押してEnter

 (GobGob)

 C1選択→Shift+Alt+=　でとりあえず=SUM(A1:B1)と自動で入力されます。

 引数が反転して編集できる状態になってますので、←でA1へ移動し、Shift+Ctrl+↓で範囲選択→Enter

 とかでは？

 （コナミ）

 マクロの例ですが、標準モジュールに下記を置き、マクロの実行でmmmSumを選択して
 オプションを押し、ショートカットキーに m（あるいは好きなキー）を設定してOK
 マクロウィンドウは「キャンセル」で終了。

 CTLキーを押しながら、A1,A2,C1 という順序で選択して、そのまま Ctl+m でどうでしょうか。
 最後に選択したセルに全体の和が入ります。
 （アクティブなセル（最後にクリックしたセル）は空でないとエラーになります。）
 (Mook)

 Sub mmmSum()
    If ActiveCell.Value <> "" Then
        MsgBox "最後に選択されたセル【" & ActiveCell.AddressLocal(False, False) & "】が空ではありません"
    Else
        ActiveCell.Value = Application.WorksheetFunction.Sum(Selection)
    End If
 End Sub

みなさん、いろいろな方法を伝授してくださいまして、
ありがとうございます。

それぞれの方法を何日間か試してみたいと思います。
本当に、皆さんの知恵は素晴らしいですね。
仕事をするのが、嬉しくなってしまいました。
本当に、助かります。
ありがとうございます。

（むむむ）

コメント返信：

[ 一覧(最新更新順) ]

[[20120516102147]] 『セルの合計を貼付するには？』（むむむ） ページの最後に飛ぶ

[[20120516102147]]　『セルの合計を貼付するには？』（むむむ）　ページの最後に飛ぶ