【VBAリファレンス】VBA技術解説VBAクラスの作り方：列名の入力支援と列移動対応

VBAクラスの作り方は、主に以下のような構成で行います。まず、クラス自身の定義を行い、必要に応じてプロシージャー(メソッド)や属性を追加します。

1. クラスの定義
VBAでは、クラスはClassキーワードで宣言されます。以下に基本的なクラス定義の例です:

   Class ClassName
   

ここで、ClassNameがクラスの名称になります。

2. 属性の定義
クラス内で使用する値を保存するために、属性を定義します。例えば、列名を受け入れる属性は以下のように定義されます:

   Private Property Name() As String
   

ここで、Nameが属性の名称になり、Private指定により内部からのみアクセス可能です。

3. プロシージャーの定義
クラス内で操作を行うメソッドを定義します。例えば、列名を格納する属性に値をセットするInitializeメソッドは以下のように記載されます:

   Sub Initialize()
       Me.Name = "入力された列名"
   

ここで、Meはクラス自身を指します。

4. 列名の入力支援
クラス内でユーザーが直接入力する欝から列名を取得するために、属性に値をセットするメソッドを追加します。例えば、フォーム上のテキストボックスから入力された値を自動的に属性に反映する方法です。

5. 列移動対応
列名を指定して特定の位置に移動する機能を実装するために、以下のようなメソッドを追加します:

   Sub MoveNameToPosition()
       Sheets("Sheet1").Range("A1") = Name
   

ここで、Sheets(“Sheet1”)が対象のシートになり、Range(“A1”)が移動先のセルです。

6. 基本構文
VBAのクラス作りには以下のような基本的な構文を使用します。例えば、属性への値のセットはMe.Name = “値”と記載されます。プロシージャ

VBAクラスを作成する際には、列名の入力支援と列移動対応を実装することが重要です。以下に基本的な作り方とサンプルコードを示します。

VBAクラスの作り方
1. クラス宣言
クラス名に適当な名前を付けて、属性を定義します。

   Class clsColumnHelper
   Private pStrColumnName As String
   End Class
   

2. 列名の入力支援
列名を受け取る属性を追加し、入力された列名をメソッドで加工します。

   Public Property Let ColumnName() As String
       Set Me.pStrColumnName = ColumnName
   End Property

   Public Function GetColumnDisplayName() As String
       Return "[" & pStrColumnName & "]"
   End Function
   

3. 列移動対応
列名をクリックすると、該当の列を選択できるようにクリックイベントを追加します。

   Private Sub CommandClick()
       If pStrColumnName <> "" Then
           Range("A" & pStrColumnName).Select
       End If
   End Sub
   

4. カスタマイズと削除
列名をクリックして削除する機能も追加できます。

   Private Sub CommandDelete()
       If pStrColumnName <> "" Then
           Range("A" & pStrColumnName).Delete
       End If
   End Sub
   

使用方法
– 列名を入力し、VBAクラスを呼び出すと列名が自動的に加工されます。
– クリックイベントを活性化するため、CommandButtonにクリックイベントハンドラーを設定します。

注意事項
– 列名が空の場合には警告を表示し、削除や移動を行わないように設計します。
– 使用環境やExcelのバージョンにも注意して実装を予定します。

VBAクラスを設計する際には、実務で役立つ応用パターンの考慮が重要です。本記事では、列名の入力支援と列移動対応を実現するVBAクラスの作り方について解説します。

1. クラス設計の目的
VBAクラスを通じて、Excelシート内のデータ列を管理することが求められます。具体的には、以下のような機能を実現する必要があります:
– 列名を設定できるプロパティーを追加する。
– 列名を自動的に生成し、入力支援としてユーザーに提示する。
– 列を特定の位置まで移動することができるメソッドを追加する。

2. 列名の入力支援
列名の入力支援は、プロパティー「ColumnName」で実現します。ユーザーが直接入力する必要がないため、自動的に列名を生成する仕組みを設計します。以下にVBAコード例です:


Property ColumnName As String
Get
return "A" & i 'iは1-based index
End Get
Set
i = Value
End Set


3. 列移動対応
列を特定の位置まで移動するために、メソッド「MoveColumns」を追加します。以下にVBAコード例です:


Sub MoveColumns(ByVal SourceRange As Range, ByVal DestinationRange As Range)
For Each cell In SourceRange
cell.Copy
nextCell = destinationRange.NextAvailableRow
nextCell.Value = cell.Value
Next cell
End Sub


4. 実際の使用例
以下に、VBAクラスを利用する方法と実例を示します。


Set cls = New VBAClass
With cls
.ColumnName = "A" '列名を設定
For i = 1 To 5
.MoveColumns Range("A" & i), Range("B" & i)
Next i
End With