antique-appです！
本日は、私が愛用するExcelマクロをひとつ紹介させていただきます。
コードは短いですが、資料作りや経理業務に役に立つこと請け合いです！
できること
Excelの機能に、「オートカルク」と呼ばれる機能があります。
数値が含まれるセルを複数選択すると、画面の右下に合計値などの計算結果が表示される、あれです。
標準のExcelの機能では、この合計値をコピーして貼り付けするといったことはできません。
せっかくExcelがセルの値の合計値を出してくれているのに、それをコピーできないなんて、やきもきしますよね。
私もこのマクロを使う前は、紙に鉛筆でメモしたり、電卓に数字を打ち込んだりしていました。でも、それだと、時間がかかるしミスも生じてしまいます。
しかし、このマクロを使うことにより、セルの値の合計値をクリップボードにコピーし、ほかのセルやシートに貼り付けられるようになります！
作り方
まずは、マクロの編集画面を開きましょう！
そして、以下のコードを標準モジュールに貼り付けます。
Sub オートカルクのコピー()
Dim a, b As Range
Dim i As Currency
Set a = Selection.SpecialCells(xlCellTypeVisible)
For Each b In a
i = i + b.Value
Next b
'クリップボードに合計値をセットしている
With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
.SetText i
.putinclipboard
End With
MsgBox i & "をコピーしました。"
End Sub
そして、マクロのショートカットを登録します。
なんのキーでもよいのですが、ここではわかりやすくCtrl+Shift+Cにしておきましょう。
※割り当てるキーの設定について、デフォルトはCtrl+□ですが、Cを入力すると、勝手にCtrl+Shift+Cに変わります。
以上で完成です！
簡単でしょう？
使い方
数値が含まれるセルを複数選択し、Ctrl+Shift+Cを同時押しします！
コピーした数字がメッセージとして表示されるので、オートカルクの合計値と一致していることを確認しましょう！
あとは、好きなところに貼り付けするだけです！
注意点として、選択範囲に数値以外の値が含まれているとエラーになりますのでお気をつけください。
また、Windows以外のOSでは正常に動作しません。
（私の実行環境はWindows10、Excel2016でした）
なお、作成に当たっては以下のサイト様を参考にさせていただきました。
tosk.hatenablog.com
本日は以上です。
みなさまの業務効率化の一助となれれば幸いです。
