【Project VBA極意】標準モジュールからの脱却。クラスモジュールでタスク操作を「支配」せよ
こんにちは。現場の最前線でProject VBAと格闘し続けるエンジニアです。
「マクロの記録」から一歩踏み出し、標準モジュールに数千行のコードを書き連ねて頭を抱えた経験はありませんか？ プロジェクト管理という複雑な領域において、単なる手続き型の記述は、いずれ「メンテナンス不能な迷宮」を作り上げます。
今日は、Project VBAを使いこなすための最終兵器――「クラスモジュールによるオブジェクト指向設計」についてお話しします。ここをマスターすれば、あなたのコードは「ただ動くもの」から「拡張可能な資産」へと進化します。
—
1. なぜ「クラスモジュール」が必要なのか？
Project VBAにおいて、`Task`オブジェクトは非常に強力ですが、そのまま使うと「タスクの開始日をずらして、依存関係をチェックし、進捗率を更新する」といった処理を、あちこちのモジュールで何度も書く羽目になります。
クラスモジュールの本質は「責務の分離」です。
- 標準モジュール： 「いつ、何を動かすか」という司令塔。
- クラスモジュール： 「タスク」という存在が「自分自身で何ができるか」を定義する設計図。
これらを分けることで、コードが驚くほどスッキリし、バグが混入する隙間を最小限に抑えられます。
—
2. 実践：TaskWrapperクラスを構築する
まずは、`Task`オブジェクトを包み込む「`clsTaskWrapper`」というクラスを作成しましょう。VBAエディタで「挿入」＞「クラスモジュール」を選択し、名前を `clsTaskWrapper` に変更してください。
クラスモジュール：clsTaskWrapper
Option Explicit
‘ タスクを保持するプライベート変数
Private mTask As Task
‘ 初期化用メソッド（タスクをセット）
Public Sub Initialize(targetTask As Task)
Set mTask = targetTask
End Sub
‘ タスクの重要度に応じて進捗を一括設定するメソッド
Public Sub FastTrack(percentComplete As Integer)
If mTask Is Nothing Then Exit Sub
‘ プロジェクト特有の制約エラーをここでトラップする
On Error Resume Next
mTask.PercentComplete = percentComplete
If Err.Number <> 0 Then
Debug.Print “タスク「” & mTask.Name & “」の更新に失敗しました。”
End If
On Error GoTo 0
End Sub
‘ 終了日を3日延長するビジネスロジック
Public Sub ExtendDeadline()
If Not mTask Is Nothing Then
mTask.Finish = mTask.Finish + 3
End If
End Sub
—
3. 標準モジュールからの呼び出し
クラスを作ったら、あとは司令塔（標準モジュール）から呼ぶだけです。コードが劇的に読みやすくなることに注目してください。
標準モジュール：MainModule
Sub UpdateProjectTasks()
Dim t As Task
Dim myTask As clsTaskWrapper
‘ プロジェクト内の全タスクをループ
For Each t In ActiveProject.Tasks
If Not t Is Nothing Then
‘ クラスのインスタンスを生成
Set myTask = New clsTaskWrapper
myTask.Initialize t
‘ オブジェクトの操作を呼び出す
‘ ここで「何をしているか」が直感的に分かる！
myTask.FastTrack 100
‘ 必要に応じてビジネスロジックを実行
If t.Name Like “重要” Then
myTask.ExtendDeadline
End If
End If
Next t
End Sub
—
4. 陥りやすい罠とエンジニアの心得
初心者がここでよく躓くポイントを、現場の知見からお伝えします。
① オブジェクトの「Nothing」判定
Project VBAでは、タスクが削除されたり、存在しないインデックスを参照したりすると `Task` オブジェクトが `Nothing` になります。クラス内部で必ず `If mTask Is Nothing Then Exit Sub` のようなガード節を入れてください。これを忘れると、実行時エラーのデバッグで夜を明かすことになります。
② 循環参照とメモリ管理
Project VBAのオブジェクトは参照カウントで管理されています。大量のタスクを処理する場合、不要になったインスタンスは `Set myTask = Nothing` で意図的に解放する癖をつけましょう。小規模なら問題ありませんが、数千タスク規模ではメモリリークの原因となります。
—
最後に：コードは「対話」である
今回ご紹介したクラス設計は、単なるテクニックではありません。「タスクに何ができるか」を言語化するプロセスです。
標準モジュールにベタ書きされたコードは「命令」ですが、クラスモジュールで設計されたコードは、オブジェクトとの「対話」です。あなたが定義したメソッド名が、将来のあなた自身、あるいはチームメンバーにとっての「仕様書」になります。
ここをクリアしたあなたは、もう初心者ではありません。次は、`Collection`を使ったタスク群の管理や、`Class_Initialize`イベントを活用した自動初期化などに挑戦してみてください。
Project VBAの深淵へ、ようこそ。あなたの自動化ライフが、より創造的で快適なものになることを確信しています。
