Excelに「押すだけ」のボタンを付ける方法 ― いつもの手作業をマクロのボタン1つにする

シクミヤの福田です。当記事では、エクセルのシートにボタンを置いてマクロを登録する方法と、押せないときの直し方を解説します。

1. ボタン1つで変わること
2. マクロの作り方は2つ
3. ボタンを付ける5つの手順
4. ボタンが押せないときの直し方
5. どのボタンを使うか
6. よくある質問
7. まとめ

ボタン1つで変わること

備品の購入を記録する、次の表を例にします。黄色が手で入れる所、緑がボタンで入る所です。

ボタン以外の方法もふくめた選び方は「エクセル自動化の方法5つ」にまとめています。

マクロの作り方は2つ

記録で作るとき

コードを貼るとき

例の表なら、次のコードをそのまま使えます。元のファイルをコピーしてから試してください。

Sub AddRecord()
    Dim nextRow As Long
    With Worksheets("入力")
        If WorksheetFunction.CountA(.Range("B1:B3")) < 3 Then  ' 空欄があれば止める
            MsgBox "空いている欄があります"
            Exit Sub
        End If
        nextRow = Worksheets("一覧").Cells(Rows.Count, "A").End(xlUp).Row + 1  ' 次に空いている行
        Worksheets("一覧").Cells(nextRow, "A").Value = .Range("B1").Value  ' 日付
        Worksheets("一覧").Cells(nextRow, "B").Value = .Range("B2").Value  ' 品名
        Worksheets("一覧").Cells(nextRow, "C").Value = .Range("B3").Value  ' 金額
        .Range("B1:B3").ClearContents  ' 入力欄を空にする
    End With
End Sub

ボタンを付ける5つの手順

1. ［開発］タブを出す

   最初は隠れています。［ファイル］→［オプション］→［リボンのユーザー設定］で［開発］にチェックを入れます。

2. マクロを入れる

   記録で作るか、Alt＋F11 →［挿入］→［標準モジュール］にコードを貼ります。

3. ボタンを置く

   ［開発］→［挿入］→ フォームコントロールの［ボタン］を選び、シートをクリックします。

   備品記録.xlsm - Excel

   ホームデータ開発

   マクロ挿入

4. マクロを選ぶ

   開いた画面で AddRecord を選び、OKを押します。

   マクロの登録

   マクロ名AddRecord

   OK

5. 文字を変えて .xlsm で保存する

   ボタンを右クリック →［テキストの編集］で、「一覧に追加」のように直します。保存は「Excel マクロ有効ブック」を選びます。

ボタンが押せないときの直し方

会社のパソコンでマクロが止められているときは、担当の部署に確かめます。使えないなら、関数やPower Queryで済まないかを先に考えます。

どのボタンを使うか

よくある質問

まとめ

• ［開発］→［挿入］→［ボタン］で置き、マクロを登録するだけで押して動く
• 毎回同じセルなら記録、行が増える表ならコードで作る
• 保存は必ず .xlsm。.xlsx ではマクロが残らない
• 押せないときは、選択中か、マクロの無効か、保存の形式から確かめる