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

2022年9月12日 2022年9月12日

宮崎稔也

投稿#141から、2013年（平成25年）大阪府産業連関表における最終需要部門の推計に取り掛かっています。

今回の投稿も、最終需要部門の推計についてです。

（１１）輸出（普通貿易）

推計方法の確認

　各部門について、平成23年全国基本表から平成25年全国延長表への輸出率（輸出額／生産額）の増減率を、平成23年大阪府基本表の輸出率に乗じて平成25年輸出率を求め、平成25年大阪府延長表の生産額に乗じることにより求めた。

大阪府総務部統計課「平成25年（2013年）大阪府産業連関表（延長表）報告書」より引用

実際の推計

上記の推計方法をそのまま利用することにしました。

（１２）輸出（特殊貿易）

推計方法の確認

全国延長表の輸出（特殊貿易）額を、宿泊旅行統計から得られる外国人宿泊者数の対全国費で按分した。

大阪府総務部統計課「平成25年（2013年）大阪府産業連関表（延長表）報告書」より引用

実際の推計

観光庁「宿泊旅行統計調査」の「平成25年1月～12月分（年の確定値）」の集計結果の「第2表」における外国人延べ宿泊者数の値を使用しました。

推計を行うVBAのコードは、以下のようになります。

Sub 輸出特殊貿易推計()
    Dim OrgWs As Worksheet          '転記元ワークシート
    Dim DesWs As Worksheet          '転記先ワークシート
    Dim japanspe As Long            '全国延長表の輸出（特殊貿易）額
    Dim ratio As Double             '対全国比
    Dim i As Integer                'カウンタ変数
    Dim j As Integer                'カウンタ変数
    Const FirstRow = 3              '転記開始行番号
    Const LastRow = 192             '転記終了行番号
    Const JapanSpeColumn = 412      '全国延長表の輸出（特殊貿易）額列番号
    Const OsakaSpeColumn = 210      '大阪府延長表の輸出（特殊貿易）額列番号
    Const japanfor = 33495730       '平成25年宿泊旅行統計から得られる外国人延べ宿泊者数（全国値） 
    Const osakafor = 4314500        '平成25年宿泊旅行統計から得られる外国人延べ宿泊者数（大阪） 

    Set OrgWs = Workbooks("最終需要推計シート_平成25年大阪府産業連関表.ods").Worksheets("全国延長表一般政府消費支出統合")
    Set DesWs = Workbooks("最終需要推計シート_平成25年大阪府産業連関表.ods").Worksheets("府内輸出推計")

    ratio = osakafor / japanfor
    For i = FirstRow To LastRow
        japanspe = OrgWs.Cells(i, JapanSpeColumn)
        DesWs.Cells(i, OsakaSpeColumn) = japanspe * ratio
    Next    
End Sub

（１３）輸出（直接購入）

推計方法の確認

全国延長表の輸出（直接購入）額を、宿泊旅行統計から得られる外国人宿泊者数の対全国費で按分した。

大阪府総務部統計課「平成25年（2013年）大阪府産業連関表（延長表）報告書」より引用

実際の推計

推計を行うVBAのコードは、（１２）と似たようなコードになるため、掲載を割愛します。

（１０）調整項

投稿#142で推計を行わなかった調整項をここで推計します。

推計方法の確認

全国延長表の輸出額に対する調整項の率を、平成25年大阪府延長表の輸出額に乗じて推計した。

大阪府総務部統計課「平成25年（2013年）大阪府産業連関表（延長表）報告書」より引用

実際の推計

[math-jax]輸出額は以下の式で求めます。
$$
輸出 = 輸出（普通貿易）+ 輸出（特殊貿易）
$$

推計を行うVBAのコードは、以下のようになります。

Sub 調整項推計()
    Dim OrgWs As Worksheet          '転記元ワークシート
    Dim DesWs As Worksheet          '転記先ワークシート
    Dim japanord As Long            '全国延長表の輸出（普通貿易）額
    Dim japanspe As Long            '全国延長表の輸出（特殊貿易）額
    Dim japanexp As Long            '全国延長表の輸出額
    Dim japanbal As Long            '全国延長表の調整項
    Dim ratio As Double             '輸出額に対する調整項の率
    Dim osakaord As Long            '大阪府延長表の輸出（普通貿易）額
    Dim osakaspe As Long                '大阪府延長表の輸出（特殊貿易）額
    Dim osakaexp As Long            '大阪府延長表の輸出額
    Dim osakabal As Long            '大阪府延長表の調整項
    Dim i As Integer                'カウンタ変数
    Const FirstRow = 3              '転記開始行番号
    Const LastRow = 192             '転記終了行番号
    Const JapanOrdColumn = 411      '全国延長表の輸出（普通貿易）額列番号
    Const JapanSpeColumn = 412      '全国延長表の輸出（特殊貿易）額列番号
    Const JapanBalColumn = 414      '全国延長表の調整項の列番号
    Const OsakaOrdColumn = 209      '大阪府延長表の輸出（普通貿易）額列番号
    Const OsakaSpeColumn = 210      '大阪府延長表の輸出（特殊貿易）額列番号
    Const OsakaBalColumn = 206      '大阪府延長表の調整項列番号 

    Set OrgWs = Workbooks("最終需要推計シート_平成25年大阪府産業連関表.ods").Worksheets("全国延長表一般政府消費支出統合")
    Set DesWs = Workbooks("最終需要推計シート_平成25年大阪府産業連関表.ods").Worksheets("府内輸出推計")

    For i = FirstRow To LastRow
        japanord = OrgWs.Cells(i, JapanOrdColumn)
        japanspe = OrgWs.Cells(i, JapanSpeColumn)
        japanexp = japanord + japanspe
        If japanexp = 0 Then
            DesWs.Cells(i, OsakaBalColumn) = 0
            Goto Continue
        Else
            japanbal = OrgWs.Cells(i, JapanBalColumn)
            ratio = japanbal / japanexp
            osakaord = DesWs.Cells(i, OsakaOrdColumn)
            osakaspe = DesWs.Cells(i, OsakaSpeColumn)
            osakaexp = osakaord + osakaspe
            osakabal = osakaexp * ratio
            DesWs.Cells(i, OsakaBalColumn) = osakabal
        End If
    Continue:Next   
End Sub