Microsoft Word - マニュアル-ExcelMcro-2.doc

Size: px

Start display at page:

Download "Microsoft Word - マニュアル-ExcelMcro-2.doc"

ありさうすい
5 years ago
Views:

1 Excel プログラム開発の練習マニュアルー 2 ( マクロの学習 -2 ) 作成修正本マニュアルでは Excel でのプログラム開発を行なうに当たって Excel の高度なマクロに関する学習について記述します

2 Ⅰ.Excel のマクロに関する学習初めに Excel は単なる表計算のソフトと思っている方も多いと思いますしかし Excel には一般的に使用する Excel 関数の他に Excel Basic と呼ばれる VBA( Visual Basic for Application ) を利用する事も出来ます Excel で VBA を使って開発を行うと極めて強力な業務用ソフトを開発する事が出来て業務効率化に大変に有用なのです Excel で利用出来る関数の使い方の練習についてはプログラム開発初級のエクセル関数の学習を見て下さい Excel Basic を使った開発の練習について本マニュアルでは簡単な Excel のマクロ (Excel のマクロに関する学習ー 1) を学習された事を前提に高度な Excel のマクロに関して記述します 2. 事前準備 & 説明 1.MS Office の準備通常はパソコンに MS Office が予めインストールされているのでその中の Excel を使用しますインストールされていない場合は MS Office の Standard 版を購入して下さい 2.Excel マクロの学習 Excel マクロは VBA とも呼ばれる BASIC 言語を使用します Excel マクロ (VBA) では VB 単独での開発に比べて Excel 独特の機能である罫線の描画に関する機能が数多く含まれていますこれらの機能を使いこなせればビジネス上のアプリケーションとして充分に通用するソフトウェアの開発が出来ます 1/22

3 3.Excel のマクロに関する学習マクロの自動記録と Table 定義書の項目値の取得新規ワークシートへの書込ここではマクロの自動記録を使いながら以下の 3 つの事を行ないます a.table 定義書の項目値の取得 ( 行毎の値のコピー ) b. 新規の Excel の WorkSheet を作成し第 1 行の各列に Table 定義書の項目名を書込 c. 上記の a で取得した Table 定義書の項目値を新規の Excel の WorkSheet の 2 行目以下に書込前述した様に Excel マクロ (VBA) では Excel 独特の機能である罫線の描画に関する機能が数多く含まれていますがこれらの機能をコマンド単独で学習してそれらの機能を組み合わせて Excel マクロ (VBA) の Sub プログラムにするのは非常に大変です ( 罫線の描画に関する機能は 2 に記述します ) そこで例えば Excel の表の複数のカラムの値をピックアップする Sub プログラムを開発する場合はまず手動でその動きを行いこの動きをマクロの自動記録機能で記録しますその後記録した Excel のマクロを見ながら行ないたい機能をプログラミングしていきます Excel のマクロに関する学習 -2 の資料の Table 定義書は社員管理システム用の Table 定義書の例ですこの Table 定義書で Table 番号 Table 名 TableID と各項目毎の定義 ( 項目名 ~ 最終内容変更日 ) を自動で取得し新規に作成したワークシートにコピーするマクロを作成する練習を行ないますこの練習はプログラム開発初級のアクセスでのプログラム開発の Table 定義書自動チェック Prog. の学習の内容の一部になります 2/22

4 a. マクロの自動記録 -1( Table 定義書の項目値の取得 ) まず始めにツールバーのマクロの新しいマクロの記録をピックします OK ボタンを押すとマクロの自動記録が始まります Excel の Table 定義書で 4 行目から 8 行目迄を行コピーしますツールバーのマクロの記録の終了をピックするとマクロの自動記録が終了します 3/22

5 自動記録したマクロの内容を見る為にツールバーのマクロのマクロをピックしますマクロ名のウィンドウが現れるので今記録した Macro1 の編集を選択します 4/22

6 これで今自動記録したマクロの内容を見る事が出来ます編集も可能ですこのマクロの内容を以下に示します Sub Macro1() ' ' Macro1 Macro ' マクロ記録日 : 2015/4/15 ユーザー名 : XXXX ' Rows("4:4").Select Rows("5:5").Select Rows("6:6").Select 5/22

7 Rows("7:7").Select Rows("8:8").Select End Sub 上記のマクロの簡単な説明をします Rows("4:4").Select 行 4 を選択します選択した範囲をコピーします Rows("5:5").Select 行 5 を選択しますコピーモードにします選択した範囲をコピーします以下 6,7,8 行 (Rows("6:6") Rows("7:7") Rows("8:8")) は上記と同じ処理です 6/22

b. マクロの自動記録 -2 ( 新規の Excel の WorkSheet を作成し第 1 行の各列に Table 定義書の項目名を書込 ) まず始めにツールバーのマクロの新しいマクロの記録をピックします OK ボタンを押すとマクロの自動記録が始まります Excel の Table 定義書の項目名 (1 行目の値 ) をコピーし

8 b. マクロの自動記録 -2 ( 新規の Excel の WorkSheet を作成し第 1 行の各列に Table 定義書の項目名を書込 ) まず始めにツールバーのマクロの新しいマクロの記録をピックします OK ボタンを押すとマクロの自動記録が始まります Excel の Table 定義書の項目名 (1 行目の値 ) をコピーし新規のワークシートを作成し 1 行目にコピーした項目名 (1 行目の値 ) をペースト ( 書き込み ) しますツールバーのマクロの記録の終了をピックするとマクロの自動記録が終了します自動記録したマクロの内容を見る為にツールバーのマクロのマクロをピックしますマクロ名のウィンドウが現れるので今記録した Macro2 の編集を選択します 7/22

9 これで今自動記録したマクロ (Macro2) の内容を見る事が出来ます編集も可能ですこのマクロの内容を以下に示します Sub Macro2() ' ' Macro2 Macro ' マクロ記録日 : 2015/4/18 ユーザー名 : YYYYYY ' End Sub Rows("3:3").Select Sheets.Add ActiveSheet.Paste Range("C7").Select 以下上記のマクロの簡単な説明をします Rows("3:3").Select 行 3 を選択します選択した範囲をコピーします Sheets.Add 新規のワークシートを作成します ActiveSheet.Paste Active なシート ( 今開いているワークシート : 新規に作成したワークシート ) に先に選択した範囲をペーストします 8/22

10 Range("C7").Select 特に意味はありませんマクロの自動記録を終わらせる為に仮にポインターを置いた場所 ( セル ) ですマクロの自動記録を終了させます c. マクロの自動記録 -3 ( 上記の a で取得した Table 定義書の項目値を新規の Excel の WorkSheet の 2 行目以下に書込 ) まず始めにツールバーのマクロの新しいマクロの記録をピックします OK ボタンを押して Macro3 の自動記録を開始します次に Excel の Table 定義書の項目名 (4 行目の値 ) をコピーし新規のワークシートを作成し 2 行目にコピーした項目名 (4 行目の値 ) をペースト ( 書き込み ) します 9/22

11 ツールバーのマクロの記録の終了をピックするとマクロの自動記録が終了します 10/22

12 自動記録したマクロの内容を見る為にツールバーのマクロのマクロをピックしますマクロ名のウィンドウが現れるので今記録した Macro3 の編集を選択します 11/22

13 これで今自動記録したマクロ (Macro3) の内容を見る事が出来ます編集も可能ですこのマクロの内容を以下に示します Sub Macro3() ' ' Macro3 Macro ' マクロ記録日 : 2015/4/19 ユーザー名 : XXXXXX ' Rows("4:4").Select Sheets("Sheet1").Select Rows("2:2").Select ActiveSheet.Paste Sheets("X05_01( 社員情報 )").Select Rows("5:5").Select 12/22

14 Sheets("Sheet1").Select Rows("3:3").Select ActiveSheet.Paste Sheets("X05_01( 社員情報 )").Select Rows("6:6").Select Sheets("Sheet1").Select Rows("4:4").Select ActiveSheet.Paste Sheets("X05_01( 社員情報 )").Select Rows("7:7").Select Sheets("Sheet1").Select Rows("5:5").Select ActiveSheet.Paste Sheets("X05_01( 社員情報 )").Select Rows("8:8").Select Sheets("Sheet1").Select Rows("6:6").Select ActiveSheet.Paste End Sub 13/22

15 以下前記のマクロの簡単な説明をします Rows("4:4").Select 行 4 を選択します選択した範囲をコピーします Sheets("Sheet1").Select Sheet1( 新規に作成したワークシート ) を選択します Rows("2:2").Select 行 2 を選択します ActiveSheet.Paste コピーした範囲を選択した範囲にペーストします Sheets("X05_01( 社員情報 )").Select X05_01( 社員情報 ) のシート (Table 定義書のシート ) を選択します Rows("5:5").Select 行 5 を選択します選択した範囲をコピーします Sheets("Sheet1").Select Sheet1( 新規に作成したワークシート ) を選択します Rows("3:3").Select 行 3 を選択します ActiveSheet.Paste コピーした範囲を選択した範囲にペーストします以下 X05_01( 社員情報 ) のシート (Table 定義書のシート ) の 8 行目迄を Sheet1( 新規に作成したワークシート ) の 6 行目までにペーストしていきます 14/22

16 その結果 Sheet1( 新規に作成したワークシート ) は以下の様になりますこれで Sheet1( 新規に作成したワークシート ) への書き込みの練習は終了です次の 2 の練習の為に X05_01( 社員情報 ) のシート (Table 定義書のシート ) の 8 行目以下の全ての行を Sheet1( 新規に作成したワークシート ) に書き込み ( コピー ) をしておきます 15/22

17 2. マクロの自動記録とデータ書込をした新規ワークシートへの罫線追加ここではマクロの自動記録を使いながら以下の 3 つの事を行ないます a. 新規ワークシートのデータの有る全ての範囲 ( セル ) への罫線 ( 細線 ) を追加 b. 新規ワークシートのデータの有る範囲の外側に罫線 ( 太線 ) を追加この練習はプログラム開発初級のアクセスでのプログラム開発の Table 定義書自動チェック Prog. の学習の内容の一部になります a. 新規ワークシートのデータの有る全ての範囲 ( セル ) への罫線 ( 細線 ) を追加 Sheet1( 新規に作成したワークシート ) にはデータをコピーした時に罫線も一緒にコピーされていますので罫線 ( 細線 ) の追加機能の学習の為予め罫線を消しておきます ( 下記 Excel シート参照 ) 今迄の練習と同様にマクロの自動記録 Macro4 を開始し Sheet1 ( 新規に作成したワークシート ) の全てのセルに罫線 ( 細線 ) を付けます ( 次頁の Excel のシートを参照 ) 16/22

18 以下今自動記録したマクロ (Macro4) の内容を示します Sub Macro4() ' ' Macro4 Macro ' マクロ記録日 : 2015/4/19 ユーザー名 : YYYYYY ' Range("A1:H22").Select ActiveWindow.ScrollColumn = 10 Range("A1:Q22").Select ActiveWindow.ScrollColumn = 1 Selection.Borders(xlDiagonalDown).LineStyle = xlnone Selection.Borders(xlDiagonalUp).LineStyle = xlnone With Selection.Borders(xlEdgeLeft).Weight = xlthin 17/22

19 With Selection.Borders(xlEdgeTop).Weight = xlthin With Selection.Borders(xlEdgeBottom).Weight = xlthin With Selection.Borders(xlEdgeRight).Weight = xlthin With Selection.Borders(xlInsideVertical).Weight = xlthin With Selection.Borders(xlInsideHorizontal).Weight = xlthin 18/22

20 End Sub Range("B25").Select 以下前記のマクロの簡単な説明をします Range("A1:H22").Select セル (A,1) からセル (H,22) 迄を選択します ( 画面の制約上セル (A,1) からセル (Q,22) 迄を一度に選択が出来ません ) ActiveWindow.ScrollColumn = カラムスクロールさせます Range("A1:Q22").Select セル (A,1) からセル (Q,22) 迄を選択します ActiveWindow.ScrollColumn = 1 ~ 選択したセル (A,1) からセル (Q,22) の範囲全てのセルに罫線 ( 細線 ) を付加します 19/22

21 なお以下の構文は自動記録を終了させる為にセルをピックしただけで特に意味は有りません Range("B25").Select End Sub b. 新規ワークシートのデータの有る範囲の外側に罫線 ( 太線 ) を追加今迄の練習と同様にマクロの自動記録 Macro4 を開始し Sheet1( 新規に作成したワークシート ) の外枠に罫線 ( 太線 ) を付けます以下今自動記録したマクロ (Macro5) の内容を示します Sub Macro5() ' ' Macro5 Macro ' マクロ記録日 : 2015/4/19 ユーザー名 : XXXXXX ' Range("A1:O22").Select ActiveWindow.SmallScroll ToRight:=5 Range("A1:Q22").Select 20/22

22 Selection.Borders(xlDiagonalDown).LineStyle = xlnone Selection.Borders(xlDiagonalUp).LineStyle = xlnone With Selection.Borders(xlEdgeLeft).Weight = xlmedium With Selection.Borders(xlEdgeTop).Weight = xlmedium With Selection.Borders(xlEdgeBottom).Weight = xlmedium With Selection.Borders(xlEdgeRight).Weight = xlmedium With Selection.Borders(xlInsideVertical).Weight = xlthin 21/22

23 With Selection.Borders(xlInsideHorizontal).Weight = xlthin Range("D24").Select End Sub 以下前記のマクロの簡単な説明をします Range("A1:O22").Select ActiveWindow.SmallScroll ToRight:=5 Range("A1:Q22").Select セル (A,1) からセル (H,22) 迄を選択し 5 カラムスクロールさせてセル (A,1) からセル (Q,22) 迄を選択します Selection.Borders(xlDiagonalDown).LineStyle = xlnone ~ 選択したセル (A,1) からセル (H,22) の外枠に罫線 ( 太線 ) を付けますなお以下の構文は前記同様に自動記録を終了させる為にセルをピックしただけで特に意味は有りません End Sub Range("D24").Select ( 注 1):Excel 及び VB はマイクロソフト社の製品です ( 注 2):Excel の VBA の個々のコマンドに関しては Excel のヘルプを見るか VB の解説書を見て下さい 22/22

Microsoft Word - 操作マニュアル-Excel-2.doc

Microsoft Word - 操作マニュアル-Excel-2.doc Excel プログラム開発の練習マニュアルー 1 ( 関数の学習 ) 作成 2015.01.31 修正 2015.02.04 本マニュアルでは Excel のプログラム開発を行なうに当たってまずは Excel の関数に関する学習について記述する Ⅰ.Excel の関数に関する学習 1. 初めに Excel は単なる表計算のソフトと思っている方も多いと思いますしかし Excel には一般的に使用する