●せっかく作ったマクロなのに

会社の事務作業を効率的に行うためにマクロを作ったはいいのですが、エクセルすら危うい他の社員に「開発タブをクリックして、マクロを選んで」なんて言っても難しいです。

そんな時に便利なのがボタンの設置です、これならだれでも直感的に使えますし、マクロが多くなって探すのが面倒という時にも役立ちます。

●前提として

行いたい作業のマクロを作っているものとします。

今回はＡ1を選択して「ボタンがあったら便利だよ」という文字を打つマクロを作りました。

●手順

まず、「開発タブ」にある「挿入」を押すと下のようになるので、「ボタン」をクリック。

次に適当な大きさになるようドラックします、後から大きさを変えられるので適当でいいです。

すると、このボタンを押したときにどのマクロを起動するのか選択します、今回はボタン便利という名前にしました。

ボタンを押してみた結果、ちゃんとＡ1に文字が入力されました。

●まとめ

ボタンを作れるようになれば、エクセルが苦手な人でも簡単にマクロを扱えるようになります。

発展で「一つのボタンを押すと、メニュー画面を出す」ということもできるようになるので、一気にシステムとしての利便性が高くなります、後日更新いたします。

●動画はこちら

當間

沖縄の中古不動産市場を活性化させるために日々活動しています。少し変わった物件が好きな、株式会社イエカリヤ代表です。プロフィールはコチラ。

事務作業をこなす上でエクセルはとても便利です、特に、一つの案件に対してファイルを複数作るのではなく、ひとつのブック内で入力シートと出力シートに分けることで生産性がグンとあがります。

しかし、シートを作りすぎると印刷する際、

「シートの選択」

↓

「部数の設定」

上の作業を行います、2～3シートならまだしも5シート以上あると一気にめんどくさくなりますし、効率的ではありません。

このような状態だと、印刷したいシート名を探すだけでも手間です。

そこで今回は簡単にわかりやすく印刷できるマクロを作ります。

●下準備

まず、「入力」シートに印刷したいシート名とその枚数を入れられる欄を作ります。

特に、シート名は印刷するかどうかの判定に使いますので正確にお願いします。

●全体像

Sub insatu() ‘印刷したいシートの部数を指定して印刷
Dim i
Dim a As String

i = 2

Do
Worksheets(“入力”).Activate
If Cells(i, 1).Value = “” Then
Exit Do
End If

If Cells(i, 2).Value > 0 Then
a = Cells(i, 1)
Sheets(a).PrintOut Copies:=Cells(i, 2).Value
End If

i = i + 1
Loop

End Sub

●解説1

Sub insatu() ‘印刷したいシートの部数を指定して印刷
Dim i
Dim a As String ‘aにシートの名前を入れる

i = 2

ここまでで関数を定義します、aはシート名。iは今回、シート名が入っているかの判定をする行が2行目なので2にしています。

●解説2

Do
Worksheets(“入力”).Activate
If Cells(i, 1).Value = “” Then
Exit Do
End If

まず「入力」のシートを表に出します、そこのCells(i, 1).Value、つまりシート名が入っていれば繰り返していきます。

●解説3

If Cells(i, 2).Value > 0 Then
a = Cells(i, 1)
Sheets(a).PrintOut Copies:=Cells(i, 2).Value
End If

「枚数」が0より大きければ印刷に移ります。

a = Cells(i, 1) で「入力」の印刷したいシートに入っているシート名をaに格納します。

次の行で実際の印刷操作と枚数が決まります。

●解説4

i = i + 1
Loop

End Sub

「印刷したいシート」が空になるまで繰り返します。

●まとめ

これを使うと操作が早くなるだけでなく、「あれ？どこまで印刷したっけ？」と迷うこともなくなるのでとても便利です。

あくまで独学なので、もっと簡単でいい方法があればぜひ教えてください。

當間

沖縄の中古不動産市場を活性化させるために日々活動しています。少し変わった物件が好きな、株式会社イエカリヤ代表です。プロフィールはコチラ。