クラスの基礎【基本】VBAプログラム скачать в хорошем качестве

クラスの基礎【基本】VBAプログラム

(B0003)mv【基本】(VBA-Excel)クラスの基礎 【目次】 クラスとは何か！ 簡単なクラスを作る。 WithEventsはクラスを使わないと出来ない。 クラスの部品化の事例。レコード定義を作る。 クラスの継承の動作を見る。 クラスの多様体の動作を見る。 ----------------------------------- ≪ソースプログラム≫ /////////「モジュール」 Sub テスト() 'クラスのオブジェクト化 Dim AA1 As Class1: Set AA1 = New Class1 Dim BB2 As Class1: Set BB2 = New Class1 'クラスに値をセット AA1.lng値X = 2 AA1.lng値Y = 3 BB2.lng値X = 20 BB2.lng値Y = 30 '計算メソッドを動かす Dim 結果値 As Long 結果値 = AA1.計算 + BB2.計算 '結果 Debug.Print 結果値 Debug.Print "各々値：" & AA1.lng値Z & " --- " & BB2.lng値Z End Sub //////////「クラス」 '公開 Public lng値X As Long Public lng値Y As Long Public lng値Z As Long '非公開 Private lngWORK As Long Private Const lngVal3 As Long = 3 Function 計算() As Long lngWORK = lng値X * lng値Y + lngVal3 lng値Z = lngWORK 計算 = lngWORK End Function ////////// ==================== /////////「モジュール」 Private wObj As Class1 Private Sub テスト() 'Class1オブジェクト化 Set wObj = New Class1 'クラス初期化 Call wObj.Initialize(Sheet1) End Sub Private Sub テスト終了() Set wObj = Nothing End Sub //////////「クラス」 Option Explicit Public WithEvents 試験sheet As Worksheet Sub Initialize(ws As Worksheet) Set 試験sheet = ws End Sub Private Sub 試験sheet_SelectionChange(ByVal Target As Range) Cells(Target.Row, Target.Column + Target.Columns.Count) = _ "←" & Replace(Target.Address, "$", "") End Sub ////////// ==================== /////////「モジュール」 Sub テスト() ' 'クラスをオブジェクト化 Dim ReadRec As 名前Record Dim WorkRec As 名前Record Set ReadRec = New 名前Record Set ReadRec = New 名前Record '書き込み配列作成 Dim WriteRec() As 名前Record ReDim WriteRec(0 To 1) ' 'レコード1件作成 ReadRec.lng番号 = 100 ReadRec.str名前 = "いとう" ReadRec.str住所 = "東京" ReadRec.dtm更新日 = Now ' 'ワークへ一旦移動 Set WorkRec = ReadRec Set ReadRec = Nothing ' 'レコード2件作成 Set ReadRec = New 名前Record ReadRec.lng番号 = 200 ReadRec.str名前 = "さとう" ReadRec.str住所 = "大阪" ReadRec.dtm更新日 = Now ' 'WriteRec配列へ書き込み Set WriteRec(0) = New 名前Record Set WriteRec(0) = ReadRec Set ReadRec = Nothing Set WriteRec(1) = New 名前Record Set WriteRec(1) = WorkRec Set WorkRec = Nothing ' End Sub //////////「クラス」名前Record 'レコード定義 Public lng番号 As Long Public str名前 As String Public str住所 As String Public dtm更新日 As Date ////////// ==================== ////////// Sub 継承の理解() 'フォントから継承の過程を見る｡ 'フォントを確認 Dim wFont As Object Set wFont = Selection.Font Debug.Print "①【型：" & TypeName(wFont) & "】" Debug.Print wFont.Name 'フォントの親はセル Dim 親_wFont As Object Set 親_wFont = wFont.Parent Debug.Print "②【型：" & TypeName(親_wFont) & "】" Debug.Print 親_wFont.Address & " - (値:" & 親_wFont.Text & ")" 'セルの親はシート Dim 親_wCell As Object Set 親_wCell = wFont.Parent.Parent Debug.Print "③【型：" & TypeName(親_wCell) & "】" Debug.Print 親_wCell.Name 'シートの親はブック Dim 親_wBook As Object Set 親_wBook = wFont.Parent.Parent.Parent Debug.Print "④【型：" & TypeName(親_wCell) & "】" Debug.Print 親_wBook.Name 'ブックの親はExcel Dim 親_wExcel As Object Set 親_wExcel = wFont.Parent.Parent.Parent.Parent Debug.Print "⑤【型：" & TypeName(親_wExcel) & "】" Debug.Print 親_wExcel.Name 'Excelの親はExcel -----＞ ⑤より上は同じ Dim 親_wZZZZ As Object Set 親_wZZZZ = wFont.Parent.Parent.Parent.Parent.Parent Debug.Print "⑥【型：" & TypeName(親_wZZZZ) & "】" Debug.Print 親_wZZZZ 'ExcelApplicationから継承先を辿りFont名を表示させる。 Debug.Print "⑦【フォント名読み出し】" & vbLf & _ Application. _ Workbooks("クラスの理解.xlsm"). _ Worksheets("Sheet1"). _ Range("$A$1"). _ Font.Name End Sub ////////// '-------------------------------------- Sub 多様体の理解() '型の違うオブジェクトを代入し変化を見る Dim wTemp As Variant Set wTemp = Application Call 表示(wTemp) Set wTemp = ThisWorkbook Call 表示(wTemp) Set wTemp = Sheet1 Call 表示(wTemp) Set wTemp = Cells(1, 1) Call 表示(wTemp) End Sub ////////// Function 表示(ByRef wObj As Variant) On Error Resume Next Debug.Print "----------" Debug.Print wObj.Name Debug.Print "(Err:" & Err & ")" & Err.Description End Function ----------------------------------- ≪解説≫ VBAのクラスとは？ クラスは、プログラムを作成しただけでは動きません。 その他のモジュールから、利用される形で使われます。 利用するとは、他のモジュール側で、クラスを定義しインスタンス処理を行う事で利用可能となる事を示します。 この処理を行う事で、クラスはオブジェクトとなり動きます。 クラスの特徴とは「部品化」「継承」「多様体」です。 しかし、VBAで作成されるプログラムが、継承、多様体を必要とする程の、大きなシステムとして使われる事が、ほぼ無いと言うのが現実。 また、多様体では定義型の変化に従って、被プログラム側での動作が違って動くと言う特徴があります。しかし、型の多重定義がVBAでは出来ない為に、これを作るのは難しいと言うことがあります。 ところが、Excelソフトはクラスの塊で出来ています。 ここでは「部品化」の有用性と「継承」「多様体」がどの様にExcelの中で存在しているか､簡単な事で紹介したいと思います｡ これらクラスの特性は、VBAを使えば度々出会いますので、知って於いた方が良いと思います。 -----------------------------------