オートカルク機能で表示された合計値をコピーするマクロ【Excel VBA】

antique-appです！
本日は、私が愛用するExcelマクロをひとつ紹介させていただきます。
コードは短いですが、資料作りや経理業務に役に立つこと請け合いです！

できること

Excelの機能に、「オートカルク」と呼ばれる機能があります。
数値が含まれるセルを複数選択すると、画面の右下に合計値などの計算結果が表示される、あれです。

f:id:antique-app:20190207120516p:plain — これです

標準の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に変わります。