#145　2013年（平成25年）大阪府産業連関表における最終需要部門の推計（その５）

2022年9月19日 2022年9月19日

宮崎稔也

投稿#141から、2013年（平成25年）大阪府産業連関表における最終需要部門の推計を行ってきました。

今回の投稿は、#144までで推計を行った最終需要部門を適宜統合した後、合計計算をしていきます。

部門統合

在庫純増の統合

投稿#142で推計した、以下の部門を統合します。

生産者製品在庫純増
半製品・仕掛品在庫純増
流通在庫純増
原材料在庫純増

統合に利用したVBAのコードは、以下のようになります。

Sub 在庫純増統合()
    Dim Ws As Worksheet         'ワークシート
    Dim i As Integer            'カウンタ変数
    Dim j As Integer            'カウンタ変数
    Dim sum As Long             '在庫純増額
    Const FirstRow = 3          '計算開始行
    Const LastRow = 192         '計算終了行
    Const FirstColumn = 201     '計算開始列番号
    Const LastColumn = 204      '計算終了列番号
    Const SumColumn = 205       '転記先列番号

    Set Ws = Workbooks("最終需要推計シート_平成25年大阪府産業連関表.ods").Worksheets("大阪府延長表最終需要部門統合")

    For i = FirstRow To LastRow
        sum = 0
        For j = FirstColumn To LastColumn
            sum = sum + Ws.Cells(i, j)
        Next
        Ws.Cells(i, SumColumn) = sum
    Next
End Sub

輸出の統合

投稿#143で推計した、以下の部門を統合します。

輸出（普通貿易）
輸出（特殊貿易）

統合に利用したVBAのコードは、以下のようになります。

Sub 輸出推計()
    Dim Ws As Worksheet         'ワークシート
    Dim i As Integer            'カウンタ変数
    Dim j As Integer            'カウンタ変数
    Dim sum As Long             '輸出額
    Const FirstRow = 3          '計算開始行
    Const LastRow = 192         '計算終了行
    Const FirstColumn = 205     '計算開始列番号
    Const LastColumn = 206      '計算終了列番号
    Const SumColumn = 207       '転記先列番号

    Set Ws = Workbooks("最終需要推計シート_平成25年大阪府産業連関表.ods").Worksheets("大阪府延長表最終需要部門統合")

    For i = FirstRow To LastRow
        sum = 0
        sum = Ws.Cells(i, FirstColumn) + Ws.Cells(i, LastColumn)
        Ws.Cells(i, SumColumn) = sum
    Next
End Sub

（控除）輸入の統合

投稿#144で推計した、以下の部門を統合します。

（控除）輸入（普通貿易）
（控除）輸入（特殊貿易）

統合に利用したVBAのコードは、以下のようになります。

Sub 輸入推計()
    Dim Ws As Worksheet         'ワークシート
    Dim i As Integer            'カウンタ変数
    Dim j As Integer            'カウンタ変数
    Dim sum As Long             '輸入額
    Const FirstRow = 3          '計算開始行
    Const LastRow = 192         '計算終了行
    Const FirstColumn = 213     '計算開始列番号
    Const LastColumn = 214      '計算終了列番号
    Const SumColumn = 215       '転記先列番号

    Set Ws = Workbooks("最終需要推計シート_平成25年大阪府産業連関表.ods").Worksheets("大阪府延長表最終需要部門統合")

    For i = FirstRow To LastRow
        sum = 0
        sum = Ws.Cells(i, FirstColumn) + Ws.Cells(i, LastColumn)
        Ws.Cells(i, SumColumn) = sum
    Next
End Sub