ExcelVBAへの道 　 第1章　マクロとVBA VBA フォーム コード シート マクロ マクロからVBＡ 第2章　VBE(Visula Basic Editor）の基本 VBAの起動と終了 VBEの画面構成 第3章　フォーム フォームとは？ フォームの挿入 コントロール コード 第4章　コード（VBAプログラミング） コードを書くどこに書くのか？ コードウィンドウ画面 コード切り替え プログラムの書き方 宣言と変数と定数 変数のデータ型 定番のコード IF （分岐） Select Case　（選択） Do ....Loop　（繰り返し） For...Next For...Each 第5章　VBA基礎 VBAの約束事 オブジェクト コレクション プロパティ メソッド プロシージャ イベント プロシージャ モジュール コードの規則 ヘルプ 第6章　オブジェクト オブジェクトとは？ ブック ワークシート セルについて セルの取得 数式入力 削除 色 シート 行・列 第7章　デバッグ デバッグとは その他のデバッグ エラーの対処 第8章　コード例 セルの追加 列の追加 行の追加 行の削除 オートフォーマット SUM 消去 コンテンツ消去 書式消去 OFFSET InputBox InputBoxメソッド InputBoxメソッド２ 編集可能領域の設定 シート保護 全シート選択 全シート保護 全シート保護解除 表示変更 ステータスバー非表示 ズーム設定 ワークシートのアイコン化 ウィンドウサイズ変更 Excelのアイコン化 お気に入り Set定義 InputBoxの使い方 コピー 代入 選択 繰り返し 繰り返し２ Sub Function モジュール オブジェクト With データを変数に代入 Offset使用例 ユーザー定義 コード保護 ウィンドウサイズ ブックウィンドウを並べる シート追加 名前付けてシート追加 シート移動 シート非表示 シートコピー ブックへシートコピー シート削除 線を引く 細実線で囲む シート数取得 シート数取得２ シート名変更 新規ブック作成 ブックを開く ブック保存 ブック上書き保存 変更があったら上書き保存 新しいウィンドウを開く 開いているウィンドウ数取得 ウィンドウ枠固定 セルに値代入 数式を入力 全セル選択 シート全部選択 行･列番号 セル・セル範囲取得 行選択・列選択 行の挿入 列の挿入 行・列の表示 列の最適化 全セル最適化 選択範囲コピー 選択範囲切り取り 書式コピー データクリア データと書式クリア 全てクリア 書体変更 選択範囲削除 表示形式設定 背景色設定 文字色変更 文字位置 アクティブセルを画面左上隅に表示 行数カウント 新規入力セルに移動 選択範囲に外枠罫線を引く 降順で並べ替え エラー処理 エラー無視 アラートを出さない 10秒ごとにサブプロシージャを切替実行 別のプロシージャを実行 予定時刻に実行 ラベルサイズ変更 レベル色変更 Setオブジェクト ラベル上でマウスを放すイベント ユーザーフォームがアクティブになった時ボタン名を変更 ボタンでon・off IME日本語入力オン 日本語入力オフ パスワード リスト・テキストボックスにデータ読み込み フォント設定 トグルボタンで切替 Initializeイベント マルチページ切替 カレンダーコントロール カレンダーのデータをシート入力 変数のデータ型 セル範囲取得 印刷 選択範囲印刷 選択範囲印刷２ シート全印刷 印刷枚数 余白設定 他のアプリ起動 インプットボックスで範囲選択 Enter入力後右へ移動 特定セルのみ選択可能 Set定義 フォーム開く フォーム閉じる ワークシートと同時にフォームオープンする 第9章　その他 第10章　リファレンス

Subプロシージャ 実行結果を返さない。 単独で実行するプログラム。 マクロ記録で作成されてたプログラム。 ------------------------------------- Functionプロシージャ 実行結果を返す。 ユーザー定義に使う。 ------------------------------------- ３つのモジュール １、標準モジュール　　　汎用的なコードを書くとき。 ２、フォームモジュール　　フォームダイアログボックスのイベントを書く。 ３、クラスモジュール　　特定のオブジェクトに対してコードを書くとき。 cls.frm.basの拡張子が付いている。 ---------------------------------------- ステートメントとは プロシージャ内にある１行のコードのこと。 ---------------------------------------- オブジェクトとは エクセルの構成部品のこと。 ---------------------------------------- MyData = Range("A1").Value ↑　　　　　↑　　　　↑ 変数　オブジェクト　プロパティ ---------------------------------------- Range("A1").Value = "ABC" 右辺から左辺へ値の代入 ---------------------------------------- 一度エクセルを終了すると、マクロコードを保存するModul1,Modul2とどんどんモジュールが 増えていくのでプロシージャを移動してまとめましょう。 --------------------------------------- With オブジェクト名 .プロパティ　= "設定内容" .プロパティ　= "設定内容" .プロパティ　= "設定内容" End With でグループ化して省略できる。 ----------------------------------------- hensu = InputBox("メッセージ") でインプットボックスからデータを取り込める。 ----------------------------------------- 特徴的なお助け機能 １、自動クイックヒント ２、自動メンバ表示 ----------------------------------------- 編集ツールバーのコメントブロックボタンで簡単にエラー部分のコードをコメントに できるので、検証するときには是非使いましょう。 ------------------------------------------ 宣言セクションに書かれた変数は同じモジュール内ならどこでも使える。 ------------------------------------------ Offsetの使用例 ActiveCell.Offset(0,1).Select Range("A1").Offset(2,5).Select Range("A1:B5").Offset(5,-3).Select ----------------------------------------- ユーザー定義関数設定例 Function 税込売上金額(単価, 数量) 税込売上金額 = 単価 * 数量 * 1.05 End Function Function kasan(i As Integere,j As Integere) As Integer kasan = i + j End Function ----------------------------------------- ＶＢＡコードに保護をかけるとコードを見えなくできる。 ＶＢＡEditor＞ツール＞VBAProjectのプロパティ＞保護タブ＞プロジェクトを表示用にロックする をチェックしてパスワードを入力する。 ------------------------------------------- ブックウィンドウサイズについて Sub MaxSize() Dim UHeight As Double Dim UWidth As Double UHeight = Application.UsableHeight UWidth = Application.UsebleWidth With ActiveWindow .WindowState = xlNormal .Top = 0 .Left = 0 .Height = UHeight .Width = UWidth End With End Sub -------------------------------------------------- ブックウィンドウを並べて表示する。 Sub WindowArrange() Windows.Arrange ArrangeStyle:=xlArrangeStyleTiled '並べて表示 　　　　　　　　　　　　　　　　　　 =xlArrangeStyleCascade '重ねて表示 =xlArrangeStyleHorizontal '上下に並べて表示 =xlArrangeStyleStyleVertical '左右に並べて表示 --------------------------------------------------- シートを追加 Sub newsheet() Sheets.Add End Sub ----------------------------------------------------- Sub newsheet() Sheets.Add.Name = "名前"　　　'名前を付けて追加する End Sub ------------------------------------------------------- Sub newsheet() Sheets.Add after:=Worksheets(1),cont:=2 'ワークシートを2枚追加 End Sub -------------------------------------------------------- Sub シートを選択() Worksheets("Sheet1").Activate End Sub　 --------------------------------------------- シートを移動する Sub シート移動() Sheets("Sheet1").Move After:=Sheets(2) End Sub ---------------------------------------------- ワークシートを非表示にする Sub hihyouji() Worksheets("Sheet1").Visible = False End Sub ----------------------------------------------- シート１をシート４の後ろにコピーする Sub copy() Sheets("Sheet1").Copy After:=Sheets("Sheet4") End Sub -----------------------------------------------^ 別のブックにシートをコピーする。 Sub bookcopy() ActiveSheet.Copy Before:=Workbooks("コピー先ブック名”).Sheets(3) End Sub ------------------------------------------------ シートを削除する Sub シート削除() Worksheets("Sheet4").Activate ActiveSheet.Delete End Sub -------------------------------------------------- Sub 線を引く() Range("A1:D1").Select Selection.Borders(xlBottom).LineStyle = xlContinuous '直線 Selection.Borders(xlBottom).LineStyle = xlDash '破線 Selection.Borders(xlBottom).LineStyle = xlDshuDot '一点破線 Selection.Borders(xlBottom).LineStyle = xlDshuDotDot '二点破線 Selection.Borders(xlBottom).LineStyle = xlDot 'ドット線 Selection.Borders(xlBottom).LineStyle = xlDouble '二重線 Selection.Borders(xlBottom).LineStyle = xlLineStyleNone '線なし End Sub --------------------------------------------------------- Sub 細実線で囲む() Range("A1:D5").Borders.LineStyle = xlContinuous End Sub