マクロ講座テキスト

Size: px

Start display at page:

Download "マクロ講座テキスト"

かつかげにいだ
5 years ago
Views:

1 エクセルが自動化するマクロ VBA の魔法超入門編 ( エクセル兄さん ) テキスト ( 第 0 章 ~ 最終章 ) 内容第 0 章マクロはこんなに便利! サンプルマクロを使ってみよう... 3 サンプルを使ってみよう... 3 セキュリティの警告を解除してマクロ付きのブックを開く... 3 [ 補足 ] ファイルがどうしても開けない場合... 4 [ サンプルマクロ1] 一発で作業できる8つのボタン... 6 [ サンプルマクロ2] 便利なフォーム入力機能 [ サンプルマクロ3] 請求書を一発で作成する [ サンプルマクロ4] データをブックやシートに分割して出力! 第 1 章マクロ入門 ( マクロの記録 ) 学習ファイルのダウンロードゴール像 section1-goal.xlsm でこの章のゴールを見てみようマクロを作る準備 ( 開発タブの表示 ) [ 実習 ] マクロの記録をしてみよう [ 実習 ] マクロの記録をしてみよう [ 一発で書式変更 ] [ 実習 ] ボタンを押せばマクロが実行できるようにしよう [ 実習 ] ショートカットキーでマクロを実行できるようにしよう第 2 章 VBA を記述してみよう [ 実習 ] 途中ファイルを開いて VBE の標準モジュールを開く [ 実習 ] 最初の VBA こんにちはを作ろう [ 実習 ]VBA 入力こんにちはマクロ [ 実習 ] こんにちはをこんばんはに変えてみよう [ 実習 ] セルに数値を挿入してみよう [ 実習 ] セルに文字列を挿入してみよう [ 実習 ] 一発で割引価格にしよう! 算術演算子 [+][-][*][/]

2 [ 実習 ] 一発で様を付けよう! 文字列を連結する記号は [&] 第 3 章変数を使ってもっと便利に! [ 実習 ]Integer 型の変数を使ってみよう [ 実習 ] 割り引きマクロを書き換えて変数を使ってみよう [ 実習 ] 様を付けるマクロを書き換えて変数を使ってみよう第 4 章もっと便利な VBA 関数を使おう! [ 実習 ]MsgBox 関数の引数を指定してみよう [ 実習 ] 一発で様をさんに置き換えるマクロを作ろう [ 実習 ] 一発で様さんを削除するマクロを作ろう [ 実習 ] 一発で日付を 1 か月後に書き換えるマクロを作ろう [ 実習 ] 一発で日付を 1 か月前に書き換えるマクロを作ろう最終章さらに広がるマクロ VBA の世界へボーナスレクチャー

3 第 0 章マクロはこんなに便利! サンプルマクロを使ってみようここではサンプルマクロを使ってみることでマクロ (VBA) を覚えるとどんなことができるようになるのかイメージをつかむことができますサンプルを使ってみようパソコンから以下のダウンロードページを表示して 2 つのサンプルマクロをダウンロードして下さいセキュリティの警告を解除してマクロ付きのブックを開くダウンロードが済むと通常ならダウンロードフォルダに保存されますファイルを開いてみましょう 3

4 このような表示が出た場合は編集を有効にするをクリックして下さい以下のような警告が表示された場合はコンテンツの有効化をクリックして下さい [ 補足 ] ファイルがどうしても開けない場合 Excel の画面にてファイルをクリックしますオプションをクリックします 4

5 セキュリティセンターセキュリティセンターの設定をクリックしますマクロの設定をクリックし警告を表示してすべてのマクロを無効にするにチェックを入れ OK ボタンをクリックして下さい 5

6 [ サンプルマクロ1] 一発で作業できる8つのボタンダウンロードしてある macro_demo1.xlsm を開いて超入門ワークシートを表示して下さい受注データの商品名の列から1つのセルを選択し一発で書式を変更ボタンをクリックしてみましょう一発で書式が変更されました書式変更されたセルを選択して一発で書式をクリアボタンをクリックしてみましょう一発で書式がクリアされました 6

7 次に一発で割引ボタンを使ってみましょう金額の列から 1 つのセルを選択して一発で割引ボタンをクリックして下さいすると金額が半額になりましたつづいて一発で様を付けるボタンを使ってみましょう会社名の列から 1 つのセルを選択して一発で様を付けるボタンをクリックします 7

8 すると会社名に様が付加されましたまた様をさんに変換ボタンを使ってみましょう会社名の列から 1 つのセルをクリックして様をさんに変換ボタンをクリックします会社名様がさんに変換されました 8

9 続いて一発で様さん削除ボタンを使ってみましょう会社名の列から 1 つのセルを選択して一発で様さん削除ボタンをクリックします会社名に付加されていた様やさんが削除されました最後に日付を一か月後へ / 一か月前へボタンを使ってみましょう日付の列から 1 つのセルを選択して日付を一か月後へ / 一か月前へボタンをクリックしてみましょう日付が 1 か月後 /1 か月前に変更されました 9

[ サンプルマクロ2] 便利なフォーム入力機能フォームに入力することで Excel にデータが入力される機能を体験してみましょうフォーム入力のワークシートを開いて下さいデータ入力ボタンをクリックして下さいフォームが表示されます 1 日付を入力することができます 2 仕入先の会社名をドロップダウンリストから選択できます ( 直接入力することもできます

10 [ サンプルマクロ2] 便利なフォーム入力機能フォームに入力することで Excel にデータが入力される機能を体験してみましょうフォーム入力のワークシートを開いて下さいデータ入力ボタンをクリックして下さいフォームが表示されます 1 日付を入力することができます 2 仕入先の会社名をドロップダウンリストから選択できます ( 直接入力することもできます ) 3 商品 ID を選択できます ( 直接入力することもできます ) 4 商品名は商品 ID に合わせて自動入力されます ( 直接入力することもできます ) 5 単価は商品 ID に合わせて自動入力されます ( 直接入力することもできます ) 6 個数を選択できます ( 直接入力することもできます ) 7 入力が済んだら OK ボタンをクリックして下さい 10

11 [ ]( 閉じるボタン ) をクリックしましょうすると新しいデータが入力されていることがわかります 11

12 [ サンプルマクロ 3] 請求書を一発で作成する受注データからボタン 1 つで請求書を作成するマクロを使用してみましょう受注データワークシートをクリックして下さいシートの右側にある請求書作成の下のセルをドロップダウンリストから変更しましょう ( ここでは VBA 商事を選択しています ) つづいて請求書作成ボタンをクリックして下さい 12

13 シートが自動的に切り替わり請求書が自動入力されました右側にある PDF 出力ボタンをクリックして下さいデスクトップ画面に PDF ファイルが出力されました次の作業のためにブックを閉じておきましょう [ ] ボタンをクリックして保存しないを選択して下さい 13

14 [ サンプルマクロ4] データをブックやシートに分割して出力! 1つの表に入力されているデータをシートに分割したりブックごとに分けて出力するマクロを使用してみましょうダウンロードしてある macro-demo2.xlsm を開いて下さい会社名と金額の表が入力されていますシート別に出力ボタンをクリックしてみましょうシート別に出力しましたと表示されます OK ボタンを押してシートを確認してみましょう A 社 ~ D 社までのシートに分けて出力されていることが確認できますつづいてブック別に出力ボタンをクリックしてみましょう 14

15 はいボタンをクリックして下さい OK ボタンをクリックして下さいこのサンプルマクロ (macro-demo2.xlsm) が保存されているフォルダーと同じフォルダーに新しい Excel ブックが保存されていることが確認できます ( 今回はダウンロードフォルダーを開いています ) 次の作業のためにブックを閉じておきましょう保存しないボタンをクリックして下さい 15

16 第 1 章マクロ入門 ( マクロの記録 ) 学習ファイルのダウンロード以下のページからファイルをダウンロードして下さい section1-goal.xlsm 第 1 章のゴール像をつかむことができる完成ファイルです section1.xlsx これから第 1 章で編集していくための素材ファイルですゴール像 section1-goal.xlsm でこの章のゴールを見てみようダウンロードしてある section1-goal.xlsm ファイルを開いて下さい 16

17 この章のゴール像となるマクロとそのボタンを確認することができます ( 次の作業のためにブックを閉じておきましょう ) マクロを作る準備 ( 開発タブの表示 ) ダウンロードしてある section1.xlsx ファイルを開いて下さいあなたの Excel に開発タブが表示されているか確認して下さい表示されていない場合は次の手順のとおりに操作して下さい 17

18 ファイルタブをクリックしますオプションをクリックしますリボンのユーザー設定を選択し右側にあるチェックボックスにて開発にチェックを入れて下さい OK ボタンをクリックして下さい 18

19 以上の操作をすると開発タブが表示されます [ 実習 ] マクロの記録をしてみようマクロの記録機能を使ってマクロを作成してみましょう表の中のいずれかのセルを1つクリックして選択します開発タブのマクロの記録ボタンをクリックして下さいマクロ名に一発で書式変更と入力して OK ボタンをクリックして下さいほかのセルを選択したりセルの選択範囲を変更するような操作はしないで下さいそのまま操作をしましょう 19

20 ホームタブから太字スタイル斜体スタイル下線スタイルのボタンをクリックして下さいセルの塗りつぶしの色を黄に変更しフォントの大きさを 22 に変更して下さい選択されたセルの書式は以下のように変更されています開発タブの記録終了ボタンをクリックして下さいこれでマクロが記録されました 20

21 [ 実習 ] マクロの記録をしてみよう [ 一発で書式変更 ] ここでは前レクチャーで記録したマクロ ( 一発で書式変更 ) を実行してみましょう表の中のいずれかのセルをクリックして選択し開発タブのマクロボタンをクリックして下さい一発で書式変更マクロを選択して実行ボタンをクリックして下さいマクロが実行されました選択中のセルの書式が変更されたことが確認できます 21

22 [ 実習 ] ボタンを押せばマクロが実行できるようにしようここではマクロを実行するためのボタンを作成してみましょう開発タブの挿入ボタンをクリックしボタンを選択して下さい表の右側の空いているスペースをドラッグして下さいマクロ名一発で書式設定を選んで OK ボタンをクリックして下さい 22

23 ボタンが挿入されます 1 ボタンの四角にマウスを重ねるとマウスポインタが ( 両方向きの矢印 ) になりますここでドラッグすると大きさを変更することができます ([Alt] キーを押しながらドラッグをするとグリッド線 ( 見えない目盛 ) に合わせて正確に大きさを調整することができます ) 2 ボタンの枠線にマウスを重ねてドラッグするとボタンの位置を変更することができます ([Alt] キーを押しながらドラッグするとグリッド線に合わせて位置を調整することができます ) もしボタンのハンドルが消えてしまった場合はボタンの上で右クリックをして下さいボタンのハンドルが表示され編集可能になりますボタンの名前を一発で書式変更に入力し直して下さいボタンの外のセルをクリックすると確定されます 23

24 [ 実習 ] ショートカットキーでマクロを実行できるようにしようここでは特定のショートカットキーを押せばマクロを実行できるようにしてみましょう開発タブのマクロボタンをクリックして下さい一発で書式変更マクロを選択してオプションボタンをクリックして下さい w と入力して OK ボタンをクリックして下さい 24

25 表のいずれかのセルを選択し [Ctrl]+[w] キーを同時に押して下さいショートカットキー ([Ctrl]+[w]) によりマクロを実行することができました 25

26 第 2 章 VBA を記述してみよう [ 実習 ] 途中ファイルを開いて VBE の標準モジュールを開く開発タブを開いて Visual Basic のボタンをクリックしてください (Alt+F11 でも切り替えが可能です ) もし標準モジュールが開いてない場合は Module1 をクリックして開いてください [ 実習 ] 最初の VBA こんにちはを作ろう Sub Aisatsu() を作る文字列はで囲うこと下記のように記述していきます例 ) Sub Aisatsu() Msgbox " こんにちは " End Sub では実際の VBE の画面で入力していきましょう [ 実習 ]VBA 入力こんにちはマクロここから自分で記述していきますので一番上の行を Enter で改行して空白を作りましょう 26

キーを押してインデントを入れることが出来ます ( 他のプログラミング言語でも使われることが多いので覚えておくと便利です ) MsgBox と入力した後

27 入力する前に半角モードになっているかどうか確認してください入力する際 Sub と Aisatsu の間にはスペースを入れましょう (Windows 版では打ち込み後改行すると End Sub が自動で入力されます ) ここでインデントを入れることで見やすいレイアウトになります Tab キーを押してインデントを入れることが出来ます ( 他のプログラミング言語でも使われることが多いので覚えておくと便利です ) MsgBox と入力した後半角スペースを入れましょう ( このとき英語でヒントが出ますので参考程度に ) " でこんにちはを囲って入力しましょう " は全角ではなく半角で入力するように注意しましょう 27

28 [ 実習 ] こんにちはをこんばんはに変えてみようここではこんにちはではなくこんばんはに変える作業を行いますお手本 ) Sub Aisatsu() Msgbox " こんばんは " End Sub まずこんにちはを全て削除しましょう次に消した部分にこんばんはと入力しましょう " で囲われているかどうか確認しましょう確認したら実行をしましょう ( F5 キーでも可能 ) 28

29 [ 実習 ] セルに数値を挿入してみようセルに数値を入力するマクロを組んでみましょうお手本 ) Sub Nedan() Selection.Value = 2000 End Sub Selection.Value = 選択したオブジェクトエクセル上ではセルの値のことを指しますここでの = は右の値を左の値に変えるという意味になりますまず空白行を作ります最初の End Sub の後ろを選択して Enter キーを押して空白行を作っていきましょうそしてお手本のマクロを入力していきましょう Sub Nedan() を入力して改行すると線が出ますがこれはそれぞれのマクロの区切りの意味になるので見やすくなります Selection.Value = 2000 を入力する時は TAB キーで字下げをしましょう大文字小文字は自動で修正されますがのちのち変数や関数では修正されないので今のうちから大文字小文字の区別は忠実にやっていきましょう 29

30 エクセルの画面に戻ってどこかの金額のセルを選択しましょうそして VBE の画面に戻りましょう右上に Nedan のマクロ名が選択されていることを確認して実行をしましょう結果 ) エクセルの画面に戻ると 2000 の値が入ったことが確認できます 30

31 [ 実習 ] セルに文字列を挿入してみよう今回はセルに文字列を挿入するマクロを組んでいきますお手本 ) Sub Zaikogire() Selection.Value = " 在庫切れ " End Sub まず空白行を挿入しましょう Sub Zaikogire() を入力して Enter キーを押しましょう次に注釈を入れましょう ' を先頭に入れて在庫切れと表示すると入力します入力した後文字列が緑色に変わっていればコメントとして認識されています次に Selection.Value = 在庫切れと入力します 31

32 エクセルの画面に戻って個数の行の E3 セルを選択しましょうそして VBE の画面に戻りましょう右上に Zaikogire と表示されているかどうか確認してから実行しましょうエクセルの画面に戻ると在庫切れと入力されたことが確認できます 32

33 [ 実習 ] 一発で割引価格にしよう! 算術演算子 [+][-][*][/] 今回は数式の結果を出力するマクロを作成しますお手本 ) Sub Waribiki() Selection.Value = Selection.Value * 0.5 End Sub プログラミングにおける四則演算において * ( アスタリスク ) は ( かける ) の役割を果たします ( 算術演算子 * は / はを意味します ) まず VBE の画面を開いて順番に入力していきましょう空いている行がない場合は Enter キーで空白を作りましょう前回同様コメントも記述していきましょう ' 割引価格にすると入力しますそして冒頭のお手本通りに入力していきましょう入力が終わったらエクセルの画面に戻って金額のどれかのセルを選択しましょう 33

34 VBE の画面を開きます Waribiki が選択されてるか確認をしてから実行をしましょう金額がもとの半額の値に変更されたことが確認できます 34

35 [ 実習 ] 一発で様を付けよう! 文字列を連結する記号は [&] 選択しているセルの文字列の後ろに様をつけるマクロを組んでいきます今回は文字列の連結するために & を使っていきますお手本 ) Sub Sama() Selection.Value = Selection.Value & " 様 " End Sub VBE の画面を開いて空白行を作ってから入力していきましょうここでもコメント様をつけるを入れましょうコメントが緑色になっているのを確認した上でお手本通りに入力していきましょう入力が終わったらエクセルの画面に戻って会社名のどこかのセルを選択しましょう 35

36 VBE の画面に戻り Sama が選択されているのを確認して実行をしましょう正しく入力されていれば後ろに様が挿入されています 36

37 第 3 章変数を使ってもっと便利に! [ 実習 ]Integer 型の変数を使ってみようお手本 ) Sub Nedan() 値段を挿入する Dim number As Integer Number = 2000 MsgBox number Selection.Value = number End Sub 変数などは入力している途中で候補が表示されるので候補から選んで Tab キーを押すと自動的に入力することも可能ですエクセル画面に戻って [ 金額 ] 列のいずれかのセルを選択してからマクロを実行しましょう上記を実行すると下記のメッセージボックスが表示されますまた選択したセルにも 2000 という値が挿入されたことが確認できますポイント整数を入れる変数は Integer 型からの整数 ( もっと大きい数字を扱う時は Long 型を使用する ) 37

38 [ 実習 ] 割り引きマクロを書き換えて変数を使ってみよう前章で使った Waribiki マクロを応用して作成していきます ( お手本 ) Sub Waribiki() Dim number As Integer number = Selection.Value number = number *0.5 Selection.Value = number End Sub エクセル画面に戻って [ 金額 ] 列のいずれかのセルを選択して下さい VBE に戻ってマクロを実行してみましょうエクセル画面に戻ってみると選択したセルに元の半額の数値が挿入されていることが確認できます 38

39 [ 実習 ] 様を付けるマクロを書き換えて変数を使ってみよう前章で作った Sama マクロを変更してマクロを作り直しますお手本 ) Sub Sama() Dim syamei As String Syamei = Selection.Value Syamei = syamei & " 様 " Selection.Value = syamei End Sub エクセルの画面を開いて [ 社名 ] 列のいずれかのセルを選択しましょう VBA に戻りマクロ Sama を実行しましょうエクセルの画面に戻ると選択したセルの値の後ろに様が付加されていることが確認できますポイント文字列 (ABC カナ記号など ) は String 型を使用する 39

Aisatsu() MsgBox " 天気は晴れですか?", vbyesnocancel + vbquestion MsgBox " 本当にいいですか?

40 第 4 章もっと便利な VBA 関数を使おう! [ 実習 ]MsgBox 関数の引数を指定してみよう今回は第 1 章から作成してきた Aisatsu マクロを修正してマクロを作成しますお手本 ) Sub Aisatsu() MsgBox " 天気は晴れですか?", vbyesnocancel + vbquestion MsgBox " 本当にいいですか?", vbokcancel + vbcritical End Sub 上記を正しく入力してマクロを実行してみましょう下記のメッセージボックスが表示されますどれでもいいのでボタンを押しましょうすると次に下記のメッセージボックスが表示されます OK またはキャンセルをクリックしておきましょう 40

41 [ 実習 ] 一発で様をさんに置き換えるマクロを作ろう今回は " 様 " という文字列を " さん " に置き換えるマクロを作っていきますお手本 ) Sub SamaToSan() Dim syamei As String syamei = Selection.Value syamei = Replace(syamei," 様 "," さん ") Selection.Value = syamei End Sub エクセル画面に戻って [ 社名 ] の列で様が付加されているセルを選択して下さい VBE に戻ってマクロを実行してみましょうエクセル画面に戻ると先ほど選択したセルの様がさんに置き換えられているはずです 41

42 [ 実習 ] 一発で様さんを削除するマクロを作ろう今回は一発で様とさんを削除するマクロを作っていきますお手本 ) Sub SamaSanDelete() Dim syamei As String syamei = Selection.Value syamei = Replace(syamei," 様 ","") syamei = Replace(syamei," さん ","") Selection.Value = syamei End Sub エクセル画面に戻って [ 社名 ] の列で様またはさんが付加されているセルを選択して下さい VBE に戻ってマクロを実行してみましょうエクセル画面に戻ると先ほど選択したセルの様またはさんが削除されているはずですポイント様さん両方を削除したい場合は Replace 関数を 2 回に分けて入力する Replace 関数は文字列の置き換えが主な用途だが置き換える文字列を "" に指定すると元の文字列を削除するのにも使用できる 42

43 [ 実習 ] 一発で日付を 1 か月後に書き換えるマクロを作ろう今回は選択したセルの日付を 1 か月加算するマクロを組んでいきますお手本 1) Sub MonthAdd() Selection.Value = DateAdd("m",1, Selection.Value) End Sub お手本 2) 変数を使用する場合 Date 型の変数を使う Sub MonthAdd() Dim nitizi As Date nitizi = Selection.Value Selection.Value = DateAdd("m", 1, nitizi ) End Sub エクセル画面に戻って [ 日付 ] 列のいずれかのセルを選択して下さい VBE に戻ってマクロを実行してみましょうエクセル画面に戻ると先ほど選択したセルのデータが 1 ヶ月後に書き換えられているはずです 43

44 [ 実習 ] 一発で日付を 1 か月前に書き換えるマクロを作ろう今回は選択したセルの日付を -1 か月加算するマクロを組んでいきますお手本 1) Sub MonthReduce() Selection.Value = DateAdd("m",-1, Selection.Value) End Sub お手本 2) 変数を使用する場合 Sub MonthAdd() Dim nitizi As Date nitizi = Selection.Value Selection.Value = DateAdd("m", -1, nitizi ) End Sub エクセル画面に戻って [ 日付 ] 列のいずれかのセルを選択して下さい VBE に戻ってマクロを実行してみましょうエクセル画面に戻ると先ほど選択したセルのデータが 1 ヶ月前に書き換えられているはずです 44

45 最終章さらに広がるマクロ VBA の世界へボーナスレクチャーここまでお疲れ様でしたさらに興味のある方には次回作中級編請求書を一発で作るマクロの制作中テキスト ( 全 88 ページ ) を無料で差し上げます続編となるマクロ (VBA) 中級編請求書を一発で作成する! の現在制作中テキスト ( 全 88 ページ )PDF ファイルを差し上げます >> 無料で続編のテキスト全 88 ページを受け取るエクセル兄さんのメルマガ登録が必要ですがメルマガはいつでも購読解除できますエクセル兄さん 45

Excel2013　マクロ

Excel2013　マクロ OA スキルアップ Excel2013 マクロ 1 / 12 マクロ機能概要マクロとは Excel2013 マクロマクロとは Excel で行う一連の操作を自動実行させる機能です毎日繰り返し行う業務はマクロとして登録しておけば効率的に仕事を進めることができますマクロの作成方法マクロは次の 2 つの方法で作成できます 1. マクロの記憶機能を使う実際に操作した内容をそのまま記録してマクロを作成