選択したセルの合計値をクリップボードに

Excelねたばかり続けるのもあれですが、これは需要がありそうなので。

Excelでは複数のセルを選択すると、その合計値がステータスバーに表示されますが(設定次第だけど、デフォルトではこうなってて、合計値を消してるひとはほとんどいまい)、この数字をほかのセルに値貼りつけしたいとなると結構面倒だったりします。ターゲットのセルで=sum(A1:B2)とかやって、Ctrl-Alt-v vとかやるのはちょー面倒。ってことで、ここは一発マクロをば。

よくわかんないけど、このマクロ読み込むとCtrl-Shift-cに割り当てられるんじゃないかなあ。見てのとおり、エラー処理は全くしてません。

Attribute VB_Name = "mCopySelectionSum"
Option Explicit

Public Sub CopySelectionSum()
Attribute CopySelectionSum.VB_ProcData.VB_Invoke_Func = "C\n14"
    With New DataObject
        .SetText WorksheetFunction.Sum(Selection)
        .PutInClipboard
    End With
End Sub
Posted on

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です


*

次のHTML タグと属性が使えます: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>