【実務・中級編】【中級者向け】部品表（BOM）の特定カラム（重量や備考欄）の値を自動計算して上書きするVBA – SolidWorks VBA解析バイブル

標準BOMの限界を突破せよ：実務に耐えうる「BOMデータ・インジェクション」の設計思想

SolidWorksの標準機能としての部品表（BOM）は、設計データとの同期という観点では極めて優秀だ。しかし、製造現場や原価管理の文脈に踏み込んだ瞬間、その「優秀さ」は「不自由さ」へと変貌する。

「部品の重量に塗装膜厚分を加味して計算したい」
「社内のERPから取得した『特記事項』をBOMに自動反映させたい」
「特定の材質の場合のみ、独自の係数を掛けて重量を算出したい」

これらは、SolidWorksの標準プロパティだけでは完結しない。設計者が求めているのは、単なるデータの「表示」ではなく、ビジネスロジックに基づいたデータの「加工と注入」である。

本記事では、単なるセルへの書き込みコードではなく、「設計変更に強く、保守性が高く、かつ高速に動作する」プロフェッショナルなBOM制御の実装手法について、その設計思想と共に伝授する。

1. 凡ミスを誘発する「インデックス依存」の罠

多くの開発者が最初に陥る致命的なミスは、「列番号（Column Index）をハードコーディングすること」だ。

' 典型的な「素人」のコード
For i = 2 To rowCount
    Cells(i, 5).Text = "Calculated Value" ' 5列目は重量だと決めつけている
Next i

この書き方は、明日、誰かがテンプレートのBOMに「備考」列を左側に追加した瞬間に、システムを破壊する。プロフェッショナルなツールにおいて、このような脆弱性は許されない。

設計指針：
列の特定は、必ず「ヘッダー文字列（Column Header Name）」に基づいて動的に行うべきだ。これにより、テンプレートのレイアウト変更に対して堅牢な（Robustな）コードとなる。

2. 高速化と安定性のためのオブジェクト・ライフサイクル

BOMの操作は、描画（Drawing）の再計算を伴うことが多く、ループ内でのAPI呼び出し回数がパフォーマンスに直結する。

• `Select` や `Activate` は厳禁： 画面の更新を伴う操作は、実行速度を著しく低下させ、実行中のユーザー体験を損なう。
• オブジェクトの参照を保持する： `TableAnnotation` オブジェクトを一度取得したら、その参照を適切に使い回す。
• エラーハンドリングの徹底： BOMが存在しないシート、あるいはBOMではないテーブル（注釈など）にアクセスした際の例外処理を設計の初期段階で組み込む。

3. プロダクション・グレードのコード実装例

以下に、実務でそのまま利用可能な、堅牢な設計思想に基づいたコード例を示す。このコードは、「ヘッダー名から列を特定し、特定の計算ロジックを適用して値を上書きする」という挙動を実現する。

'**
' Module: BOM_Data_Manager
' Description: BOMの特定カラムに対し、ビジネスロジックに基づいた計算値を注入する
'**

Option Explicit

Sub UpdateBOMWithLogic()
    Dim swApp As SldWorks.SldWorks
    Dim swModel As SldWorks.ModelDoc2
    Dim swDraw As SldWorks.DrawingDoc
    Dim swSheet As SldWorks.Sheet
    Dim swView As SldWorks.View
    Dim swTable As SldWorks.TableAnnotation
    
    Dim targetColumnHeader As String
    Dim sourceColumnHeader As String
    Dim targetColIdx As Long
    Dim sourceColIdx As Long
    Dim i As Long, rowCount As Long
    
    ' --- 設定領域（ここを修正することで汎用性を高める） ---
    targetColumnHeader = "計算重量"    ' 書き込みたい列のヘッダー名
    sourceColumnHeader = "部品番号"    ' 参照したい列のヘッダー名
    ' --------------------------------------------------

    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc

    ' 1. ドキュメントチェック
    If swModel Is Nothing Then Exit Sub
    If swModel.GetType <> swDocDRAWING Then
        MsgBox "図面ファイルを開いてください。", vbCritical
        Exit Sub
    End If

    Set swDraw = swModel
    Set swSheet = swDraw.GetCurrentSheet

    ' 2. 図面内の全ビューを走査し、BOMテーブルを探す
    ' Note: 描画内のすべてのTableAnnotationを走査するのが最も確実
    Set swView = swDraw.GetFirstView ' Sheet自体が最初のView
    
    Do While Not swView Is Nothing
        Set swTable = swView.GetFirstTableAnnotation
        
        Do While Not swTable Is Nothing
            ' テーブルがBOMであることを確認
            If swTable.Type = swTableAnnotationType_e.swTableAnnotationType_Bom Then
                
                ' 3. 列の動的特定（インデックス依存からの脱却）
                targetColIdx = GetColumnIndexByHeader(swTable, targetColumnHeader)
                sourceColIdx = GetColumnIndexByHeader(swTable, sourceColumnHeader)
                
                If targetColIdx > 0 And sourceColIdx > 0 Then
                    ' 4. データ更新ロジックの実行
                    rowCount = swTable.RowCount
                    
                    ' トランザクション開始（描画更新の抑制）
                    swModel.LockGraphics = True
                    
                    For i = 1 To rowCount - 1 ' ヘッダーを除外
                        Dim partNo As String
                        Dim rawWeight As Double
                        Dim calculatedWeight As Double
                        
                        ' 部品番号の取得
                        partNo = swTable.Text(i, sourceColIdx)
                        
                        ' --- 【ここにビジネスロジックを実装】 ---
                        ' 例: 部品番号に基づき、外部DBや計算式から値を算出
                        ' 今回はデモとして「(仮の重量) * 1.1」を計算
                        calculatedWeight = SimulateBusinessLogic(partNo)
                        ' ---------------------------------------
                        
                        ' セルへの書き込み
                        swTable.Text(i, targetColIdx) = Format(calculatedWeight, "0.00")
                    Next i
                    
                    swModel.LockGraphics = False
                    MsgBox "BOMの更新が完了しました。", vbInformation
                    Exit Sub ' 最初のBOMを処理したら終了（要件に応じて変更）
                Else
                    MsgBox "指定されたヘッダーが見つかりません。" & vbCrLf & _
                           "Target: " & targetColumnHeader & vbCrLf & _
                           "Source: " & sourceColumnHeader, vbExclamation
                End If
            End If
            Set swTable = swTable.GetNext
        Loop
        Set swView = swView.GetNext
    Loop

    swModel.LockGraphics = False
End Sub

'**
' Function: GetColumnIndexByHeader
' Description: ヘッダー文字列から列インデックスを検索する
'**
Private Function GetColumnIndexByHeader(swTable As SldWorks.TableAnnotation, headerName As String) As Long
    Dim colCount As Long
    Dim i As Long
    Dim headerText As String
    
    colCount = swTable.ColumnCount
    GetColumnIndexByHeader = 0 ' デフォルトは失敗
    
    For i = 0 To colCount - 1
        ' ヘッダー行（通常0行目）のテキストを取得
        headerText = Trim(swTable.Text(0, i))
        If headerText = headerName Then
            GetColumnIndexByHeader = i + 1 ' APIは1-based indexを使用するため
            Exit Function
        End If
    Next i
End Function

'**
' Function: SimulateBusinessLogic
' Description: 実務における計算ロジック（外部連携のシミュレーション）
'**
Private Function SimulateBusinessLogic(partNo As String) As Double
    ' 本来はここでExcel、SQL Server、またはJSONファイルへアクセスする
    ' 例: If partNo Like "P-*" Then ...
    
    Dim dummyWeight As Double
    dummyWeight = 10.5 ' 仮の基準値
    
    ' 塗装係数などを適用するロジック
    SimulateBusinessLogic = dummyWeight * 1.05 
End Function

4. 実務への展開：データベース連携時の注意点

上記のコードにおける `SimulateBusinessLogic` 関数こそが、ツールの「心臓部」となる。ここをどのように実装するかで、ツールの価値が決まる。

外部データ（Excel/SQL）との連携

設計者が「備考欄」に特定の指示を入れたい場合、Excelのマスターデータと照合するのが一般的だ。

• 注意点： ループの中で毎回Excelファイルを開いてはならない。これはパフォーマンスの自殺行為だ。
• 正しい設計： ループに入る前に、Excelのデータを `Dictionary` オブジェクト（連想配列）にすべて読み込み、メモリ上に展開しておくこと。ループ内ではメモリ上の `Dictionary` を参照する。これにより、処理速度は数千倍変わる。

エラーハンドリングの深化

実務では「部品番号がマスターに存在しない」という事態が必ず発生する。

• 計算に失敗したセルを「0」にするのか、あるいは「ERROR」という文字列を入れるのか。
• ユーザーが気づけるよう、エラーがあった行番号をログとして出力するか、セルに色をつける（`swTable.SetColor`）といったフィードバック機構を検討せよ。

結論

SolidWorks VBAによる自動化の本質は、単なる「作業の置き換え」ではない。「設計データという静的な情報を、ビジネスロジックという動的なプロセスによって、価値ある情報へと変換すること」にある。

インデックスに頼らない堅牢な設計、メモリ効率を考慮したデータアクセス、そして例外を許容する設計思想。これらを兼ね備えたコードを書くことこそが、真のエンジニアリングである。